1.0.10.13: trivial change: Print more explicit message upon entering LDB.
[sbcl.git] / contrib / asdf-stub.lisp
1 (load "SYS:CONTRIB;ASDF;ASDF.FASL")
2
3 (let ((asdf:*central-registry* nil))
4   (push :sb-building-contrib *features*)
5   (asdf:operate 'asdf:load-op *system*)
6   (let ((stub (make-pathname :name *system* :type "lisp")))
7     (when (probe-file (compile-file-pathname stub))
8       (error "fasl file exists"))
9     (with-open-file (s stub :direction :output :if-exists :error)
10       (print '(unless (member "ASDF" *modules* :test #'string=)
11                (require :asdf))
12              s)
13       ;; we find our contribs without reference to *central-registry*.
14       (print `(let ((asdf:*central-registry* nil))
15                (asdf::module-provide-asdf ,*system*))
16              s))
17     (compile-file stub)
18     (delete-file stub)))