Changeset 14871
- Timestamp:
- 09/22/16 08:08:12 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/run-program.lisp
r14855 r14871 198 198 (ecase if-does-exist 199 199 (: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))) 201 204 (:append (setf appendp T)) 202 205 ((NIL) (return-from setup-output-redirection))))
Note: See TracChangeset
for help on using the changeset viewer.