Changeset 14871

Timestamp:

09/22/16 08:08:12 (5 years ago)

Author:

Mark Evenson

Message:

Better support for uiop/run-program::%run-program (pipping)

File:

• trunk/abcl/src/org/armedbear/lisp/run-program.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/run-program.lisp

@@ -198 +198 @@
                           (ecase if-does-exist
                             (:error (error "Output file ~S does already exist." value))
-                            (:supersede (rename-file (make-temp-file) value))
+                            (:supersede
+                             (with-open-file (f value
+                                                :direction :output
+                                                :if-exists if-does-exist)))
                             (:append (setf appendp T))
                             ((NIL) (return-from setup-output-redirection))))