diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-02 13:08:39 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 12:23:51 -0700 |
| commit | 0e477cf3bb462ccb6637a3ccaee6ac78a525649e (patch) | |
| tree | b7a8db617646591c860ba15ee5d956b2ed04b0a5 /src/combinator.lisp | |
| parent | 8d1f11857c1b4988c554df5bf59920a2b75ec4c2 (diff) | |
| download | consfigurator-0e477cf3bb462ccb6637a3ccaee6ac78a525649e.tar.gz | |
APPLY-AND-PRINT: propagate the return value of the final application
Mainly for the sake of EVALS.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
| -rw-r--r-- | src/combinator.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 2be992a..902fa60 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -142,8 +142,8 @@ apply the elements of REQUIREMENTS in reverse order." (:no-change "ok") (:failed-change "failed") (t "done")))) - (unless (or (null return-value) (eql result :no-change)) - (setq return-value nil))))))) + (unless (eql result :no-change) + (setq return-value result))))))) (define-function-property-combinator unapply (propapp) (destructuring-bind (psym . args) propapp |