[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv11341/Drei

Modified Files:
	lisp-syntax.lisp 
Log Message:
Minor fix for supporting multiple views of same parse tree on same
stream.


--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2006/11/08 17:52:55	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2006/11/09 00:53:21	1.3
@@ -1866,13 +1866,12 @@
 (defmethod display-parse-tree ((parser-symbol literal-object-lexeme) stream (drei drei)
                                (syntax lisp-syntax))
   (updating-output
-      (stream :unique-id (list stream parser-symbol)
+      (stream :unique-id (list drei parser-symbol)
               :id-test #'equal
               :cache-value parser-symbol
               :cache-test #'eql)
     (let ((object (token-to-object syntax parser-symbol)))
-      (present object
-               (presentation-type-of object) :stream stream))))
+      (present object (presentation-type-of object) :stream stream))))
 
 (defmethod display-parse-tree ((parser-symbol lisp-lexeme) stream (drei drei)
                                (syntax lisp-syntax))
@@ -1883,7 +1882,7 @@
                 (eq (slot-value t1 'face)
                     (text-style-face (medium-text-style (sheet-medium stream)))))))
     (updating-output
-        (stream :unique-id (list stream parser-symbol)
+        (stream :unique-id (list drei parser-symbol)
                 :id-test #'equal
                 :cache-value parser-symbol
                 :cache-test #'cache-test)