[bknr-cvs] ksprotte changed trunk/bknr/datastore/src/utils/acl-mp-compat.lisp

[BKNR Commits]

Revision: 3483
Author: ksprotte
URL: http://bknr.net/trac/changeset/3483

better to use &body body (and not &rest) for two with-* macros

U   trunk/bknr/datastore/src/utils/acl-mp-compat.lisp

Modified: trunk/bknr/datastore/src/utils/acl-mp-compat.lisp
===================================================================
--- trunk/bknr/datastore/src/utils/acl-mp-compat.lisp	2008-07-17 12:15:06 UTC (rev 3482)
+++ trunk/bknr/datastore/src/utils/acl-mp-compat.lisp	2008-07-17 12:18:34 UTC (rev 3483)
@@ -17,7 +17,7 @@
   #+lispworks
   (mp:make-lock :name name))
 
-(defmacro mp-with-lock-held ((lock) &rest body)
+(defmacro mp-with-lock-held ((lock) &body body)
   #+allegro
   `(mp:with-process-lock (,lock)
     , at body)
@@ -34,7 +34,7 @@
   `(mp:with-lock (,lock)
     , at body))
 
-(defmacro mp-with-recursive-lock-held ((lock) &rest body)
+(defmacro mp-with-recursive-lock-held ((lock) &body body)
   #+allegro
   `(mp:with-process-lock (,lock)
     , at body)