Changeset 14161

Timestamp:

Aug 9, 2010, 11:07:38 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

In ensure-tests, show the output from run-program invocations.

File:

• trunk/source/lib/compile-ccl.lisp (modified) (2 diffs)

trunk/source/lib/compile-ccl.lisp

@@ -785 +785 @@
       (when update
         (cwd "ccl:tests;")
-        (run-program *svn-program* '("update")))
+        (run-program *svn-program* '("update") :output t))
       (let* ((repo (svn-repository))
              (url (format nil "~a/trunk/tests" repo))
@@ -805 +805 @@
                        (get-output-stream-string s))))))))
     (cwd "ccl:tests;ansi-tests;")
-    (run-program "make" '("-k" "clean"))
+    (run-program "make" '("-k" "clean") :output t)
     (map nil 'delete-file (directory "*.*fsl"))
     ;; Muffle the typecase "clause ignored" warnings, since there is really nothing we can do about