[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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))