[movitz-cvs] CVS update: movitz/losp/muerte/print.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv10682

Modified Files:
	print.lisp 
Log Message:
Minor change to the way errors are printed under *print-safely*.

Date: Fri Feb 25 09:00:12 2005
Author: ffjeld

Index: movitz/losp/muerte/print.lisp
diff -u movitz/losp/muerte/print.lisp:1.17 movitz/losp/muerte/print.lisp:1.18
--- movitz/losp/muerte/print.lisp:1.17	Mon Jan 17 12:02:27 2005
+++ movitz/losp/muerte/print.lisp	Fri Feb 25 09:00:11 2005
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Mon Sep  3 11:48:19 2001
 ;;;;                
-;;;; $Id: print.lisp,v 1.17 2005/01/17 11:02:27 ffjeld Exp $
+;;;; $Id: print.lisp,v 1.18 2005/02/25 08:00:11 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -194,7 +194,7 @@
 	(handler-case (internal-write object)
 	  (serious-condition (c)
 	    (print-unreadable-object (c *standard-output* :type t :identity t)
-	      (format t " while printing ~Z" object))))))))
+	      (format t " (while printing ~Z)" object))))))))
 
 (defun internal-write (object)
   (let ((stream *standard-output*))