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