diff options
-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 |