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