safely.lisp: More CLisp fixing.

[lisp] / safely.lisp

diff --git a/safely.lisp b/safely.lisp
index 8cd0f9a635dd6e137414f46448bba475a23e473a..9e723ed48f68edea17a46ee0a6bf1ad9d7612306 100644 (file)
--- a/safely.lisp
+++ b/safely.lisp
@@ -166,9 +166,11 @@ (defun safe-copy (file tag)
   #+clisp
   (generate-fresh-file-name file tag
                            (lambda (name)
   #+clisp
   (generate-fresh-file-name file tag
                            (lambda (name)

-                             (>= (unix:link (namestring file) 
-                                            (namestring name))
-                                 0)))
+                             (posix:copy-file (namestring file)
+                                              (namestring name)
+                                              :method :hardlink
+                                              :if-exists nil)))
+

 
 
   #-(or cmu sbcl)
 
 
   #-(or cmu sbcl)