[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv4249

Modified Files:
	print.lisp 
Log Message:
Safe printing of unbound-value.


--- /project/movitz/cvsroot/movitz/losp/muerte/print.lisp	2008/03/15 20:58:15	1.24
+++ /project/movitz/cvsroot/movitz/losp/muerte/print.lisp	2008/03/21 22:31:07	1.25
@@ -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.24 2008/03/15 20:58:15 ffjeld Exp $
+;;;; $Id: print.lisp,v 1.25 2008/03/21 22:31:07 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -216,6 +216,8 @@
      (t (let ((do-escape-p (or *print-escape* *print-readably*))
 	      (*print-level* (minus-if *print-level* 1)))
 	  (typecase object
+	    (unbound-value
+	     (write-string "#<unbound!>" stream))
 	    (character
 	     (if (not do-escape-p)
 		 (write-char object stream)