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

Modified Files: print.lisp Log Message: Printing of various quote syntaxes.

--- /project/movitz/cvsroot/movitz/losp/muerte/print.lisp 2008/04/19 15:21:57 1.26 +++ /project/movitz/cvsroot/movitz/losp/muerte/print.lisp 2008/04/21 19:42:26 1.27 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Mon Sep 3 11:48:19 2001 ;;;; -;;;; $Id: print.lisp,v 1.26 2008/04/19 15:21:57 ffjeld Exp $ +;;;; $Id: print.lisp,v 1.27 2008/04/21 19:42:26 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -242,6 +242,19 @@ (not (cddr object))) (write-char #' stream) (write (cadr object))) + ((and (eq 'backquote (car object)) + (not (cddr object))) + (write-char #` stream) + (write (cadr object))) + ((and (eq 'backquote-comma (car object)) + (not (cddr object))) + (write-char #, stream) + (write (cadr object))) + ((and (eq 'function (car object)) + (not (cddr object))) + (write-char ## stream) + (write-char #' stream) + (write (cadr object))) (t (labels ((write-cons (c stream length) (cond ((and length (= 0 length))