[climacs-cvs] CVS update: climacs/base.lisp
Matthieu Villeneuve
mvilleneuve at common-lisp.net
Thu Jan 20 23:37:39 UTC 2005
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))
More information about the Climacs-cvs
mailing list