Changeset 14030 for trunk/source/lib/compile-ccl.lisp

Timestamp:

Jul 24, 2010, 12:32:22 AM (11 years ago)

Author:

rme

Message:

Use *svn-program* instead of just "svn" when invoking svn from
run-program.

File:

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

trunk/source/lib/compile-ccl.lisp

@@ -669 +669 @@
         (multiple-value-bind (status exit-code)
             (external-process-status
-             (run-program "svn" '("update" "--non-interactive") :output out :error t))
+             (run-program *svn-program* '("update" "--non-interactive") :output out :error t))
           (when verbose (format t "~&;'svn update' complete."))
           (if (not (and (eq status :exited)
@@ -686 +686 @@
               (flet ((svn-revert (string)
                        (multiple-value-bind (status exit-code)
-                           (external-process-status (run-program "svn" `("revert" ,string)))
+                           (external-process-status (run-program *svn-program* `("revert" ,string)))
                          (when (and (eq status :exited) (eql exit-code 0))
                            (setq conflicts (delete string conflicts :test #'string=))
@@ -751 +751 @@
       (when update
         (cwd "ccl:tests;")
-        (run-program "svn" '("update")))
+        (run-program *svn-program* '("update")))
       (let* ((repo (svn-repository))
              (url (format nil "~a/trunk/tests" repo))
@@ -759 +759 @@
                  (ccl-directory))
           (progn
-            (format t "~&Checking out test suite from ~a into ccl:tests;~%"
-                    url)
+            (format t "~&Using ~a to check out test suite from ~a ~
+                       into ccl:tests;~%" *svn-program* url)
             (cwd "ccl:")
             (multiple-value-bind (status exit-code)
               (external-process-status
-               (run-program "svn" (list "checkout" url "tests")
+               (run-program *svn-program* (list "checkout" url "tests")
                             :output s :error s))
               (unless (and (eq status :exited)