Merge pull request #14 from neonsquare/master

Fix DRAIN-EVBUFFER following my APPEND-ARRAY optimization
orthecreedence · Oct 5, 2012 · 4865954 · 4865954
2 parents c02213f + dff7298
commit 4865954
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tcp.lisp b/tcp.lisp
@@ -170,7 +170,7 @@
     (read-socket-data evbuffer
                       (lambda (data)
                         (if body
-                            (setf body (append-array body data :element-type '(unsigned-byte 8)))
+                            (setf body (append-array body data))
                             data))
                       :socket-is-evbuffer t)
     body))