diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-05 23:18:49 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-07-10 20:46:00 -0700 |
commit | 28350744e602b3291a169ea75713b1fc3caaef5d (patch) | |
tree | 76dc54acc6df7ac2c0ca38643e058bc6f07bf000 /src/combinator.lisp | |
parent | 9e7ae48590379a0f9f3611c689f4d37d8268ef10 (diff) | |
download | consfigurator-28350744e602b3291a169ea75713b1fc3caaef5d.tar.gz |
APPLY-AND-PRINT: fix clearing the buffer
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/combinator.lisp')
-rw-r--r-- | src/combinator.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/combinator.lisp b/src/combinator.lisp index 220b61e..420576e 100644 --- a/src/combinator.lisp +++ b/src/combinator.lisp @@ -124,7 +124,6 @@ apply the elements of REQUIREMENTS in reverse order." (labels ((propapp-apply (propapp) (if unapply (propappunapply propapp) (propappapply propapp))) (announce-propapp-apply (propapp) - (setf (fill-pointer buffer) 0) (with-output-to-string (*standard-output* buffer) (with-indented-inform (propapp-apply propapp))))) @@ -159,6 +158,7 @@ apply the elements of REQUIREMENTS in reverse order." (not (eql result :no-change)))) (fresh-line) (princ buffer))) + (setf (fill-pointer buffer) 0) (when announce (informat t "~&~@[~A :: ~]~@[~A ... ~]~A~%" (get-hostname) (propappdesc propapp) |