diff options
author | dos-reis <gdr@axiomatics.org> | 2013-05-27 11:42:12 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2013-05-27 11:42:12 +0000 |
commit | 62d763cdf14aeb8ea9ea956c0e35c2287ea12726 (patch) | |
tree | 9b61e665f4e698a08365f0fe10faa85b0910d3f0 /src/interp/nlib.lisp | |
parent | 14b9870f513aa919bd23112f39391d5ed2cf9673 (diff) | |
download | open-axiom-62d763cdf14aeb8ea9ea956c0e35c2287ea12726.tar.gz |
Define copyFile via FFI.
Diffstat (limited to 'src/interp/nlib.lisp')
-rw-r--r-- | src/interp/nlib.lisp | 8 |
1 files changed, 1 insertions, 7 deletions
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))) - - |