Ignore:
Timestamp:
Mar 1, 2006, 2:43:11 AM (15 years ago)
Author:
gb
Message:

Define IMPOSSIBLE-NUMBER as a subtype of READER-ERROR.

File:
1 edited

Legend:

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

    r3257 r3541  
    347347  (:report (lambda (c s)
    348348             (format s "Unexpected end of file on ~s" (stream-error-stream c)))))
    349 
     349(define-condition impossible-number (reader-error)
     350  ((token :initarg :token :reader impossible-number-token)
     351   (condition :initarg :condition :reader impossible-number-condition))
     352  (:report (lambda (c s)
     353             (format s "Condition of type ~s raised while trying to parse numeric token ~s on ~s"
     354                     (type-of (impossible-number-condition c))
     355                     (impossible-number-token c)
     356                     (stream-error-stream c)))))
     357
     358
     359   
    350360(define-condition simple-stream-error (stream-error simple-condition) ()
    351361  (:report (lambda (c s)
Note: See TracChangeset for help on using the changeset viewer.