From 1186386abe57d0cbfbd775201d11b7f3a7b9f8e8 Mon Sep 17 00:00:00 2001 From: John Fremlin Date: Mon, 25 May 2009 23:44:26 +0000 Subject: [PATCH] bug patched for slashdot --- src/io/sendbuf.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/src/io/sendbuf.lisp b/src/io/sendbuf.lisp index 3db2f59..d124a81 100644 --- a/src/io/sendbuf.lisp +++ b/src/io/sendbuf.lisp @@ -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)