>From fdad2f374c8eb528f60123fc496b9b5a0df87287 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 9 Sep 2016 15:49:53 +0200
Subject: [PATCH 9/9] uiop: copy-file: add implementation for ecl

---
 uiop/stream.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/uiop/stream.lisp b/uiop/stream.lisp
index 9e85af4..1731e9a 100644
--- a/uiop/stream.lisp
+++ b/uiop/stream.lisp
@@ -371,7 +371,9 @@ Otherwise, using WRITE-SEQUENCE using a buffer of size BUFFER-SIZE."
     ;; Not available on LW personal edition or LW 6.0 on Mac: (lispworks:copy-file i f)
     #+allegro
     (excl.osi:copy-file input output)
-    #-allegro
+    #+ecl
+    (ext:copy-file input output)
+    #-(or allegro ecl)
     (concatenate-files (list input) output))
 
   (defun slurp-stream-string (input &key (element-type 'character) stripped)
-- 
2.9.3