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

Modified Files: lisp-syntax.lisp Log Message: Changed package finding to recognise cl:in-package etc.

Date: Mon Oct 17 19:55:58 2005 Author: dmurray

Index: climacs/lisp-syntax.lisp diff -u climacs/lisp-syntax.lisp:1.36 climacs/lisp-syntax.lisp:1.37 --- climacs/lisp-syntax.lisp:1.36 Sun Oct 16 16:02:51 2005 +++ climacs/lisp-syntax.lisp Mon Oct 17 19:55:58 2005 @@ -1072,10 +1072,12 @@ (flet ((test (x) (when (typep x 'complete-list-form) (let ((candidate (second-form (children x)))) - (buffer-looking-at buffer - (start-offset candidate) - "in-package" - :test #'char-equal))))) + (and (typep candidate 'token-mixin) + (eq (parse-symbol (coerce (buffer-sequence (buffer syntax) + (start-offset candidate) + (end-offset candidate)) + 'string)) + 'cl:in-package)))))) (with-slots (stack-top) syntax (let ((form (find-if #'test (children stack-top)))) (when form