[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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 at 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))