0.7.7.11:

[sbcl.git] / src / pcl / init.lisp

diff --git a/src/pcl/init.lisp b/src/pcl/init.lisp
index a1821ec..9614439 100644 (file)
--- 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))