Changeset 12415


Ignore:
Timestamp:
Jul 14, 2009, 10:53:25 PM (10 years ago)
Author:
gz
Message:

Add CCL:TEMP-PATHNAME

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

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

    r12211 r12415  
    192192        (when (eql 0 (%get-byte buf i))
    193193          (return i))))))
    194    
    195    
     194
     195(defun temp-pathname ()
     196  "Return a suitable pathname for a temporary file.  A different name is returned
     197each time this is called in a session.  No file by that name existed when last
     198checked, though no guarantee is given that one hasn't been created since."
     199  (native-to-pathname
     200     #-windows-target (get-foreign-namestring (#_tmpnam (%null-ptr)))
     201     #+windows-target (temp-file-name "ccl")))
     202
    196203(defun current-directory-name ()
    197204  "Look up the current working directory of the OpenMCL process; unless
  • branches/working-0711/ccl/lib/ccl-export-syms.lisp

    r12410 r12415  
    305305     directory-pathname-p
    306306     full-pathname
     307     temp-pathname
    307308     create-file
    308309     create-directory
Note: See TracChangeset for help on using the changeset viewer.