Update of /project/cl-utilities/cvsroot/cl-utilities
In directory common-lisp.net:/tmp/cvs-serv28127
Modified Files:
package.lisp test.lisp
Log Message:
Fixed symbol export bug involving WITH-COLLECTORS and added test code to
ensure that it doesn't happen again.
Date: Fri Oct 21 23:22:47 2005
Author: pscott
Index: cl-utilities/package.lisp
diff -u cl-utilities/package.lisp:1.3 cl-utilities/package.lisp:1.4
--- cl-utilities/package.lisp:1.3 Mon Aug 29 22:14:47 2005
+++ cl-utilities/package.lisp Fri Oct 21 23:22:47 2005
@@ -21,7 +21,7 @@
#:collecting
#:collect
- #:with-collect
+ #:with-collectors
#:with-unique-names
#:with-gensyms
Index: cl-utilities/test.lisp
diff -u cl-utilities/test.lisp:1.5 cl-utilities/test.lisp:1.6
--- cl-utilities/test.lisp:1.5 Fri May 13 21:45:57 2005
+++ cl-utilities/test.lisp Fri Oct 21 23:22:47 2005
@@ -87,7 +87,14 @@
(is (tree-equal (collecting
(labels ((collect-it (x) (collect x)))
(mapcar #'collect-it (reverse '(c b a)))))
- '(a b c))))
+ '(a b c)))
+ (is (tree-equal (multiple-value-bind (a b)
+ (with-collectors (x y)
+ (x 1)
+ (y 2)
+ (x 3))
+ (append a b))
+ '(1 3 2))))
(test with-unique-names
(is (equalp (subseq (with-unique-names (foo)
