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

Modified Files: lisp-syntax.lisp Log Message: Fixed symbol finding code and removed deprecated string indentation rule.

--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/16 21:36:29 1.73 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/18 21:43:39 1.74 @@ -1999,7 +1999,7 @@ (multiple-value-bind (symbol status) (when package (find-symbol symbol-name package)) - (if symbol + (if (or symbol package) (values symbol status) (values (make-symbol symbol-name) nil))))))

@@ -2196,9 +2196,6 @@ ;; inside a subexpression (indent-form syntax (elt-noncomment (children tree) (car path)) (cdr path)))))))

-(defmethod indent-form ((syntax lisp-syntax) (tree string-form) path) - (values tree 1)) - (defmethod indent-form ((syntax lisp-syntax) (tree token-form) path) (values tree 0))