[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv11930

Modified Files:
	lisp-syntax.lisp 
Log Message:
Check whether the `package' slot of the syntax object is bound in
`token-to-symbol'.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/04/12 19:37:23	1.49
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/04/13 09:25:41	1.50
@@ -1851,7 +1851,8 @@
           (values nil nil)))))
 
 (defun token-to-symbol (syntax token)
-  (let ((package (if (and (slot-value syntax 'package)
+  (let ((package (if (and (slot-boundp syntax 'package)
+                          (slot-value syntax 'package)
 			  (typep (slot-value syntax 'package) 'package))
 		     (slot-value syntax 'package)
 		     (find-package :common-lisp)))