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

Modified Files: movitz.lisp Log Message: Added macro print-unreadable-movitz-object.

Date: Mon Feb 2 08:06:06 2004 Author: ffjeld

Index: movitz/movitz.lisp diff -u movitz/movitz.lisp:1.3 movitz/movitz.lisp:1.4 --- movitz/movitz.lisp:1.3 Fri Jan 16 07:02:05 2004 +++ movitz/movitz.lisp Mon Feb 2 08:06:06 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Mon Oct 9 20:52:58 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: movitz.lisp,v 1.3 2004/01/16 12:02:05 ffjeld Exp $ +;;;; $Id: movitz.lisp,v 1.4 2004/02/02 13:06:06 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -29,6 +29,16 @@ (defvar *bq-level* 0) (defvar *default-image-init-file* #p"losp/los0.lisp") (defvar *default-image-file* #p"los0-image") + +(defmacro print-unreadable-movitz-object ((object stream &rest key-args) &body body) + "Just like print-unreadable-object, just adorn output so as to +make clear it's a Movitz object, with extra <..>" + (let ((stream-var (gensym "unreadable-movitz-stream-"))) + `(let ((,stream-var ,stream)) + (print-unreadable-object (,object ,stream-var ,@key-args) + (write-char #< ,stream-var) + ,@body + (write-char #> ,stream-var)))))

(defmacro with-movitz-syntax (options &body body) (declare (ignore options))