X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=aee604a3d7d28e501de0a195e4a5d5ae4c6882e5;hb=c457d41e87e7ab27bb92f59f0e7839fe23b9d020;hp=7487b14d8939085e7faf1c6ea7e06a865d348560;hpb=08d8d7bccb7642ba4fb54e05fe55c47228951130;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 7487b14..aee604a 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -1987,9 +1987,9 @@ bootstrapping.
     (let ((method-class (getf ,all-keys :method-class '.shes-not-there.)))
       (unless (eq method-class '.shes-not-there.)
         (setf (getf ,all-keys :method-class)
-	      (cond ((classp method-class)
-		     method-class)
-		    (t (find-class method-class t ,env))))))))
+              (cond ((classp method-class)
+                     method-class)
+                    (t (find-class method-class t ,env))))))))
 
 (defun real-ensure-gf-using-class--generic-function
        (existing