Changeset 15348

Timestamp:

Apr 30, 2012, 9:43:19 AM (13 years ago)

Author:

gz

Message:

In copy-file, support :if-exists NIL

File:

• trunk/source/lib/pathnames.lisp (modified) (1 diff)

trunk/source/lib/pathnames.lisp

@@ -127 +127 @@
                            :if-does-not-exist if-does-not-exist
                            :element-type '(unsigned-byte 8))
+        (when (null out) (return-from copy-file nil)) ;; :if-exists nil
         (loop
           as n = (stream-read-vector in buffer 0 4096) until (eql n 0)