diff --git a/code/error.lisp b/code/error.lisp index 37c668ce1a645b45ac7f187288398130295e302a..e8d4cfadb563d62b7b1fc5886e22b1fcf8e150d2 100644 --- a/code/error.lisp +++ b/code/error.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.21 1993/06/24 12:25:42 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.22 1993/06/24 13:59:10 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -41,7 +41,8 @@ type-error type-error-datum type-error-expected-type simple-type-error program-error control-error stream-error stream-error-stream end-of-file file-error - file-error-pathname cell-error unbound-variable undefined-function + file-error-pathname cell-error cell-error-name unbound-variable + undefined-function arithmetic-error arithmetic-error-operation arithmetic-error-operands package-error package-error-package division-by-zero floating-point-overflow floating-point-underflow @@ -758,7 +759,11 @@ The previous version is uglier, but it sets up unique run-time tags. (define-condition stream-error (error) (stream)) -(define-condition end-of-file (stream-error) ()) +(define-condition end-of-file (stream-error) () + (:report + (lambda (condition stream) + (format stream "End-of-File on ~S" + (stream-error-stream condition))))) (define-condition file-error (error) (pathname))