[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv380/Drei

Modified Files:
	lisp-syntax.lisp 
Log Message:
Handle weirdly placed quote characters in Lisp syntax.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2007/08/13 21:58:44	1.29
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2007/08/20 18:43:06	1.30
@@ -1395,7 +1395,8 @@
   "Return the bottom token object for `token', return `token' or
 the form that `token' quotes, peeling away all quote forms."
   (labels ((descend (form)
-             (cond ((form-quoted-p form)
+             (cond ((and (form-quoted-p form)
+                         (rest (children form)))
                     (descend (first-form (children form))))
                    (t form))))
     (descend token)))