diff options
-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) |