Changeset 918


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

more occurrences where error should be a reader-error.

File:
1 edited

Legend:

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

    r914 r918  
    568568          (if (not nondots)
    569569            (if (= len 1)
    570               (or dot-ok (%err-disp $XDOTERR))
    571               (%err-disp $XBADSYM))
     570              (or dot-ok
     571                  (signal-reader-error stream "Dot context error."))
     572              (signal-reader-error stream "Illegal symbol syntax."))
    572573            ; Something other than a buffer full of dots.  Thank god.
    573574            (let* ((num (if (null escapes) (%token-to-number tb (%validate-radix *read-base*)))))
     
    682683                                 (not (nth-value 1 (%read-list-expression stream nil termch)))))))
    683684            (return)
    684             (%err-disp $XDOTERR))
     685            (signal-reader-error stream "Dot context error."))
    685686           (rplacd tail (setq tail (cons form nil))))))
    686687    (cdr head)))
     
    819820      (unless *read-suppress*
    820821        (eval exp)))
    821     (error '"#. reader macro invoked when ~S is false ." '*read-eval*)))
     822    (signal-reader-error stream "#. reader macro invoked when ~S is false ."
     823                         '*read-eval*)))
    822824
    823825(set-dispatch-macro-character
Note: See TracChangeset for help on using the changeset viewer.