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