Fix make-array transforms.

[sbcl.git] / tests / mop-1.impure-cload.lisp

diff --git a/tests/mop-1.impure-cload.lisp b/tests/mop-1.impure-cload.lisp
index 42f7453..9d33e90 100644 (file)
--- a/tests/mop-1.impure-cload.lisp
+++ b/tests/mop-1.impure-cload.lisp
@@ -6,7 +6,7 @@
 ;;;; While most of SBCL is derived from the CMU CL system, the test
 ;;;; files (like this one) were written from scratch after the fork
 ;;;; from CMU CL.
-;;;; 
+;;;;
 ;;;; This software is in the public domain and is provided with
 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
 ;;;; more information.
@@ -85,21 +85,21 @@
         (call-next-method))))
 
 (defmethod (setf slot-value-using-class) (new-value (class dynamic-slot-class)
-                                         instance slotd)
+                                          instance slotd)
   (let ((slot (find slotd (class-slots class))))
     (if slot
-       (write-dynamic-slot-value new-value instance (slot-definition-name slotd))
-       (call-next-method))))
+        (write-dynamic-slot-value new-value instance (slot-definition-name slotd))
+        (call-next-method))))
 
 (defmethod slot-boundp-using-class ((class dynamic-slot-class)
-                                   instance slotd)
+                                    instance slotd)
   (let ((slot (find slotd (class-slots class))))
     (if slot
         (dynamic-slot-boundp instance (slot-definition-name slotd))
         (call-next-method))))
 
 (defmethod slot-makunbound-using-class ((class dynamic-slot-class)
-                                       instance slotd)
+                                        instance slotd)
   (let ((slot (find slotd (class-slots class))))
     (if slot
         (dynamic-slot-makunbound instance (slot-definition-name slotd))