X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Floop.lisp;h=a1cec364536e36aa844afa811e8464a42489883c;hb=5bf4a6a677c80a71dfa31b5c9c374f986594392f;hp=d03284b8e314bd66330e0fa4038161f6657323b8;hpb=89925c1f87e50d52862bf26bfa07962925ddb403;p=sbcl.git

diff --git a/src/code/loop.lisp b/src/code/loop.lisp
index d03284b..a1cec36 100644
--- a/src/code/loop.lisp
+++ b/src/code/loop.lisp
@@ -760,9 +760,27 @@ code to be loaded.
 			   specified-type required-type)))
 	specified-type)))
 
+(defun subst-gensyms-for-nil (tree)
+  (declare (special *ignores*))
+  (cond
+    ((null tree) (car (push (gensym "LOOP-IGNORED-VAR-") *ignores*)))
+    ((atom tree) tree)
+    (t (cons (subst-gensyms-for-nil (car tree))
+	     (subst-gensyms-for-nil (cdr tree))))))
+    
+(sb!int:defmacro-mundanely loop-destructuring-bind
+    (lambda-list arg-list &rest body)
+  (let ((*ignores* nil))
+    (declare (special *ignores*))
+    (let ((d-var-lambda-list (subst-gensyms-for-nil lambda-list)))
+      `(destructuring-bind ,d-var-lambda-list
+	   ,arg-list
+	 (declare (ignore ,@*ignores*))
+         ,@body))))
+
 (defun loop-build-destructuring-bindings (crocks forms)
   (if crocks
-      `((destructuring-bind ,(car crocks) ,(cadr crocks)
+      `((loop-destructuring-bind ,(car crocks) ,(cadr crocks)
         ,@(loop-build-destructuring-bindings (cddr crocks) forms)))
       forms))