~mdw
/
lisp
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6e1633e
)
safely.lisp: Fix RENAME to cope with nontrivial directory components.
author
Mark Wooding
<mdw@distorted.org.uk>
Sun, 5 Jun 2011 00:07:44 +0000
(
01:07
+0100)
committer
Mark Wooding
<mdw@distorted.org.uk>
Sun, 5 Jun 2011 00:07:44 +0000
(
01:07
+0100)
The mad Lisp RENAME-FILE rules strike again.
safely.lisp
patch
|
blob
|
blame
|
history
diff --git
a/safely.lisp
b/safely.lisp
index
13671a4
..
69fceed
100644
(file)
--- a/
safely.lisp
+++ b/
safely.lisp
@@
-112,7
+112,9
@@
(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)