diff --git a/bundle.lisp b/bundle.lisp index eaff684d232c3db188b2825046733b96e4afa8bc..39876acdf4b7017a66d95456fe4da1d8cd5f33f7 100644 --- a/bundle.lisp +++ b/bundle.lisp @@ -328,6 +328,7 @@ for all the linkable object files associated with the system or its dependencies ((:program) 'program-op))) + ;; DEPRECATED. This is originally from asdf-ecl.lisp. Does anyone use it? (defun make-build (system &rest args &key (monolithic nil) (type :fasl) (move-here nil move-here-p) &allow-other-keys) @@ -354,7 +355,12 @@ for all the linkable object files associated with the system or its dependencies (copy-file f new-f) (delete-file-if-exists f))) :collect new-f) - files)))) + files))) + + ;; DEPRECATED. Does anyone use this? + (defun bundle-system (system &rest args &key force (verbose t) version &allow-other-keys) + (declare (ignore force verbose version)) + (apply #'operate 'deliver-asd-op system args))) ;;; ;;; LOAD-BUNDLE-OP