0.8.12.53: Increment +FASL-FILE-VERSION+ due to changed %DEFPACKAGE

[sbcl.git] / contrib / sb-bsd-sockets / sockets.lisp

diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp
index c189e5c..384ca10 100644 (file)
--- 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)))