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

Modified Files: lisp-syntax.lisp Log Message: Make Drei's form-at-top-level-p function more general.

Also, an indentation fix.

--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/08/20 18:43:06 1.30 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2007/08/24 13:07:53 1.31 @@ -1441,7 +1441,7 @@ (defgeneric form-at-top-level-p (form) (:documentation "Return NIL if `form' is not a top-level-form, T otherwise.") - (:method ((form form)) + (:method ((form parser-symbol)) (or (typep (parent form) 'form*) (null (parent form)))))

@@ -1539,10 +1539,10 @@ (defmethod display-parse-tree :around (parse-symbol stream (drei drei) (syntax lisp-syntax)) (with-slots (top bot) drei - (when (and (start-offset parse-symbol) - (mark< (start-offset parse-symbol) bot) - (mark> (end-offset parse-symbol) top)) - (call-next-method)))) + (when (and (start-offset parse-symbol) + (mark< (start-offset parse-symbol) bot) + (mark> (end-offset parse-symbol) top)) + (call-next-method))))

(defmethod display-parse-tree (parse-symbol stream (drei drei) (syntax lisp-syntax))