0.8.7.49:

[sbcl.git] / contrib / sb-bsd-sockets / inet.lisp

diff --git a/contrib/sb-bsd-sockets/inet.lisp b/contrib/sb-bsd-sockets/inet.lisp
index 2398952..3ea609e 100644 (file)
--- a/contrib/sb-bsd-sockets/inet.lisp
+++ b/contrib/sb-bsd-sockets/inet.lisp
@@ -38,8 +38,8 @@
 using getprotobyname(2) which typically looks in NIS or /etc/protocols"
   ;; for extra brownie points, could return canonical protocol name
   ;; and aliases as extra values
-  (let ((ent (sockint::foreign-vector (sockint::getprotobyname name) 1
-                                     sockint::size-of-protoent)))
+  (let ((ent (sb-grovel::foreign-vector (sockint::getprotobyname name) 1
+                                       sockint::size-of-protoent)))
     (sockint::protoent-proto ent)))
 
 
@@ -85,10 +85,6 @@ using getprotobyname(2) which typically looks in NIS or /etc/protocols"
    (+ (* 256 (sockint::sockaddr-in-port sockaddr 0))
       (sockint::sockaddr-in-port sockaddr 1))))  
    
-
 (defun make-inet-socket (type protocol)
   "Make an INET socket.  Deprecated in favour of make-instance"
   (make-instance 'inet-socket :type type :protocol protocol))
-
-
-