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 9e85af4dd..1731e9a91 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