diff --git a/bundle.lisp b/bundle.lisp index 4c5c6ea9fa1a950969024f325f111abf46f4f71a..7c6204cf23e184455cafcf1de2ff0b99de46ba9d 100644 --- a/bundle.lisp +++ b/bundle.lisp @@ -127,6 +127,10 @@ itself.")) ;; operation on a system and its dependencies ((gather-op :initform #+(or ecl mkcl) 'lib-op #-(or ecl mkcl) 'compile-bundle-op :allocation :class)) (:documentation "Create a single fasl for the system and its dependencies.")) + (defclass monolithic-load-bundle-op (monolithic-bundle-op load-bundle-op) + ((selfward-operation :initform 'monolithic-compile-bundle-op :allocation :class)) + (:documentation "Load a single fasl for the system and its dependencies.")) + (defclass monolithic-lib-op (monolithic-bundle-op lib-op non-propagating-operation) () (:documentation "Create a single linkable library for the system and its dependencies.")) diff --git a/test/test-operation-classes.script b/test/test-operation-classes.script index 8482596ee99c7382d5b4220d56df86be746795e6..90816d203dfef4f901d1b03732a211f5e0ff0d61 100644 --- a/test/test-operation-classes.script +++ b/test/test-operation-classes.script @@ -11,6 +11,7 @@ (defparameter *good-classes* '(build-op + compile-bundle-op compile-concatenated-source-op compile-op concatenate-source-op @@ -19,6 +20,7 @@ fasl-op image-op lib-op + load-bundle-op load-compiled-concatenated-source-op load-concatenated-source-op load-fasl-op @@ -32,7 +34,7 @@ monolithic-lib-op monolithic-load-compiled-concatenated-source-op monolithic-load-concatenated-source-op - prepare-fasl-op + prepare-bundle-op prepare-op prepare-source-op program-op