From 6a1150352d374e8e76143bf47943069af093a8c9 Mon Sep 17 00:00:00 2001
Message-Id: <6a1150352d374e8e76143bf47943069af093a8c9.1715824225.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Mon, 30 May 2011 16:42:49 +0100
Subject: [PATCH] safely.lisp: More CLisp fixing.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

It seems that UNIX:LINK has vanished in a later version of CLisp.  Use
POSIX:COPY-FILE instead.
---
 safely.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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)
-- 
[mdw]