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

uiop: copy-file: add implementation for ecl

parent ed513e0e
...@@ -371,7 +371,9 @@ Otherwise, using WRITE-SEQUENCE using a buffer of size BUFFER-SIZE." ...@@ -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) ;; Not available on LW personal edition or LW 6.0 on Mac: (lispworks:copy-file i f)
#+allegro #+allegro
(excl.osi:copy-file input output) (excl.osi:copy-file input output)
#-allegro #+ecl
(ext:copy-file input output)
#-(or allegro ecl)
(concatenate-files (list input) output)) (concatenate-files (list input) output))
(defun slurp-stream-string (input &key (element-type 'character) stripped) (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