From 5878ce1dea03277b521f7bdb1183102b7547e980 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Fri, 1 Oct 2010 14:13:39 -0400 Subject: [PATCH] 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.) --- asdf.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 7ce8537b..49eb2c54 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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 -- GitLab