From 62d763cdf14aeb8ea9ea956c0e35c2287ea12726 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 27 May 2013 11:42:12 +0000
Subject: Define copyFile via FFI.

---
 src/interp/nlib.lisp | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

(limited to 'src/interp/nlib.lisp')

diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp
index 0e76b5b8..243987a0 100644
--- a/src/interp/nlib.lisp
+++ b/src/interp/nlib.lisp
@@ -241,16 +241,10 @@
           (name2 (|makeFullFilePath| filespec2)))
       (if (library-file name1)
         (copy-lib-directory name1 name2)
-        (copy-file name1 name2))))
+        (|copyFile| name1 name2))))
 
 
 #+ :AKCL
 (defun copy-lib-directory (name1 name2)
    (|checkMkdir| name2)
    (system (concat "sh -c 'cp " name1 "/* " name2 "'")))
-
-#+ :AKCL
-(defun copy-file (namestring1 namestring2)
-  (system (concat "cp " namestring1 " " namestring2)))
-
-
-- 
cgit v1.2.3