From 747c3580d19ab13136d3a9768e542080cf878141 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 9 Dec 2011 10:11:49 +0200 Subject: [PATCH] make DEFINE-FOP use &BODY instead of &REST --- src/code/fop.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4