Changeset 923


Ignore:
Timestamp:
Feb 16, 2005, 7:45:25 PM (17 years ago)
Author:
bryan
Message:

ccl::%unreadable should signal a reader-error.

ccl::%unreadable is called when the reader encounters #<, #),
or #<whitespace>.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-reader.lisp

    r921 r923  
    932932                          (decf level))))))))
    933933
    934 (defun %unreadable (description)
    935   (%err-disp $xunread description))
     934(defun %unreadable (stream description)
     935  (signal-reader-error stream "~S encountered." stream description))
    936936
    937937(set-dispatch-macro-character
    938938 #\#
    939939 #\<
    940  #'(lambda (&rest ignore) (declare (ignore ignore)) (%unreadable "#<")))
     940 #'(lambda (stream &rest ignore)
     941     (declare (ignore ignore))
     942     (%unreadable stream "#<")))
    941943
    942944(dolist (ch '(#\null #\tab #\linefeed #\page #\return #\space #\312))
     
    944946   #\#
    945947   ch
    946    #'(lambda (&rest ignore) (declare (ignore ignore)) (%unreadable "#<whitespace>"))))
     948   #'(lambda (stream &rest ignore)
     949       (declare (ignore ignore))
     950       (%unreadable stream "#<whitespace>"))))
    947951
    948952(set-dispatch-macro-character
    949953 #\#
    950954 #\)
    951  #'(lambda (&rest ignore) (declare (ignore ignore)) (%unreadable "#)")))
     955 #'(lambda (stream &rest ignore)
     956     (declare (ignore ignore))
     957     (%unreadable stream "#)")))
    952958
    953959(set-dispatch-macro-character
Note: See TracChangeset for help on using the changeset viewer.