Commit d0efa3d3 authored by Robert Goldman's avatar Robert Goldman
Browse files

Use ACL-specific COPY-FILE function if available.

parent b5632a79
......@@ -369,6 +369,9 @@ Otherwise, using WRITE-SEQUENCE using a buffer of size BUFFER-SIZE."
(defun copy-file (input output)
"Copy contents of the INPUT file to the OUTPUT file"
;; 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
(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