From 469805e3cd7d17e70de6b668aae1fc32a1413265 Mon Sep 17 00:00:00 2001 Message-Id: <469805e3cd7d17e70de6b668aae1fc32a1413265.1715692393.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 5 Jun 2011 01:07:44 +0100 Subject: [PATCH] safely.lisp: Fix RENAME to cope with nontrivial directory components. Organization: Straylight/Edgeware From: Mark Wooding The mad Lisp RENAME-FILE rules strike again. --- safely.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/safely.lisp b/safely.lisp index 13671a4..69fceed 100644 --- a/safely.lisp +++ b/safely.lisp @@ -112,7 +112,9 @@ (defun safely-open-output-stream (safe file &rest open-args) (declaim (inline rename)) (defun rename (old new) - #-clisp (rename-file old new) + #-clisp (rename-file old + (make-pathname :directory '(:relative) + :defaults new)) #+clisp (posix:copy-file old new :method :rename)) (defun delete-file-without-moaning (file) -- [mdw]