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)))