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

Introduce load-systems* as a variant of load-systems that allows for keyword arguments.

parent 285a61e9
No related branches found
No related tags found
No related merge requests found
......@@ -222,7 +222,7 @@
(defsystem-dependencies (loop :for spec :in defsystem-depends-on :collect
(resolve-dependency-spec nil spec))))
(setf (gethash name *systems-being-defined*) system)
(apply 'load-systems defsystem-dependencies)
(load-systems* defsystem-dependencies)
;; We change-class AFTER we loaded the defsystem-depends-on
;; since the class might be defined as part of those.
(let ((class (class-for-type nil class)))
......
......@@ -22,7 +22,7 @@
#:oos #:operate #:make-plan #:perform-plan #:sequential-plan
#:system-definition-pathname #:with-system-definitions
#:search-for-system-definition #:find-component #:component-find-path
#:compile-system #:load-system #:load-systems
#:compile-system #:load-system #:load-systems #:load-systems*
#:require-system #:test-system #:clear-system
#:operation #:make-operation #:find-operation
#:upward-operation #:downward-operation #:sideway-operation #:selfward-operation
......
......@@ -10,7 +10,8 @@
#:operate #:oos
#:*systems-being-operated*
#:build-system
#:load-system #:load-systems #:compile-system #:test-system #:require-system
#:load-system #:load-systems #:load-systems*
#:compile-system #:test-system #:require-system
#:*load-system-operation* #:module-provide-asdf
#:component-loaded-p #:already-loaded-systems))
(in-package :asdf/operate)
......@@ -120,9 +121,13 @@ for how to load or compile stuff")
(apply 'operate *load-system-operation* system keys)
t)
(defun load-systems* (systems &rest keys)
"Loading multiple systems at once."
(dolist (s systems) (apply 'load-system s keys)))
(defun load-systems (&rest systems)
"Loading multiple systems at once."
(map () 'load-system systems))
(load-systems* systems))
(defun compile-system (system &rest args &key force force-not verbose version &allow-other-keys)
"Shorthand for `(asdf:operate 'asdf:compile-op system)`. See OPERATE for details."
......
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