Update of /project/climacs/cvsroot/climacs In directory clnet:/tmp/cvs-serv30253
Modified Files: lisp-syntax.lisp Log Message: Proper indentation of multi-line string forms.
--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/02 17:04:37 1.61 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/05/02 17:47:19 1.62 @@ -2089,6 +2089,9 @@ (values (elt-noncomment (children tree) (1- (car path))) 0)) (t (indent-form syntax (elt-noncomment (children tree) (car path)) (cdr path)))))
+(defmethod indent-form ((syntax lisp-syntax) (tree string-form) path) + (values (form-toplevel tree syntax) 0)) + ;; FIXME: The next two methods are basically identical to the above definition, ;; something should be done about this duplication.