~mdw
/
lisp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
safely.lisp: Fixes for later SBCL.
[lisp]
/
safely.lisp
diff --git
a/safely.lisp
b/safely.lisp
index
2477f9a
..
4830a99
100644
(file)
--- a/
safely.lisp
+++ b/
safely.lisp
@@
-33,7
+33,13
@@
#+(or cmu sbcl)
(eval-when (:compile-toplevel :execute)
(import #+cmu '(ext:unix-namestring unix:unix-link)
#+(or cmu sbcl)
(eval-when (:compile-toplevel :execute)
(import #+cmu '(ext:unix-namestring unix:unix-link)
- #+sbcl '(sb-int:unix-namestring)))
+ #+sbcl '(sb-ext:native-namestring)))
+#+cmu
+(progn
+ (declaim (inline unix-namestring))
+ (defun native-namestring (pathname &key as-file)
+ (declare (ignore as-file))
+ (unix-namestring pathname nil)))
(defstruct (safely (:predicate safelyp))
"Stores information about how to commit or undo safe writes."
(defstruct (safely (:predicate safelyp))
"Stores information about how to commit or undo safe writes."
@@
-153,8
+159,10
@@
;; Use link(2) where available.
(generate-fresh-file-name file tag
(lambda (name)
;; Use link(2) where available.
(generate-fresh-file-name file tag
(lambda (name)
- (let ((from (unix-namestring file t))
- (to (unix-namestring name nil)))
+ (let ((from (native-namestring file
+ :as-file t))
+ (to (native-namestring name
+ :as-file t)))
(and from to
(unix-link from to)))))
(and from to
(unix-link from to)))))