Changeset 12969

Timestamp:

Oct 9, 2009, 1:23:10 PM (15 years ago)

Author:

gz

Message:

windows-only change

File:

• branches/working-0711/ccl/level-1/linux-files.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/linux-files.lisp

@@ -199 +199 @@
   (native-to-pathname
      #-windows-target (get-foreign-namestring (#_tmpnam (%null-ptr)))
-     #+windows-target (temp-file-name "ccl")))
+     #+windows-target (rlet ((buffer (:array :wchar_t #.#$MAX_PATH)))
+                        (#_GetTempPathW #$MAX_PATH buffer)
+                        (with-filename-cstrs ((c-prefix "ccl")) 
+                            (#_GetTempFileNameW buffer c-prefix 0 buffer)
+                              (#_DeleteFileW buffer)
+                                (%get-native-utf-16-cstring buffer)))))
 
 (defun current-directory-name ()