Ignore:
Timestamp:
12/16/03 17:02:50 (18 years ago)
Author:
piso
Message:

READ-CONDITIONAL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/boot.lisp

    r5130 r5164  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.137 2003-12-14 17:15:31 piso Exp $
     4;;; $Id: boot.lisp,v 1.138 2003-12-16 17:02:50 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7979
    8080(defun read-conditional (stream subchar int)
    81   (cond (*read-suppress* (read stream t nil t) (values))
    82         ((eql subchar (read-feature stream)) (read stream t nil t))
    83         (t (let* ((*read-suppress* t))
    84              (read stream t nil t)
    85              (values)))))
     81  (cond (*read-suppress*
     82         (read stream t nil t))
     83        ((eql subchar (read-feature stream))
     84         (read stream t nil t))
     85        (t
     86         (let* ((*read-suppress* t))
     87           (read stream t nil t)))))
    8688
    8789(defun read-feature (stream)
Note: See TracChangeset for help on using the changeset viewer.