[climacs-cvs] CVS update: climacs/lisp-syntax.lisp

[Dave Murray]

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