Changeset 11649


Ignore:
Timestamp:
Jan 29, 2009, 3:08:30 PM (11 years ago)
Author:
gz
Message:

r11640 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/pathnames.lisp

    r11562 r11649  
    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.