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
alexandria
alexandria
Commits
af3ece57
Commit
af3ece57
authored
Jun 23, 2008
by
Levente Meszaros
Browse files
Default value for external-format
parent
0d7f0ea9
Changes
1
Hide whitespace changes
Inline
Side-by-side
io.lisp
View file @
af3ece57
...
...
@@ -27,7 +27,7 @@ FILE-NAME. ARGS is sent as is to the call te open."
`
(
with-open-file
(
,
stream-name
,
file-name
:direction
:output
,@
args
)
,@
body
))
(
defun
read-file-into-string
(
pathname
&key
(
buffer-size
4096
)
external-format
)
(
defun
read-file-into-string
(
pathname
&key
(
buffer-size
4096
)
(
external-format
:default
)
)
"Return the contents of PATHNAME as a fresh string.
The file specified by PATHNAME will be read one ELEMENT-TYPE
...
...
@@ -49,7 +49,7 @@ possible values."
(
defun
write-string-into-file
(
string
pathname
&key
(
if-exists
:error
)
(
if-does-not-exist
:error
)
external-format
)
(
external-format
:default
)
)
"Write STRING to PATHNAME.
The EXTERNAL-FORMAT parameter will be passed to
...
...
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