From: Mark Wooding <mdw@distorted.org.uk>
Date: Mon, 30 May 2011 15:42:49 +0000 (+0100)
Subject: safely.lisp: More CLisp fixing.
X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/commitdiff_plain/6a1150352d374e8e76143bf47943069af093a8c9

safely.lisp: More CLisp fixing.

It seems that UNIX:LINK has vanished in a later version of CLisp.  Use
POSIX:COPY-FILE instead.
---

diff --git a/safely.lisp b/safely.lisp
index 8cd0f9a..9e723ed 100644
--- 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)