From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 9 Dec 2011 08:11:49 +0000 (+0200)
Subject: make DEFINE-FOP use &BODY instead of &REST
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=747c3580d19ab13136d3a9768e542080cf878141;p=sbcl.git

make DEFINE-FOP use &BODY instead of &REST
---

diff --git a/src/code/fop.lisp b/src/code/fop.lisp
index 9891b46..16e2a12 100644
--- a/src/code/fop.lisp
+++ b/src/code/fop.lisp
@@ -17,7 +17,7 @@
 ;;;     The body might pop the fop stack. The result of the body is
 ;;;     discarded.
 ;;; STACKP describes whether or not the body interacts with the fop stack.
-(defmacro define-fop ((name fop-code &key (pushp t) (stackp t)) &rest forms)
+(defmacro define-fop ((name fop-code &key (pushp t) (stackp t)) &body forms)
   `(progn
      (defun ,name ()
        ,(if stackp