Changeset 7976


Ignore:
Timestamp:
Jan 1, 2008, 1:40:58 AM (13 years ago)
Author:
gb
Message:

Try to make some STREAM-ERRORs look a little less ugly.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2-devel/ccl/level-1/l1-error-system.lisp

    r7890 r7976  
    368368(define-condition end-of-file (stream-error) ()
    369369  (:report (lambda (c s)
    370              (format s "Unexpected end of file ~s" (stream-error-context c)))))
     370             (format s "Unexpected end of file ~a" (stream-error-context c)))))
    371371(define-condition impossible-number (reader-error)
    372372  ((token :initarg :token :reader impossible-number-token)
     
    382382(define-condition simple-stream-error (stream-error simple-condition) ()
    383383  (:report (lambda (c s)
    384              (format s "Error ~s : ~&~a" (stream-error-context c)
     384             (format s "~a : ~&~a" (stream-error-context c)
    385385                     (apply #'format
    386386                            nil
Note: See TracChangeset for help on using the changeset viewer.