Moved rename-file-overwriting-target to asdf and asdf-utils.

diff --git a/filesystem/atomic.lisp b/filesystem/atomic.lisp
index 957c49c..4523de6 100644 (file)
--- a/filesystem/atomic.lisp
+++ b/filesystem/atomic.lisp
@@ -5,13 +5,6 @@
 
 (in-package #:fare-utils)
 
-(defun rename-file-overwriting-target (source target)
-  #+clisp ;; But for a bug in CLISP 2.48, we should use :if-exists :overwrite and be atomic
-  (posix:copy-file source target :method :rename)
-  #-clisp
-  (rename-file source target
-               #+clozure :if-exists #+clozure :rename-and-delete))
-
 (defun make-tmpname-for (filename)
   (make-pathname
    :type (conc-string (pathname-type filename)
@@ -29,10 +22,7 @@
     (unwind-protect
          (prog1
              (funcall fun s)
-           #+clisp
-           (posix:copy-file tmpname filename :method :rename)
-           #-clisp
-           (rename-file tmpname filename #+clozure :if-exists #+clozure :overwrite))
+           (rename-file-overwriting-target tmpname filename))
       (ignore-errors (delete-file tmpname) nil))))
 
 (defmacro with-atomic-file-creation ((s filename &optional tmpname) &body body)

diff --git a/package.lisp b/package.lisp
index ead8cb2..70f15bf 100644 (file)
--- a/package.lisp
+++ b/package.lisp
@@ -111,7 +111,6 @@
    ;;#:ensure-absolute-pathname ;; use ASDF:ENSURE-PATHNAME-ABSOLUTE
    #:portable-namestring-prefix<=
    ;;#:ensure-pathname-is-directory
-   #:rename-file-overwriting-target
    #:unwilden
    #:append1 #:append1f #:funcallf ;; #:appendf #:nconcf
    #:with-nesting #:nest #:tsen