Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv16390

Modified Files: more-macros.lisp Log Message: Don't forget &body also for d-bind.

--- /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp 2008/03/08 13:59:48 1.38 +++ /project/movitz/cvsroot/movitz/losp/muerte/more-macros.lisp 2008/03/08 14:03:35 1.39 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.38 2008/03/08 13:59:48 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.39 2008/03/08 14:03:35 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -168,7 +168,8 @@ bindings)) ((pop-match '&optional sub-lambda-list) (gen-optvars var sub-lambda-list)) - ((pop-match '&rest sub-lambda-list) + ((or (pop-match '&rest sub-lambda-list) + (pop-match '&body sub-lambda-list)) (gen-restvar var sub-lambda-list)) ((pop-match '&aux sub-lambda-list) (dolist (b sub-lambda-list) @@ -193,7 +194,8 @@ ((symbolp sub-lambda-list) ; dotted lambda-list? (push (list sub-lambda-list var) bindings)) - ((pop-match '&rest sub-lambda-list) + ((or (pop-match '&rest sub-lambda-list) + (pop-match '&body sub-lambda-list)) (gen-restvar var sub-lambda-list)) ((pop-match '&key sub-lambda-list) (gen-keyvars var sub-lambda-list))