Changeset 14322

Timestamp:

Oct 4, 2010, 8:09:19 AM (14 years ago)

Author:

R. Matthew Emerson

Message:

Use with-filename-cstrs in unix-rename and %delete-file.

Location:

trunk/source

Files:

• level-1/linux-files.lisp (modified) (1 diff)
• lib/pathnames.lisp (modified) (1 diff)

trunk/source/level-1/linux-files.lisp

@@ -865 +865 @@
 
 (defun %delete-file (name)
-  (with-cstrs ((n name))
+  (with-filename-cstrs ((n name))
     (int-errno-call (#+windows-target #__unlink #-windows-target #_unlink n))))
 

trunk/source/lib/pathnames.lisp

@@ -80 +80 @@
 
 (defun unix-rename (old-name new-name)
-  (with-cstrs ((old old-name)
-               (new new-name))
+  (with-filename-cstrs ((old old-name)
+                        (new new-name))
     #+windows-target
     (#__unlink new)