[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	lisp-syntax.lisp 
Log Message:
Make Drei forward-expression handle #+foo whatever properly through the magic of special cases.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/11 07:52:03	1.64
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/12 10:52:24	1.65
@@ -2036,7 +2036,12 @@
 			    (form-around syntax (offset mark)))))
     (when (and (not (null potential-form))
                (not (= (offset mark) (end-offset potential-form))))
-      (setf (offset mark) (end-offset potential-form)))))
+      (typecase potential-form
+        (reader-conditional-form
+         (setf (offset mark) (end-offset
+                              (or (first-form (children potential-form))
+                                  potential-form))))
+        (t (setf (offset mark) (end-offset potential-form)))))))
 
 (defmethod forward-delete-expression (mark (syntax lisp-syntax) &optional (count 1)
                                       (limit-action #'error-limit-action))