From d0efa3d3350ee582b56bd11e55502f5a9192bc83 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@sift.net> Date: Tue, 12 Apr 2016 22:49:38 -0500 Subject: [PATCH] Use ACL-specific COPY-FILE function if available. --- uiop/stream.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/uiop/stream.lisp b/uiop/stream.lisp index f5e7b9ad..6791941b 100644 --- a/uiop/stream.lisp +++ b/uiop/stream.lisp @@ -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) -- GitLab