0.8.12.51:

	Make socket-receive allocate a buffer if it's passed a length arg.

	Reported on CLL by Miguel Arroz; I removed that bit of code in .10
	and forgot to put it back in.

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

diff --git a/version.lisp-expr b/version.lisp-expr
index 8401ee9..1b02616 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.12.50"
+"0.8.12.51"