[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	kill-ring.lisp 
Log Message:
Oops. This should obviously be `setf' and not `set'.


--- /project/mcclim/cvsroot/mcclim/Drei/kill-ring.lisp	2006/11/19 11:39:45	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/kill-ring.lisp	2006/11/28 23:34:10	1.3
@@ -118,8 +118,8 @@
   (unless (typep size 'integer)
     (error "Error, ~S, is not an integer value" size))
   (if (< size 5)
-    (set (slot-value kr 'max-size) 5)
-    (setf (slot-value kr 'max-size) size))
+      (setf (slot-value kr 'max-size) 5)
+      (setf (slot-value kr 'max-size) size))
   (let ((len (kill-ring-length kr)))
     (if (> len size)
 	(loop for n from 1 to (- len size)