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
2e9803cc
Commit
2e9803cc
authored
Nov 23, 2008
by
Attila Lendvai
Browse files
fix force-output/finish-output thinko in io.lisp
parent
74b93468
Changes
1
Hide whitespace changes
Inline
Side-by-side
io.lisp
View file @
2e9803cc
...
...
@@ -61,18 +61,18 @@ possible values."
(
write-sequence
string
file-stream
)))
(
defun
copy-file
(
from
to
&key
(
if-to-exists
:supersede
)
(
element-type
'
(
unsigned-byte
8
))
f
orce
-output
)
(
element-type
'
(
unsigned-byte
8
))
f
inish
-output
)
(
with-input-from-file
(
input
from
:element-type
element-type
)
(
with-output-to-file
(
output
to
:element-type
element-type
:if-exists
if-to-exists
)
(
copy-stream
input
output
:element-type
element-type
:f
orce
-output
f
orce
-output
))))
:f
inish
-output
f
inish
-output
))))
(
defun
copy-stream
(
input
output
&key
(
element-type
(
stream-element-type
input
))
(
buffer-size
4096
)
(
buffer
(
make-array
buffer-size
:element-type
element-type
))
f
orce
-output
)
f
inish
-output
)
"Reads data from INPUT and writes it to OUTPUT. Both INPUT and OUTPUT must
be streams, they will be passed to READ-SEQUENCE and WRITE-SEQUENCE and must have
compatible element-types."
...
...
@@ -82,5 +82,5 @@ compatible element-types."
:do
(
write-sequence
buffer
output
)
:finally
(
progn
(
write-sequence
buffer
output
:end
bytes-read
)
(
when
f
orce
-output
(
f
orce
-output
output
)))))
(
when
f
inish
-output
(
f
inish
-output
output
)))))
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