Changeset 11583


Ignore:
Timestamp:
Jan 5, 2009, 4:32:37 PM (11 years ago)
Author:
gz
Message:

Propagate r11546 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-streams.lisp

    r11416 r11583  
    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.