Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/event-ide/ccl/cocoa-ide/hemlock/src/lispmode.lisp

    r8029 r8062  
    326326   
    327327    (if (lisp-info-begins-quoted line-info)
    328         (deal-with-string-quote mark line-info)
    329         (setf (lisp-info-ending-quoted line-info) nil))
     328      (deal-with-string-quote mark line-info)
     329      (setf (lisp-info-ending-quoted line-info) nil))
    330330   
     331    (assert (eq (hi::mark-buffer mark) (current-buffer)))
     332
    331333    (unless (lisp-info-ending-quoted line-info)
    332334      (loop
    333         (unless (find-lisp-char mark)
     335
     336        (unless (find-lisp-char mark)
    334337          (error "Expected at least a newline!"))
    335 
    336         (ecase (character-attribute :lisp-syntax (next-character mark))
     338        (case (character-attribute :lisp-syntax (next-character mark))
    337339         
    338340          (:open-paren
     
    366368           (unless (deal-with-string-quote mark line-info)
    367369             (setf (lisp-info-ending-quoted line-info) t)
    368              (return t))))))
    369    
     370             (return t)))
     371          (t (ERROR "character attribute of: ~s is ~s, at ~s"
     372                    (next-character mark)
     373                    (character-attribute :lisp-syntax (next-character mark))
     374                    mark)))))
     375
    370376    (setf (lisp-info-net-open-parens line-info) net-open-parens)
    371377    (setf (lisp-info-net-close-parens line-info) net-close-parens)
Note: See TracChangeset for help on using the changeset viewer.