diff --git a/code/save.lisp b/code/save.lisp index e74ba3a1633127167ef0fe9e0e1a543ac4a02361..f38e9975189ce3f1f2be9f7251b5e6f6f2d0f701 100644 --- a/code/save.lisp +++ b/code/save.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.38 2000/10/16 17:31:05 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.39 2000/11/04 17:05:56 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -203,7 +203,7 @@ (handler-case (%restart-lisp) (error (cond) - (format *error-output* "Error in batch processing:~%~A" + (format *error-output* "Error in batch processing:~%~A~%" cond) (throw '%end-of-the-world 1))) (%restart-lisp))