X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffop.lisp;h=16e2a12d22fc9dcecc4aae933a182030f556e5f0;hb=747c3580d19ab13136d3a9768e542080cf878141;hp=9891b4690dfd1f599c2d5077a244aaedfe503743;hpb=8e1b05fa04bfb1c2da7a766143792ae8b68a78d4;p=sbcl.git

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