Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv804
Modified Files: base.lisp Log Message: Fixed bug in do-buffer-region Date: Thu Jan 20 15:37:38 2005 Author: mvilleneuve
Index: climacs/base.lisp diff -u climacs/base.lisp:1.23 climacs/base.lisp:1.24 --- climacs/base.lisp:1.23 Thu Jan 20 11:12:48 2005 +++ climacs/base.lisp Thu Jan 20 15:37:38 2005 @@ -36,7 +36,7 @@ The body is executed for each element, with object being the current object (setf-able), and offset being its offset." `(symbol-macrolet ((,object (buffer-object ,buffer ,offset))) - (loop for ,offset from ,offset1 to ,offset2 + (loop for ,offset from ,offset1 below ,offset2 do ,@body)))
(defgeneric backward-object (mark &optional count))