[mcclim-cvs] CVS mcclim

[afuchs]

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

Modified Files:
	incremental-redisplay.lisp 
Log Message:
Remove the STAY list for good from c-d-set.

Agh. Save your buffers before committing. Sorry for the commits spam.


--- /project/mcclim/cvsroot/mcclim/incremental-redisplay.lisp	2006/04/20 23:21:35	1.58
+++ /project/mcclim/cvsroot/mcclim/incremental-redisplay.lisp	2006/04/20 23:25:23	1.59
@@ -754,7 +754,6 @@
   ;; (declare (values erases moves draws erase-overlapping move-overlapping))
   (let (was
         is
-        stay
         come
         (everywhere (or +everywhere+
                         (pane-viewport-region (updating-output-stream record))))
@@ -772,7 +771,8 @@
                ;; stay = is ^ was
                (cond ((updating-output-record-p record)
                       (if (eq :clean (output-record-dirty record))
-                          (push record stay)
+                          (spatial-trees:insert
+                             (make-tree-output-record-entry record 0) stay-tree)
                           (push record come)))
                      (t
                       (let ((q (gethash (output-record-hash record) was-table)))