Commit 616a6e71 authored by Sergey Katrevich's avatar Sergey Katrevich
Browse files

Temporary files. Restore call-with-temporary-file interface

parent b7d00ff7

uiop/stream.lisp

+2 −3
Original line number Diff line number Diff line
@@ -565,8 +565,7 @@ If a string, repeatedly read and evaluate from it, returning the last values." 
               (want-stream-p t) (want-pathname-p t) (direction :io) keep after

               directory (type "tmp" typep) prefix (suffix (when typep "-tmp"))

               (element-type *default-stream-element-type*)

               (external-format *utf-8-external-format*)

	       (temp-filenames-extra-part-p *temp-filenames-extra-part-p*))

               (external-format *utf-8-external-format*))

    "Call a THUNK with stream and/or pathname arguments identifying a temporary file.



The temporary file's pathname will be based on concatenating
@@ -609,7 +608,7 @@ Finally, the file will be deleted, unless the KEEP argument when CALL-FUNCTION'e 
					 (format nil "~A~36R~@[~A~]~@[~A~]~@[.~A~]"

						 prefix-nns

						 counter

						 (when temp-filenames-extra-part-p

						 (when *temp-filenames-extra-part-p*

						   (temp-name-extra-part))

						 suffix

						 (unless (eq type :unspecific) type)))