Changeset 12969


Ignore:
Timestamp:
Oct 9, 2009, 8:23:10 PM (10 years ago)
Author:
gz
Message:

windows-only change

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/linux-files.lisp

    r12968 r12969  
    199199  (native-to-pathname
    200200     #-windows-target (get-foreign-namestring (#_tmpnam (%null-ptr)))
    201      #+windows-target (temp-file-name "ccl")))
     201     #+windows-target (rlet ((buffer (:array :wchar_t #.#$MAX_PATH)))
     202                        (#_GetTempPathW #$MAX_PATH buffer)
     203                        (with-filename-cstrs ((c-prefix "ccl"))
     204                            (#_GetTempFileNameW buffer c-prefix 0 buffer)
     205                              (#_DeleteFileW buffer)
     206                                (%get-native-utf-16-cstring buffer)))))
    202207
    203208(defun current-directory-name ()
Note: See TracChangeset for help on using the changeset viewer.