Permalink
Browse files

Merge pull request #14 from neonsquare/master

Fix DRAIN-EVBUFFER following my APPEND-ARRAY optimization
  • Loading branch information...
2 parents c02213f + dff7298 commit 4865954cc54020b4a47a868c39850b632f8cdc06 @orthecreedence committed Oct 5, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 tcp.lisp
View
2 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))

0 comments on commit 4865954

Please sign in to comment.