Skip to content
Snippets Groups Projects
Commit da7505a8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Deprecate require-system

parent bcfbac2f
No related branches found
No related tags found
No related merge requests found
...@@ -16,7 +16,7 @@ ...@@ -16,7 +16,7 @@
#:operation-on-failure #:operation-on-warnings #:on-failure #:on-warnings #:operation-on-failure #:operation-on-warnings #:on-failure #:on-warnings
#:component-property #:component-property
#:run-shell-command #:run-shell-command
#:system-definition-pathname #:system-registered-p #:system-definition-pathname #:system-registered-p #:require-system
#:explain)) #:explain))
(in-package :asdf/backward-interface) (in-package :asdf/backward-interface)
...@@ -218,5 +218,11 @@ The value returned if true is a pair of a timestamp and a system object." ...@@ -218,5 +218,11 @@ The value returned if true is a pair of a timestamp and a system object."
(if-let (system (registered-system name)) (if-let (system (registered-system name))
(cons (if-let (primary-system (registered-system (primary-system-name name))) (cons (if-let (primary-system (registered-system (primary-system-name name)))
(component-operation-time 'define-op primary-system)) (component-operation-time 'define-op primary-system))
system)))) system)))
(defun require-system (system &rest keys &key &allow-other-keys)
"Ensure the specified SYSTEM is loaded, passing the KEYS to OPERATE, but do not update the
system or its dependencies if it has already been loaded."
(declare (ignore keys))
(unless (component-loaded-p system)
(load-system system))))
...@@ -183,14 +183,7 @@ Note that this returns true even if the component is not up to date." ...@@ -183,14 +183,7 @@ Note that this returns true even if the component is not up to date."
(defun already-loaded-systems () (defun already-loaded-systems ()
"return a list of the names of the systems that have been successfully loaded so far" "return a list of the names of the systems that have been successfully loaded so far"
(mapcar 'coerce-name (remove-if-not 'component-loaded-p (registered-systems*)))) (mapcar 'coerce-name (remove-if-not 'component-loaded-p (registered-systems*)))))
(defun require-system (system &rest keys &key &allow-other-keys)
"Ensure the specified SYSTEM is loaded, passing the KEYS to OPERATE, but do not update the
system or its dependencies if it has already been loaded."
(declare (ignore keys))
(unless (component-loaded-p system)
(load-system system))))
;;;; Define the class REQUIRE-SYSTEM, to be hooked into CL:REQUIRE when possible, ;;;; Define the class REQUIRE-SYSTEM, to be hooked into CL:REQUIRE when possible,
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment