From cdc21869fd10dcc8a787daa66a41fdd67dc9f942 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Sun, 6 Feb 2005 19:26:13 +0000 Subject: [PATCH] Temporarily disable recvfrom and friends on Darwin. --- code/internet.lisp | 6 +++++- code/unix.lisp | 5 ++++- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/code/internet.lisp b/code/internet.lisp index 4d9312d0a..c6e189403 100644 --- a/code/internet.lisp +++ b/code/internet.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.44 2005/01/27 15:23:33 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/internet.lisp,v 1.45 2005/02/06 19:26:13 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -688,6 +688,8 @@ struct in_addr { fd (unix:get-unix-error-msg))))) +#-darwin +(progn (defun inet-recvfrom (fd buffer size &key (flags 0)) "A packaging of the unix recvfrom call. Returns three values: bytecount, source address as integer, and source port. bytecount @@ -711,6 +713,7 @@ can of course be negative, to indicate faults." flags (alien-sap sockaddr) (alien-size inet-sockaddr :bytes)))) + (defconstant shut-rd 0) (defconstant shut-wr 1) (defconstant shut-rdwr 2) @@ -721,3 +724,4 @@ can of course be negative, to indicate faults." :format-control "Error on shutdown of socket: ~A" :format-arguments (list (unix:get-unix-error-msg)) :errno (unix:unix-errno)))) +) diff --git a/code/unix.lisp b/code/unix.lisp index d62fc7711..1b42405d8 100644 --- a/code/unix.lisp +++ b/code/unix.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.100 2005/01/27 15:23:33 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.101 2005/02/06 19:26:13 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2969,6 +2969,8 @@ ;; Datagram support +#-darwin +(progn (def-alien-routine ("recvfrom" unix-recvfrom) int (fd int) (buffer c-string) @@ -2988,6 +2990,7 @@ (def-alien-routine ("shutdown" unix-shutdown) int (socket int) (level int)) +) ;;; -- GitLab