X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdestructuring-bind.lisp;h=e2d699d817f2cdda64103a4bd7f12eac8063599a;hb=f2847d6ed16e60390d000410d36ec7fb2570cdaf;hp=4ea6b48f7c2f12ebef816a28ff8d681642bef2f9;hpb=8bcffb407835ff680d5ee2ba1f7ce97839bbae3e;p=sbcl.git

diff --git a/src/code/destructuring-bind.lisp b/src/code/destructuring-bind.lisp
index 4ea6b48..e2d699d 100644
--- a/src/code/destructuring-bind.lisp
+++ b/src/code/destructuring-bind.lisp
@@ -9,7 +9,7 @@
 
 (in-package "SB!IMPL")
 
-(defmacro-mundanely destructuring-bind (lambda-list expression &rest body)
+(defmacro-mundanely destructuring-bind (lambda-list expression &body body)
   #!+sb-doc
   "Bind the variables in LAMBDA-LIST to the corresponding values in the
 tree structure resulting from the evaluation of EXPRESSION."