Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv12597
Modified Files: los-closette.lisp Log Message: It's probably a good idea to signal an error when trying to print an illegal-value.
Date: Tue Jan 4 21:23:17 2005 Author: ffjeld
Index: movitz/losp/muerte/los-closette.lisp diff -u movitz/losp/muerte/los-closette.lisp:1.24 movitz/losp/muerte/los-closette.lisp:1.25 --- movitz/losp/muerte/los-closette.lisp:1.24 Mon Dec 20 14:42:51 2004 +++ movitz/losp/muerte/los-closette.lisp Tue Jan 4 21:23:16 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2004, +;;;; Copyright (C) 2001-2005, ;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Jul 23 14:29:10 2002 ;;;; -;;;; $Id: los-closette.lisp,v 1.24 2004/12/20 13:42:51 ffjeld Exp $ +;;;; $Id: los-closette.lisp,v 1.25 2005/01/04 20:23:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -1723,7 +1723,8 @@ x)
(defmethod print-object ((x illegal-object) stream) - (print-unreadable-object (x stream :type t :identity t)) + (error "Won't print illegal-object ~Z." x) + ;; (print-unreadable-object (x stream :type t :identity t)) x)
;;;