Author: mhenoch Date: Sat Mar 10 22:14:51 2007 New Revision: 108 Modified: cl-darcs/trunk/get.lisp cl-darcs/trunk/pull.lisp Log: Flush *STANDARD-OUTPUT* when writing progress dots Modified: cl-darcs/trunk/get.lisp ============================================================================== --- cl-darcs/trunk/get.lisp (original) +++ cl-darcs/trunk/get.lisp Sat Mar 10 22:14:51 2007 @@ -73,7 +73,8 @@ ;; Check how darcs handles tags - rotate inventory files? ;; What happens when adding patches one by one? (append-inventory outname patchinfo) - (format t "."))) + (princ #\.) + (force-output))) (format t "~&Creating pristine") (create-pristine-from-tree outname) (format t "~&All done")))) @@ -115,7 +116,8 @@ (upath-subdir from '("_darcs" "patches") filename) :binary t)) (fad:copy-stream in out)))) - (princ #\.))) + (princ #\.) + (force-output))) (defun copy-checkpoint (from to checkpoint) "Copy CHECKPOINT from repository FROM to repository TO. Modified: cl-darcs/trunk/pull.lisp ============================================================================== --- cl-darcs/trunk/pull.lisp (original) +++ cl-darcs/trunk/pull.lisp Sat Mar 10 22:14:51 2007 @@ -92,7 +92,8 @@ :report "Stop trying to apply patches to the source tree (they will be applied to the pristine tree)" (setf source-and-pristine-differ t) (setf applying-to-source nil)))) - (format t ".")) + (princ #\.) + (force-output)) (when source-and-pristine-differ (format t "~&~<Some patches could not be applied to the source tree. ~ You should manually merge changes from the pristine tree in _darcs/pristine/.~>" nil)))))