From pscott at common-lisp.net  Fri Oct 21 21:22:49 2005
From: pscott at common-lisp.net (Peter Scott)
Date: Fri, 21 Oct 2005 23:22:49 +0200 (CEST)
Subject: [cl-utilities-cvs] CVS update: cl-utilities/package.lisp
	cl-utilities/test.lisp 
Message-ID: <20051021212249.6239C88545@common-lisp.net>

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)