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)