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