Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment