projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9971: fix package name
[kmrcl.git]
/
io.lisp
diff --git
a/io.lisp
b/io.lisp
index 75ee65087b1c3ccd78ed37749818e5de5c6c3556..ba68048739c57e4ff55b4138d8e48e6308af95cc 100644
(file)
--- a/
io.lisp
+++ b/
io.lisp
@@
-311,4
+311,9
@@
(write-char #\: stream)
(write-string (aref +datetime-number-strings+ minute) stream)))
(write-char #\: stream)
(write-string (aref +datetime-number-strings+ minute) stream)))
+(defun copy-binary-stream (in out)
+ (do* ((buf (make-array 4096 :element-type '(unsigned-byte 8)))
+ (pos (read-sequence buf in) (read-sequence buf in)))
+ ((zerop pos))
+ (write-sequence buf out :end pos)))