28 Nov
2006
28 Nov
'06
11:34 p.m.
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)