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

Modified Files: lisp-syntax.lisp Log Message: Added ":no-error t" arguments to calls to `token-to-object'.

--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/16 19:48:52 1.69 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/16 20:00:50 1.70 @@ -1172,7 +1172,8 @@ (when (typep x 'complete-list-form) (let ((candidate (first-form (children x)))) (and (typep candidate 'token-mixin) - (eq (token-to-object syntax candidate) + (eq (token-to-object syntax candidate + :no-error t) 'cl:in-package)))))) (with-slots (stack-top) syntax (let ((form (find-if #'test (children stack-top)))) @@ -1466,7 +1467,7 @@ (if (> (the fixnum (end-offset parse-symbol)) (the fixnum (start-offset parse-symbol))) (let ((string (token-string syntax parse-symbol))) (multiple-value-bind (symbol status) - (token-to-object syntax parse-symbol) + (token-to-object syntax parse-symbol :no-error t) (with-output-as-presentation (pane (if status symbol string) (if status 'symbol 'unknown-symbol) :single-box :highlighting)