Changeset 300

Timestamp:

Jan 15, 2004, 12:26:27 AM (21 years ago)

Author:

Gary Byers

Message:

READER-ERROR inherits from PARSE-ERROR and STREAM-ERROR.

File:

• trunk/ccl/level-1/l1-error-system.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-error-system.lisp

@@ -335 +335 @@
              (format s "Not an integer string: ~s" (slot-value c 'string)))))
 
-(define-condition reader-error (parse-error) ())
+(define-condition reader-error (parse-error stream-error) ())
 (define-condition end-of-file (stream-error) ()
   (:report (lambda (c s)