X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Finit.lisp;h=9614439248c3a5bfb8ad1884ac8f940372868541;hb=9a2e730f74641e7de6ad4099111db92c5ad863bf;hp=a1821ec0983dc334d268679cac5a9b010b79e082;hpb=d40a76606c86722b0aef8179155f9f2840739b72;p=sbcl.git

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index a1821ec..9614439 100644
--- a/src/pcl/init.lisp
+++ b/src/pcl/init.lisp
@@ -225,12 +225,12 @@
     ;; Now check the supplied-initarg-names and the default initargs
     ;; against the total set that we know are legal.
     (doplist (key val) initargs
-       (unless (memq key legal)
-	 (if error-p
-	     (error "Invalid initialization argument ~S for class ~S"
-		    key
-		    (class-name class))
-	     (return-from check-initargs-2-plist nil)))))
+      (unless (memq key legal)
+	(if error-p
+	    (error "Invalid initialization argument ~S for class ~S"
+		   key
+		   (class-name class))
+	    (return-from check-initargs-2-plist nil)))))
   t)
 
 (defun check-initargs-2-list (initkeys class legal &optional (error-p t))