Changeset 2619

Show
Ignore:
Timestamp:
02/24/08 22:05:02 (11 months ago)
Author:
hans
Message:

rename temporary-file to make-temporary-pathname
rename with-temp-file to with-temporary-file (but that should go I think)

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/data/encoding-test.lisp

    r2558 r2619  
    1818(defun congruent-p (a b) 
    1919  "Are lisp value A and B (deeply) congruent?" 
    20   (bknr.utils:with-temp-file (path-a) 
    21     (bknr.utils:with-temp-file (path-b) 
     20  (bknr.utils:with-temporary-file (path-a) 
     21    (bknr.utils:with-temporary-file (path-b) 
    2222      (cl-store:store a path-a) 
    2323      (cl-store:store b path-b) 
    …… 
    2828 
    2929(defun copy-by-encoding (value) 
    30   (bknr.utils:with-temp-file (path) 
     30  (bknr.utils:with-temporary-file (path) 
    3131    (with-open-file (out path :direction :output :if-exists :supersede 
    3232                         :element-type '(unsigned-byte 8)) 

  • trunk/bknr/datastore/src/utils/package.lisp

    r2521 r2619  
    4242           #:directory-empty-p 
    4343           #:subdir-p 
    44            #:temporary-file 
    45            #:with-temp-file 
     44           #:make-temporary-pathname 
     45           #:with-temporary-file 
    4646           #:file-contents 
    4747           #:parent-directory 

  • trunk/bknr/datastore/src/utils/utils.lisp

    r2451 r2619  
    200200      (read-chunks)))) 
    201201 
    202 (defun temporary-file (&key (defaults nil) (name "tmp")) 
     202(defun make-temporary-pathname (&key (defaults nil) (name "tmp")) 
    203203  (loop for file = (make-pathname :name (format nil "~A-~A-~A" 
    204204                                                name 
    …… 
    209209        finally (return file))) 
    210210 
    211 (defmacro with-temp-file ((var &rest args) &body body) 
    212   `(let ((,var (temporary-file ,@args))) 
     211(defmacro with-temporary-file ((var &rest args) &body body) 
     212  `(let ((,var (make-temporary-pathname ,@args))) 
    213213     (unwind-protect 
    214214          (progn ,@body) 

  • trunk/bknr/modules/bluetooth/bluetooth.lisp

    r1542 r2619  
    44 
    55(defun obex-push-stream (btaddr in-stream &optional filename) 
    6   (let ((temp-file (temporary-file :defaults "/tmp/"))) 
     6  (let ((temp-file (make-temporary-pathname :defaults "/tmp/"))) 
    77    (unwind-protect 
    88         (progn