Commit 62d3205e authored by Zach Beane's avatar Zach Beane
Browse files

Implement excl:rename-file-raw.

parent 7ea707d9
...@@ -142,6 +142,13 @@ values otherwise." ...@@ -142,6 +142,13 @@ values otherwise."
(defun excl::merge-to-physical (pathname) (defun excl::merge-to-physical (pathname)
(merge-pathnames (translate-logical-pathname pathname))) (merge-pathnames (translate-logical-pathname pathname)))
(defun excl:rename-file-raw (file new-name)
(let ((new-name (merge-pathnames new-name
(make-pathname :name :unspecific
:type :unspecific
:defaults *default-pathname-defaults*))))
(rename-file file new-name)))
(defun excl:delimited-string-to-list (string delimiter) (defun excl:delimited-string-to-list (string delimiter)
(unless (characterp delimiter) (unless (characterp delimiter)
;; aserve only uses a character ;; aserve only uses a character
......
...@@ -167,6 +167,7 @@ ...@@ -167,6 +167,7 @@
#:md5-final) #:md5-final)
(:export #:gc (:export #:gc
#:atomic-conditional-setf #:atomic-conditional-setf
#:rename-file-raw
#:delimited-string-to-list #:delimited-string-to-list
#:stream-input-fn #:stream-input-fn
#:fasl-write #:fasl-write
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment