Commit d4d181e4 authored by Daniel Kochmański's avatar Daniel Kochmański Committed by Francois-Rene Rideau
Browse files

uiop: copy-file: add implementation for ecl

parent ed513e0e
......@@ -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)
(excl.osi:copy-file input output)
(ext:copy-file input output)
#-(or allegro ecl)
(concatenate-files (list input) output))
(defun slurp-stream-string (input &key (element-type 'character) stripped)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment