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 df52637..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)))