Permalink
Browse files

bug patched for slashdot

  • Loading branch information...
1 parent 0171caf commit 1186386abe57d0cbfbd775201d11b7f3a7b9f8e8 @vii committed May 25, 2009
Showing with 9 additions and 3 deletions.
  1. +9 −3 src/io/sendbuf.lisp
View
@@ -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)

0 comments on commit 1186386

Please sign in to comment.