safely.lisp: More CLisp fixing.

[lisp] / safely.lisp

diff --git a/safely.lisp b/safely.lisp
index 8cd0f9a..9e723ed 100644 (file)
--- a/safely.lisp
+++ b/safely.lisp
@@ -166,9 +166,11 @@
   #+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)