Changeset 11640


Ignore:
Timestamp:
Jan 22, 2009, 7:03:55 AM (10 years ago)
Author:
gb
Message:

Add :IF-DOES-NOT-EXIST arg to COPY-FILE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/pathnames.lisp

    r11563 r11640  
    112112        (values new-name original (truename new-name))))))
    113113
    114 (defun copy-file (source-path dest-path &key (if-exists :error)
     114(defun copy-file (source-path dest-path &key (if-exists :error) (if-does-not-exist :create)
    115115                              (preserve-attributes nil))
    116116  (let* ((original (truename source-path))
     
    121121      (with-open-file (out new-name :direction :output
    122122                           :if-exists if-exists
     123                           :if-does-not-exist if-does-not-exist
    123124                           :element-type '(unsigned-byte 8))
    124125        (loop
Note: See TracChangeset for help on using the changeset viewer.