Plaster

(defclass test-system (asdf:system) ()) (defclass test-file (asdf:cl-source-file) ()) (asdf:defsystem #:asdf-test :class #.(find-class 'test-system) :default-component-class #.(find-class 'test-file) :depends-on (:str :ironclad :spinneret)) ; Set the output pathname when building the system. (defmethod asdf:output-files ((o asdf:monolithic-compile-bundle-op) (system test-system)) (declare (ignorable system)) (values (list (asdf:system-relative-pathname system "dependencies.fasl")) t)) (defmethod asdf:operate :after ((o asdf:load-op) (system test-system) &key &allow-other-keys) (with-slots (asdf/component:name) system (print asdf/component:name) (asdf:perform (asdf:operate 'asdf:monolithic-compile-bundle-op asdf/component:name) asdf/component:name)))