0.9.2.43:
[sbcl.git] / contrib / asdf-stub.lisp
index 4864c69..d084d72 100644 (file)
 
 (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*)