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

Timestamp:

Jul 14, 2009, 10:53:25 PM (12 years ago)

Author:

gz

Message:

Add CCL:TEMP-PATHNAME

File:

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

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

@@ -192 +192 @@
         (when (eql 0 (%get-byte buf i))
           (return i))))))
-    
-    
+
+(defun temp-pathname ()
+  "Return a suitable pathname for a temporary file.  A different name is returned
+each time this is called in a session.  No file by that name existed when last
+checked, though no guarantee is given that one hasn't been created since."
+  (native-to-pathname
+     #-windows-target (get-foreign-namestring (#_tmpnam (%null-ptr)))
+     #+windows-target (temp-file-name "ccl")))
+
 (defun current-directory-name ()
   "Look up the current working directory of the OpenMCL process; unless