Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Eric Timmons
asdf
Commits
e7e53e02
Commit
e7e53e02
authored
Aug 17, 2016
by
Elias Pipping
Browse files
Add file-stream*-p
parent
53f76ea0
Changes
1
Hide whitespace changes
Inline
Side-by-side
uiop/stream.lisp
View file @
e7e53e02
...
...
@@ -22,6 +22,7 @@
#:read-file-forms
#:read-file-form
#:safe-read-file-form
#:eval-input
#:eval-thunk
#:standard-eval-thunk
#:println
#:writeln
#:file-stream-p
#:file-or-synonym-stream-p
;; Temporary files
#:*temporary-directory*
#:temporary-directory
#:default-temporary-directory
#:setup-temporary-directory
...
...
@@ -706,3 +707,12 @@ For the latter case, we ought pick a random suffix and atomically open it."
(
defmacro
with-staging-pathname
((
pathname-var
&optional
(
pathname-value
pathname-var
))
&body
body
)
"Trivial syntax wrapper for CALL-WITH-STAGING-PATHNAME"
`
(
call-with-staging-pathname
,
pathname-value
#'
(
lambda
(
,
pathname-var
)
,@
body
))))
(
with-upgradability
()
(
defun
file-stream-p
(
stream
)
(
typep
stream
'file-stream
))
(
defun
file-or-synonym-stream-p
(
stream
)
(
or
(
file-stream-p
stream
)
(
and
(
typep
stream
'synonym-stream
)
(
file-or-synonym-stream-p
(
symbol-value
(
synonym-stream-symbol
stream
)))))))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment