[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

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 at 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))