Changeset 15348


Ignore:
Timestamp:
Apr 30, 2012, 4:43:19 PM (7 years ago)
Author:
gz
Message:

In copy-file, support :if-exists NIL

File:
1 edited

Legend:

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

    r15293 r15348  
    127127                           :if-does-not-exist if-does-not-exist
    128128                           :element-type '(unsigned-byte 8))
     129        (when (null out) (return-from copy-file nil)) ;; :if-exists nil
    129130        (loop
    130131          as n = (stream-read-vector in buffer 0 4096) until (eql n 0)
Note: See TracChangeset for help on using the changeset viewer.