[climacs-cvs] CVS climacs

[thenriksen]

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

Modified Files:
	typeout.lisp 
Log Message:
Small performance improvement for typeout views.


--- /project/climacs/cvsroot/climacs/typeout.lisp	2008/01/23 18:17:05	1.4
+++ /project/climacs/cvsroot/climacs/typeout.lisp	2008/01/23 19:08:47	1.5
@@ -47,8 +47,8 @@
 
 (defmethod handle-redisplay ((pane drei-pane) (view typeout-view) (region region))
   (if (and (not (dirty view))
-           (find (output-history view)
-                 (output-record-children (stream-output-history pane))))
+           (eq (output-record-parent (output-history view))
+               (stream-output-history pane)))
       (replay (stream-output-history pane) pane region)
       (call-next-method)))