X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fsockets.lisp;h=384ca10ee0721d912af10997f84a8ad040efb1a8;hb=4a59cac8038dde1232b82fed1470b184b68cf6e1;hp=c189e5cb0104e251cb369f3ee573a08ad030b8d9;hpb=bb9313c336417fedcdee98d5eaef3db75d6026dc;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp
index c189e5c..384ca10 100644
--- a/contrib/sb-bsd-sockets/sockets.lisp
+++ b/contrib/sb-bsd-sockets/sockets.lisp
@@ -173,6 +173,8 @@ small"))
 	(error "Must supply at least one of BUFFER or LENGTH"))
       (unless length
 	(setf length (length buffer)))
+      (unless buffer
+	(setf buffer (make-array length :element-type element-type)))
       (let ((copy-buffer (sb-alien:make-alien (array sb-alien:unsigned 1) length)))
 	(unwind-protect
 	    (sb-alien:with-alien ((sa-len (array (sb-alien:unsigned 32) 2)))