From 0e477cf3bb462ccb6637a3ccaee6ac78a525649e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 2 May 2021 13:08:39 -0700 Subject: APPLY-AND-PRINT: propagate the return value of the final application Mainly for the sake of EVALS. Signed-off-by: Sean Whitton --- src/combinator.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/combinator.lisp') 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 -- cgit v1.2.3