X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fmop-2.impure-cload.lisp;h=a3d7bc8ae442a62ea442ac53bd0fc7fbba8e10cd;hb=578d987735906eb05829f0c2235a3ba9225c2bc4;hp=0f229a04e9af4ed98100a0f7a7101c400d686bb9;hpb=b171183c7115b865b00662ff346061ecd5291ce4;p=sbcl.git

diff --git a/tests/mop-2.impure-cload.lisp b/tests/mop-2.impure-cload.lisp
index 0f229a0..a3d7bc8 100644
--- a/tests/mop-2.impure-cload.lisp
+++ b/tests/mop-2.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.
@@ -82,21 +82,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 (and slot (dynamic-slot-p 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 (and slot (dynamic-slot-p 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 (and slot (dynamic-slot-p slot))
         (dynamic-slot-makunbound instance (slot-definition-name slotd))
@@ -135,18 +135,18 @@
 
 (defmethod (setf slot-value-using-class) (new-value
                                           (class dynamic-slot-subclass)
-					  instance slotd)
+                                          instance slotd)
   (let ((slot (find slotd (class-slots class))))
     (if (and slot (dynamic-slot-p 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-subclass)
                                     instance slotd)
   (let ((slot (find slotd (class-slots class))))
     (if (and slot (dynamic-slot-p slot))
-	(dynamic-slot-boundp instance (slot-definition-name slotd))
-	(call-next-method))))
+        (dynamic-slot-boundp instance (slot-definition-name slotd))
+        (call-next-method))))
 
 (defclass test-class-3 (test-class-1)
   ((slot2 :initarg :slot2 :initform t :allocation :dynamic)