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)))