Changeset 5170


Ignore:
Timestamp:
12/17/03 01:48:53 (17 years ago)
Author:
piso
Message:

Reverted last change to READ-CONDITIONAL.

File:
1 edited

Legend:

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

    r5169 r5170  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: boot.lisp,v 1.139 2003-12-17 01:21:20 piso Exp $
     4;;; $Id: boot.lisp,v 1.140 2003-12-17 01:48:53 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8080(defun read-conditional (stream subchar int)
    8181  (cond (*read-suppress*
    82          (read stream t nil t))
     82         (read stream t nil t)
     83         (values))
    8384        ((eql subchar (read-feature stream))
    8485         (read stream t nil t))
    8586        (t
    8687         (let* ((*read-suppress* t))
    87            (read stream t nil t)))))
     88           (read stream t nil t)
     89           (values)))))
    8890
    8991(defun read-feature (stream)
Note: See TracChangeset for help on using the changeset viewer.