[climacs-cvs] CVS climacs

[thenriksen]

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)