Changeset 14030 for trunk/source/lib/compile-ccl.lisp
- Timestamp:
- Jul 24, 2010, 12:32:22 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/compile-ccl.lisp
r14029 r14030 669 669 (multiple-value-bind (status exit-code) 670 670 (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)) 672 672 (when verbose (format t "~&;'svn update' complete.")) 673 673 (if (not (and (eq status :exited) … … 686 686 (flet ((svn-revert (string) 687 687 (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))) 689 689 (when (and (eq status :exited) (eql exit-code 0)) 690 690 (setq conflicts (delete string conflicts :test #'string=)) … … 751 751 (when update 752 752 (cwd "ccl:tests;") 753 (run-program "svn"'("update")))753 (run-program *svn-program* '("update"))) 754 754 (let* ((repo (svn-repository)) 755 755 (url (format nil "~a/trunk/tests" repo)) … … 759 759 (ccl-directory)) 760 760 (progn 761 (format t "~& Checking out test suite from ~a into ccl:tests;~%"762 761 (format t "~&Using ~a to check out test suite from ~a ~ 762 into ccl:tests;~%" *svn-program* url) 763 763 (cwd "ccl:") 764 764 (multiple-value-bind (status exit-code) 765 765 (external-process-status 766 (run-program "svn"(list "checkout" url "tests")766 (run-program *svn-program* (list "checkout" url "tests") 767 767 :output s :error s)) 768 768 (unless (and (eq status :exited)
Note: See TracChangeset
for help on using the changeset viewer.