(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)