X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-bsd-sockets%2Finet.lisp;h=3ea609e79e5045b2125381c231205e4c92246fe0;hb=32c8edbd49ca77907154987e28e8d3f81f61dabc;hp=2398952683c8837d0c06ae77cbd9d8f58c9d438d;hpb=fdb7bd67f65676dba60251def2f25ecd594373f3;p=sbcl.git

diff --git a/contrib/sb-bsd-sockets/inet.lisp b/contrib/sb-bsd-sockets/inet.lisp
index 2398952..3ea609e 100644
--- 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))
-
-
-