Changeset 11546


Ignore:
Timestamp:
Dec 18, 2008, 10:28:32 PM (11 years ago)
Author:
gz
Message:

bind *read-suppress* to nil in read-toplevel-form

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r11288 r11546  
    58315831           (first-char (peek-char t stream nil eof-value))
    58325832           (form
    5833             (cond ((eq first-char #\:)
    5834                    (read-command-or-keyword stream eof-value))
    5835                   ((eq first-char eof-value) eof-value)
    5836                   (t (read stream nil eof-value)))))
     5833            (let ((*read-suppress* nil))
     5834              (cond ((eq first-char #\:)
     5835                     (read-command-or-keyword stream eof-value))
     5836                    ((eq first-char eof-value) eof-value)
     5837                    (t (read stream nil eof-value))))))
    58375838      (if (eq form eof-value)
    58385839        (return (values form nil t))
Note: See TracChangeset for help on using the changeset viewer.