[climacs-cvs] CVS update: climacs/base.lisp

[Matthieu Villeneuve]

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 , at body)))
 
 (defgeneric backward-object (mark &optional count))