From 55e886b775d3cac8c5dbe362985c35350a66fb04 Mon Sep 17 00:00:00 2001 From: Andreas Fuchs Date: Thu, 22 Jul 2004 12:08:00 +0000 Subject: [PATCH] 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. --- contrib/sb-bsd-sockets/sockets.lisp | 2 ++ version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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))) diff --git a/version.lisp-expr b/version.lisp-expr index 8401ee9..1b02616 100644 --- 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" -- 1.7.10.4