;; 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 =