Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv26118

Modified Files: lisp-syntax.lisp Log Message: Fixed small bug in reparsing algorithm.

Date: Thu Aug 18 21:49:02 2005 Author: dmurray

Index: climacs/lisp-syntax.lisp diff -u climacs/lisp-syntax.lisp:1.32 climacs/lisp-syntax.lisp:1.33 --- climacs/lisp-syntax.lisp:1.32 Tue Aug 16 01:31:22 2005 +++ climacs/lisp-syntax.lisp Thu Aug 18 21:49:01 2005 @@ -979,9 +979,9 @@ (find-first-potentially-valid-lexeme (cdr parse-trees) offset)) ((not (typep (car parse-trees) 'lexeme)) (find-first-potentially-valid-lexeme (children (car parse-trees)) offset)) - ((< (start-offset (car parse-trees)) offset) + ((<= (start-offset (car parse-trees)) offset) (loop with tree = (next-tree (car parse-trees)) - until (or (null tree) (>= (start-offset tree) offset)) + until (or (null tree) (> (start-offset tree) offset)) do (setf tree (next-tree tree)) finally (return tree))) (t (car parse-trees)))) @@ -990,7 +990,7 @@ (and (eq (class-of tree1) (class-of tree2)) (eq (parser-state tree1) (parser-state tree2)) (= (end-offset tree1) (end-offset tree2)))) - + (defmethod print-object ((mark mark) stream) (print-unreadable-object (mark stream :type t :identity t) (format stream "~s" (offset mark))))