X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/443fcfc494ed940c60d94c70e3391bf3c79c915f..6a1150352d374e8e76143bf47943069af093a8c9:/safely.lisp?ds=inline

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