From f08989da7485b7bb165caa536eabd415a9f3ac7d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 8 Jul 2021 12:35:30 -0700 Subject: APPLY-AND-PRINT: avoid returning 'FAILED-CHANGE The value is not meant to be used outside of combinator.lisp. Signed-off-by: Sean Whitton --- src/combinator.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/combinator.lisp') diff --git a/src/combinator.lisp b/src/combinator.lisp index 3598e9b..94ffcf2 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -168,7 +168,8 @@ apply the elements of REQUIREMENTS in reverse order." (:no-change "ok") ('failed-change "failed") (t "done"))))) - (setf (fill-pointer buffer) 0) + (setf (fill-pointer buffer) 0 + result (if (eql result 'failed-change) nil result)) (unless (eql result :no-change) (setq return-value result))))))) -- cgit v1.2.3