Changeset 927


Ignore:
Timestamp:
Feb 16, 2005, 8:29:22 PM (17 years ago)
Author:
bryan
Message:

unmatched ') when ccl::*ignore-extra-close-parenthesis* is nil
should signal a reader-error.

the default for ccl::*ignore-extra-close-parenthesis* remains t.
set it to nil in your init file for maximum ansi-compliance.

File:
1 edited

Legend:

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

    r923 r927  
    745745 #\)
    746746 #'(lambda (stream ch)
    747      (if *ignore-extra-close-parenthesis*
    748        (let* ((pos (if (typep stream 'file-stream)
     747     (let* ((pos (if (typep stream 'file-stream)
    749748                     (file-position stream))))
    750          (warn "Ignoring extra \"~c\" ~@[near position ~d.~] on ~s ." ch pos stream))
    751        (%err-disp $XUMRPR)))          ; is this a READER-ERROR ?
    752 )
     749       (if *ignore-extra-close-parenthesis*
     750           (warn "Ignoring extra \"~c\" ~@[near position ~d~] on ~s ." ch pos stream)
     751           (signal-reader-error stream "Unmatched ')' ~@[near position ~d~]." pos)))))
    753752
    754753
Note: See TracChangeset for help on using the changeset viewer.