From 28350744e602b3291a169ea75713b1fc3caaef5d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 5 Jul 2021 23:18:49 -0700 Subject: APPLY-AND-PRINT: fix clearing the buffer Signed-off-by: Sean Whitton --- src/combinator.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/combinator.lisp') 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) -- cgit v1.2.3