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)) +) ;;;