diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-08 12:35:30 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-10 21:01:28 -0700 |
| commit | f08989da7485b7bb165caa536eabd415a9f3ac7d (patch) | |
| tree | 4b20fb137a041a02da2a8b29b7dea68aff1effee /src/combinator.lisp | |
| parent | c59383aa6732d42ee51a01fabca39a91d275db46 (diff) | |
| download | consfigurator-f08989da7485b7bb165caa536eabd415a9f3ac7d.tar.gz | |
APPLY-AND-PRINT: avoid returning 'FAILED-CHANGE
The value is not meant to be used outside of combinator.lisp.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
| -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))))))) |