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)