From 1c3e559b5570781eba5c6d9e20b97fa54838bf42 Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@common-lisp.net>
Date: Tue, 26 Dec 2006 15:54:50 +0100
Subject: [PATCH] Small fix.

---
 sockets/resolv.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sockets/resolv.lisp b/sockets/resolv.lisp
index 4aeb144..3f77c31 100644
--- a/sockets/resolv.lisp
+++ b/sockets/resolv.lisp
@@ -447,7 +447,7 @@
     (handler-case
         (if parsed-number
             (get-protocol-by-number parsed-number)
-            (get-protocol-by-name proto-val))
+            (get-protocol-by-name proto))
       (unix-error (err)
         (declare (ignore err))
         (error 'unknown-protocol :name proto)))))
-- 
2.11.4.GIT