[Cl-darcs-cvs] r108 - cl-darcs/trunk

[mhenoch at common-lisp.net]

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