[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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