(safely-trail safe))
stream))
+#+clisp
+(progn
+ (ffi:def-call-out %rename (:name "rename")
+ (:language :stdc)
+ (:library "libc.so.6")
+ (:arguments (from ffi:c-string)
+ (to ffi:c-string))
+ (:return-type ffi:int)))
+
(declaim (inline rename))
(defun rename (old new)
+ #-clisp
(let ((target (make-pathname :directory '(:relative)
:defaults new)))
- #-clisp (rename-file old target)
- #+clisp (rename-file old target :if-exists :overwrite)))
+ (rename-file old target))
+
+ #+clisp
+ (let ((rc (%rename (namestring old) (namestring new))))
+ (when (= rc -1)
+ (error "Failed to rename ~S to ~S: ~A" old new (posix:strerror)))))
(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