From 63448748231c0f62f5ed6f2df4c1b1783210f5e8 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Sat, 19 Jan 2008 21:43:49 +0100 Subject: [PATCH] Minor change. Signed-off-by: Stelian Ionescu --- sockets/socket-methods.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/sockets/socket-methods.lisp b/sockets/socket-methods.lisp index 445abb5..f280c17 100644 --- a/sockets/socket-methods.lisp +++ b/sockets/socket-methods.lisp @@ -451,7 +451,7 @@ (defun %normalize-receive-buffer (buff start end) (check-bounds buff start end) (etypecase buff - ((simple-array ub8 (*)) (values buff start (- end start))))) + (ub8-sarray (values buff start (- end start))))) (defun %socket-receive-bytes (buffer ss fd flags start end) (multiple-value-bind (buff start-offset bufflen) -- 2.11.4.GIT