Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
bug patched for slashdot
  • Loading branch information
vii committed May 25, 2009
1 parent 0171caf commit 1186386
Showing 1 changed file with 9 additions and 3 deletions.
12 changes: 9 additions & 3 deletions src/io/sendbuf.lisp
Expand Up @@ -140,9 +140,15 @@
(let ((result (make-byte-vector (my len))) (i 0))
(unless (zerop (my len))
(loop for s in (my head) do
(loop for c across (the simple-byte-vector s) do
(setf (aref result i) c)
(incf i))))
(etypecase s
(simple-byte-vector
(loop for c across (the simple-byte-vector s) do
(setf (aref result i) c)
(incf i)))
(byte-vector
(loop for c across (the byte-vector s) do
(setf (aref result i) c)
(incf i))))))
result))

(my-defun sendbuf 'print-object (stream)
Expand Down

0 comments on commit 1186386

Please sign in to comment.