Commit 5878ce1d authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.133: have toplevel functions load-system &c return T on success.

If you want the detailed information that the default operate method
currently returns, you know whom to call to get it.
(Unconfusion of the API suggested by Xach.)
parent 927e8770
Loading
Loading
Loading
Loading
+7 −4
Original line number Diff line number Diff line
@@ -72,7 +72,7 @@
  (defvar *asdf-version* nil)
  (defvar *upgraded-p* nil)
  (let* ((asdf-version ;; the 1+ helps the version bumping script discriminate
          (subseq "VERSION:2.132" (1+ (length "VERSION"))))
          (subseq "VERSION:2.133" (1+ (length "VERSION"))))
         (existing-asdf (fboundp 'find-system))
         (existing-version *asdf-version*)
         (already-there (equal asdf-version existing-version)))
@@ -2108,21 +2108,24 @@ created with the same initargs as the original one.
  "Shorthand for `(operate 'asdf:load-op system)`. See OPERATE for
details."
  (declare (ignore force verbose version))
  (apply #'operate 'load-op system args))
  (apply #'operate 'load-op system args)
  t)

(defun* compile-system (system &rest args &key force verbose version
                       &allow-other-keys)
  "Shorthand for `(operate 'asdf:compile-op system)`. See OPERATE
for details."
  (declare (ignore force verbose version))
  (apply #'operate 'compile-op system args))
  (apply #'operate 'compile-op system args)
  t)

(defun* test-system (system &rest args &key force verbose version
                    &allow-other-keys)
  "Shorthand for `(operate 'asdf:test-op system)`. See OPERATE for
details."
  (declare (ignore force verbose version))
  (apply #'operate 'test-op system args))
  (apply #'operate 'test-op system args)
  t)

;;;; -------------------------------------------------------------------------
;;;; Defsystem