diff options
-rw-r--r-- | src/combinator.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
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))))))) |