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