[Openmcl-cvs-notifications] r10789 - /trunk/source/lib/compile-ccl.lisp

[gb at clozure.com]

Author: gb
Date: Wed Sep 17 18:03:26 2008
New Revision: 10789

Log:
Pass the "--non-interactive" arg to "svn update".
At least when run from a TTY, svn 1.5 will prompt the user to
resolve conflicts when this arg isn't specified.  Not sure
if it'll do that when its stdin is a pipe, but might as well
be sure.



Modified:
    trunk/source/lib/compile-ccl.lisp

Modified: trunk/source/lib/compile-ccl.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/compile-ccl.lisp (original)
+++ trunk/source/lib/compile-ccl.lisp Wed Sep 17 18:03:26 2008
@@ -626,7 +626,7 @@
         (when verbose (format t "~&;Running 'svn update'."))
         (multiple-value-bind (status exit-code)
             (external-process-status
-             (run-program "svn" '("update") :output out :error t))
+             (run-program "svn" '("update" "--non-interactive") :output ou=
t :error t))
           (when verbose (format t "~&;'svn update' complete."))
           (if (not (and (eq status :exited)
                         (eql exit-code 0)))