From: Nikodemus S. <de...@us...> - 2011-11-18 15:20:30
|
The branch "master" has been updated in SBCL: via ab5427d31da2bd95805cccc8e47b8f43d3dd606d (commit) from 78eea0607fb44f620a8192e173f91860d3622967 (commit) - Log ----------------------------------------------------------------- commit ab5427d31da2bd95805cccc8e47b8f43d3dd606d Author: Nikodemus Siivola <nik...@sb...> Date: Fri Nov 18 16:33:35 2011 +0200 sb-bsd-sockets: check for MAKE-ALIEN success in GET-PROTOCOL-BY-NAME Currently of malloc fails it returns a null alien. Yuck. --- contrib/sb-bsd-sockets/inet.lisp | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/contrib/sb-bsd-sockets/inet.lisp b/contrib/sb-bsd-sockets/inet.lisp index e4f7ff2..ebe6e35 100644 --- a/contrib/sb-bsd-sockets/inet.lisp +++ b/contrib/sb-bsd-sockets/inet.lisp @@ -106,6 +106,10 @@ a list of protocol aliases" buffer (sb-alien:make-alien sb-alien:char buffer-length)) #-solaris (setf result (sb-alien:make-alien (* sockint::protoent))) + (when (or (sb-alien:null-alien result-buf) + (sb-alien:null-alien buffer) + (sb-alien:null-alien result)) + (error "Could not allocate foreign memory.")) (let ((res (sockint::getprotobyname-r name result-buf buffer buffer-length #-solaris result))) (cond ((eql res 0) ----------------------------------------------------------------------- hooks/post-receive -- SBCL |