[movitz-cvs] CVS update: movitz/movitz.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

21 Jul 2004

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv25024
Modified Files:
    movitz.lisp 
Log Message:
Fixed un-backquote for non-proper lists, like `(a b . c).
Date: Wed Jul 21 15:28:48 2004
Author: ffjeld
Index: movitz/movitz.lisp
diff -u movitz/movitz.lisp:1.7 movitz/movitz.lisp:1.8

--- movitz/movitz.lisp:1.7	Wed Apr 21 08:09:25 2004
+++ movitz/movitz.lisp	Wed Jul 21 15:28:48 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.7 2004/04/21 15:09:25 ffjeld Exp $
+;;;; $Id: movitz.lisp,v 1.8 2004/07/21 22:28:48 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -132,7 +132,10 @@
    			      (list 'list
    				    (list 'quote 'backquote-comma-at)
    				    (un-backquote (cadr sub-form) (1- level))))))
-			     (t (list 'list (un-backquote sub-form level)))))))))))
+			     (t (list 'list (un-backquote sub-form level))))))
+		     when (not (listp (cdr sub-form-head)))
+		     collect (list 'quote (cdr sub-form-head)))
+		 ))))
      (array
       (error "Array backquote not implemented."))
      (t (list 'quote form)))))

    