Changeset 8062 for branches/event-ide/ccl/cocoa-ide/hemlock/src/lispmode.lisp

Timestamp:

Jan 12, 2008, 10:15:41 PM (13 years ago)

Author:

gz

Message:

Get rid of the variable "winding" scheme (which used to swap the
current buffer's variable bindings into symbol plists), simplify
variable and mode handing.

Fix a shadow attribute caching bug.

File:

• branches/event-ide/ccl/cocoa-ide/hemlock/src/lispmode.lisp (modified) (2 diffs)

branches/event-ide/ccl/cocoa-ide/hemlock/src/lispmode.lisp

@@ -326 +326 @@
     
     (if (lisp-info-begins-quoted line-info)
-        (deal-with-string-quote mark line-info)
-        (setf (lisp-info-ending-quoted line-info) nil))
+      (deal-with-string-quote mark line-info)
+      (setf (lisp-info-ending-quoted line-info) nil))
     
+    (assert (eq (hi::mark-buffer mark) (current-buffer)))
+
     (unless (lisp-info-ending-quoted line-info)
       (loop 
-        (unless (find-lisp-char mark)
+
+        (unless (find-lisp-char mark)
           (error "Expected at least a newline!"))
-
-        (ecase (character-attribute :lisp-syntax (next-character mark))
+        (case (character-attribute :lisp-syntax (next-character mark))
           
           (:open-paren
@@ -366 +368 @@
            (unless (deal-with-string-quote mark line-info)
              (setf (lisp-info-ending-quoted line-info) t)
-             (return t))))))
-    
+             (return t)))
+          (t (ERROR "character attribute of: ~s is ~s, at ~s"
+                    (next-character mark)
+                    (character-attribute :lisp-syntax (next-character mark))
+                    mark)))))
+
     (setf (lisp-info-net-open-parens line-info) net-open-parens)
     (setf (lisp-info-net-close-parens line-info) net-close-parens)