make DEFINE-FOP use &BODY instead of &REST
authorNikodemus Siivola <nikodemus@random-state.net>
Fri, 9 Dec 2011 08:11:49 +0000 (10:11 +0200)
committerNikodemus Siivola <nikodemus@random-state.net>
Fri, 9 Dec 2011 12:25:00 +0000 (14:25 +0200)
src/code/fop.lisp

index 9891b46..16e2a12 100644 (file)
@@ -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