diff --git a/code/internet.lisp b/code/internet.lisp
index 4d9312d0a9d6eb78c7647437a49e377e634f899e..c6e1894039840b9d6337629766f6d33818997c09 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 d62fc77112e61154e37a49375e766892e462039c..1b42405d8ed17761a28616023a8dd8509324f1ae 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))
+)
 
 
 ;;;