;; Prevent ASDF from upgrading itself. Otherwise it will do this
;; automatically if a script invokes `asdf:load-system', but that will have a
;; bad effect on startup time, and risks spamming the output streams with
-;; drivel.
+;; drivel. Some ancient Lisps come with an ASDF which doesn't understand
+;; `register-immutable-system', so do the job by hand if necessary.
inhibit-asdf-upgrade =
- (funcall (intern "REGISTER-IMMUTABLE-SYSTEM"
- (find-package "ASDF"))
- "asdf")
+ (let* ((#1300=#:root (find-package "ASDF"))
+ (#1301=#:ris (find-symbol "REGISTER-IMMUTABLE-SYSTEM" #1300#)))
+ (if (and #1301# (fboundp #1301#))
+ (funcall #1301# "asdf")
+ (let* ((#1302=#:fsys (find-package "ASDF/FIND-SYSTEM"))
+ (#1303=#:iss (find-symbol "*IMMUTABLE-SYSTEMS*" #1302#))
+ (#1304=#:dss (find-symbol "*DEFINED-SYSTEMS*" #1302#))
+ (#1305=#:sys (find-symbol "SYSTEM" #1300#)))
+ (unless (symbol-value #1303#)
+ (setf (symbol-value #1303#)
+ (make-hash-table :test (function equal))))
+ (setf (gethash "asdf" (symbol-value #1303#)) t
+ (gethash "asdf" (symbol-value #1304#))
+ (cons (get-universal-time)
+ (make-instance #1305# :name "asdf"))))))
;; Upgrade ASDF from the source registry.
upgrade-asdf =
${command}
$?@image{-core "${image-path}" -eval "${image-restore}" |
-batch -noinit -quiet
- -eval "(progn
+ -eval "(handler-bind
+ ((warning
+ (lambda (#0=#:c)
+ (declare (ignore #0#))
+ (invoke-restart
+ 'muffle-warning))))
(setf ext:*require-verbose* nil)
${run-script-prelude}
${clear-cl-user})"}