Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv25558/Drei
Modified Files: lisp-syntax.lisp Log Message: No longer presenting every lexeme as a string. That was probably a bad idea to begin with.
--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2006/12/11 22:04:55 1.13 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2006/12/13 20:41:56 1.14 @@ -1906,8 +1906,7 @@ (with-slots (ink face) parser-symbol (setf ink (medium-ink (sheet-medium stream)) face (text-style-face (medium-text-style (sheet-medium stream)))) - (let ((string (form-string syntax parser-symbol))) - (present string 'string :stream stream)))))) + (write-string (form-string syntax parser-symbol) stream)))))
(defmethod display-parse-tree :before ((parse-symbol lisp-lexeme) stream (drei drei) (syntax lisp-syntax))