(declaim (inline rename))
(defun rename (old new)
- #-clisp (rename-file old
- (make-pathname :directory '(:relative)
- :defaults new))
- #+clisp (posix:copy-file old new :method :rename))
+ (let ((target (make-pathname :directory '(:relative)
+ :defaults new)))
+ #-clisp (rename-file old target)
+ #+clisp (rename-file old target :if-exists :overwrite)))
(defun delete-file-without-moaning (file)
"Delete the FILE, ignoring errors."
:method :hardlink
:if-exists nil)))
-
-
- #-(or cmu sbcl)
+ #-(or cmu sbcl clisp)
;; Otherwise just copy the file contents and hope for the best.
(with-open-file (input file :element-type :default)
(multiple-value-bind