[bknr-cvs] r2377 - branches/bos/projects/bos/m2

[hhubner at common-lisp.net]

Author: hhubner
Date: Mon Jan 21 09:14:09 2008
New Revision: 2377

Modified:
   branches/bos/projects/bos/m2/test-fixtures.lisp
Log:
&rest statt &body


Modified: branches/bos/projects/bos/m2/test-fixtures.lisp
==============================================================================
--- branches/bos/projects/bos/m2/test-fixtures.lisp	(original)
+++ branches/bos/projects/bos/m2/test-fixtures.lisp	Mon Jan 21 09:14:09 2008
@@ -9,7 +9,7 @@
 		  :website-url bos.m2::*website-url*)
   (format t "~&;; ++ reopen-store done~%"))
 
-(defmacro reopen-store ((&key snapshot) &body store-object-vars)
+(defmacro reopen-store ((&key snapshot) &rest store-object-vars)
   (let ((id-vars (iter
 		   (with *print-case* = :upcase)
 		   (for store-object-var in store-object-vars)