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

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