[9c3a95]: contrib / asdf-stub.lisp Maximize Restore History

Download this file

asdf-stub.lisp    19 lines (17 with data), 721 Bytes

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