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