[armedbear-cvs] r13595 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sat Sep 17 13:05:11 2011
New Revision: 13595

Log:
Locally untabify.

Modified:
   trunk/abcl/src/org/armedbear/lisp/destructuring-bind.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/destructuring-bind.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/destructuring-bind.lisp	Sun Sep 11 12:48:21 2011	(r13594)
+++ trunk/abcl/src/org/armedbear/lisp/destructuring-bind.lisp	Sat Sep 17 13:05:11 2011	(r13595)
@@ -299,20 +299,20 @@
                       ,@(unless restp `(:maximum ,maximum)))))
             *arg-tests*))
     (if keys
-	(let ((problem (gensym "KEY-PROBLEM-"))
-	      (info (gensym "INFO-")))
-	  (push `(multiple-value-bind (,problem ,info)
-		     (verify-keywords ,rest-name ',keys ',allow-other-keys-p)
-		   (when ,problem
-;; 		     (,error-fun
-;; 		      'defmacro-lambda-list-broken-key-list-error
-;; 		      :kind ',error-kind
-;; 		      ,@(when name `(:name ',name))
-;; 		      :problem ,problem
-;; 		      :info ,info)
+        (let ((problem (gensym "KEY-PROBLEM-"))
+              (info (gensym "INFO-")))
+          (push `(multiple-value-bind (,problem ,info)
+                     (verify-keywords ,rest-name ',keys ',allow-other-keys-p)
+                   (when ,problem
+;;                   (,error-fun
+;;                    'defmacro-lambda-list-broken-key-list-error
+;;                    :kind ',error-kind
+;;                    ,@(when name `(:name ',name))
+;;                    :problem ,problem
+;;                    :info ,info)
                      (error 'program-error "Unrecognized keyword argument ~S" (car ,info)))
                      )
-		*arg-tests*)))
+                *arg-tests*)))
     (values env-arg-used minimum (if (null restp) maximum nil))))