From d4d181e4f89b959e4c93b1822c17b29d5d202d98 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] 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 9e85af4d..1731e9a9 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)
-- 
GitLab