X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-bsd-sockets%2Fdefpackage.lisp;h=fbd9bd99afc042823f512a8a0ba7bef84db1381a;hb=2375dc21aed5764dc2ecbccdd6665d6db0596731;hp=a99bea249227bbaa9b6d67c86b3d6d6ac2acde75;hpb=bb9313c336417fedcdee98d5eaef3db75d6026dc;p=sbcl.git diff --git a/contrib/sb-bsd-sockets/defpackage.lisp b/contrib/sb-bsd-sockets/defpackage.lisp index a99bea2..fbd9bd9 100644 --- a/contrib/sb-bsd-sockets/defpackage.lisp +++ b/contrib/sb-bsd-sockets/defpackage.lisp @@ -3,7 +3,6 @@ (:shadow close listen) #+cmu (:shadowing-import-from "CL" with-array-data) #+sbcl (:shadowing-import-from "SB-KERNEL" with-array-data) - #+cmu (:use "COMMON-LISP" "ALIEN" "SYSTEM" "EXT" "C-CALL") #+sbcl (:use "COMMON-LISP" "SB-ALIEN" #+nil "SB-SYSTEM" "SB-EXT" "SB-C-CALL")) @@ -36,13 +35,13 @@ socket-send socket-receive socket-recv socket-name socket-peername socket-listen socket-close socket-file-descriptor - socket-family socket-protocol socket-type - socket-make-stream get-protocol-by-name + socket-family socket-protocol socket-open-p + socket-type socket-make-stream get-protocol-by-name get-host-by-name get-host-by-address host-ent host-ent-addresses host-ent-address - host-ent aliases host-ent-name + host-ent-aliases host-ent-name name-service-error ;; not sure if these are really good names or not netdb-internal-error @@ -50,20 +49,21 @@ host-not-found-error try-again-error no-recovery-error - - ;; all socket options are also exported, by code in - ;; sockopt.lisp - socket-error + ;; all socket options are also exported, by code in + ;; sockopt.lisp + + socket-error + + ;; other errno-based socket errors are exported by code in + ;; sockets.lisp - ;; other errno-based socket errors are exported by code in - ;; sockets.lisp - make-inet-address non-blocking-mode ) (:use "COMMON-LISP" "SB-BSD-SOCKETS-INTERNAL") + (:import-from "SB-INT" "UNSUPPORTED-OPERATOR" "FEATUREP") (:documentation " @@ -87,7 +87,7 @@ arguments to fit Lisp style more closely.