X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fasdf-stub.lisp;h=d084d72f4684d795ceeb74d4421ddfd33b999044;hb=b6094d5640a59f36d2f727df08b271c422aa9e1c;hp=4864c696d6c6fb6551c7e4124dd0d7eb0a8ecdfa;hpb=80f222325e1f677e5cf8de01c6990906fa47f65d;p=sbcl.git

diff --git a/contrib/asdf-stub.lisp b/contrib/asdf-stub.lisp
index 4864c69..d084d72 100644
--- a/contrib/asdf-stub.lisp
+++ b/contrib/asdf-stub.lisp
@@ -12,15 +12,15 @@
 
 (with-open-file (s *system-stub* :direction :output :if-exists :error)
   (print '(unless (member "ASDF" *modules* :test #'string=)
-	   (load (merge-pathnames "asdf/asdf.fasl" (truename (sb-ext:posix-getenv "SBCL_HOME")))))
-	 s)
+           (load (merge-pathnames "asdf/asdf.fasl" (truename (sb-ext:posix-getenv "SBCL_HOME")))))
+         s)
   ;; This addition to *central-registry* allows us to find contribs
   ;; even if the user has frobbed the original contents.
   (print `(let ((asdf:*central-registry* (cons (merge-pathnames "systems/"
-								(truename (sb-ext:posix-getenv "SBCL_HOME")))
-					       asdf:*central-registry*)))
-	   (asdf::module-provide-asdf ,*system*))
-	 s))
+                                                                (truename (sb-ext:posix-getenv "SBCL_HOME")))
+                                               asdf:*central-registry*)))
+           (asdf::module-provide-asdf ,*system*))
+         s))
 
 (compile-file *system-stub*)
 (delete-file *system-stub*)