Changeset 14030


Ignore:
Timestamp:
Jul 24, 2010, 12:32:22 AM (9 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r14029 r14030  
    669669        (multiple-value-bind (status exit-code)
    670670            (external-process-status
    671              (run-program "svn" '("update" "--non-interactive") :output out :error t))
     671             (run-program *svn-program* '("update" "--non-interactive") :output out :error t))
    672672          (when verbose (format t "~&;'svn update' complete."))
    673673          (if (not (and (eq status :exited)
     
    686686              (flet ((svn-revert (string)
    687687                       (multiple-value-bind (status exit-code)
    688                            (external-process-status (run-program "svn" `("revert" ,string)))
     688                           (external-process-status (run-program *svn-program* `("revert" ,string)))
    689689                         (when (and (eq status :exited) (eql exit-code 0))
    690690                           (setq conflicts (delete string conflicts :test #'string=))
     
    751751      (when update
    752752        (cwd "ccl:tests;")
    753         (run-program "svn" '("update")))
     753        (run-program *svn-program* '("update")))
    754754      (let* ((repo (svn-repository))
    755755             (url (format nil "~a/trunk/tests" repo))
     
    759759                 (ccl-directory))
    760760          (progn
    761             (format t "~&Checking out test suite from ~a into ccl:tests;~%"
    762                     url)
     761            (format t "~&Using ~a to check out test suite from ~a ~
     762                       into ccl:tests;~%" *svn-program* url)
    763763            (cwd "ccl:")
    764764            (multiple-value-bind (status exit-code)
    765765              (external-process-status
    766                (run-program "svn" (list "checkout" url "tests")
     766               (run-program *svn-program* (list "checkout" url "tests")
    767767                            :output s :error s))
    768768              (unless (and (eq status :exited)
Note: See TracChangeset for help on using the changeset viewer.