Changeset 14871


Ignore:
Timestamp:
09/22/16 08:08:12 (6 years ago)
Author:
Mark Evenson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/run-program.lisp

    r14855 r14871  
    198198                          (ecase if-does-exist
    199199                            (:error (error "Output file ~S does already exist." value))
    200                             (:supersede (rename-file (make-temp-file) value))
     200                            (:supersede
     201                             (with-open-file (f value
     202                                                :direction :output
     203                                                :if-exists if-does-exist)))
    201204                            (:append (setf appendp T))
    202205                            ((NIL) (return-from setup-output-redirection))))
Note: See TracChangeset for help on using the changeset viewer.