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

Modified Files: views.lisp Log Message: Fixed small bug in `remember-changed-region'.

--- /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/22 15:21:07 1.26 +++ /project/mcclim/cvsroot/mcclim/Drei/views.lisp 2008/01/22 20:14:43 1.27 @@ -616,9 +616,7 @@ ;; If start/end is wholly before (first list), push ;; on a new region. ((< start (car (first list))) - (setf (first list) - (cons (cons start end) (first list))) - list) + (cons (cons start end) (first list))) ;; If start/end is wholly before (first list), go ;; further down list. If at end of list, add new ;; element.