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)))
        (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)))
       (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)))