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

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

parent b7d00ff7
......@@ -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)))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment