;; for extra brownie points, could return canonical protocol name
;; and aliases as extra values
(let ((ent (sockint::getprotobyname name)))
- (if (sb-grovel::foreign-nullp ent)
+ (if (sb-alien::null-alien ent)
(error 'unknown-protocol :name name))
(sockint::protoent-proto ent)))