X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-1.impure-cload.lisp;h=9d33e90e5e65a5da311f0e90b41ad77458a5e332;hb=d7875c296a4988e9f27e2776237884deb1984c62;hp=42f7453d142eee8b357ca3cb4daf0ee7a56b214f;hpb=dcff832392202acbd0c71c5cb8e27ef887065ca0;p=sbcl.git

diff --git a/tests/mop-1.impure-cload.lisp b/tests/mop-1.impure-cload.lisp
index 42f7453..9d33e90 100644
--- 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))