[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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.