From d5bb42db664ed78c616ca9fdc1fe1ec5b0ae0b0d Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
Date: Sat, 15 May 2010 23:43:43 +0800
Subject: [PATCH] Fix if_nametoindex() too

---
 src/sockets/bsd.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/sockets/bsd.lisp b/src/sockets/bsd.lisp
index f22fe71..15e7023 100644
--- a/src/sockets/bsd.lisp
+++ b/src/sockets/bsd.lisp
@@ -127,9 +127,9 @@
 (defsyscall ("if_nametoindex" %if-nametoindex)
     (:unsigned-int
      :error-predicate zerop
-     :error-generator (lambda (r h h2)
+     :error-generator (lambda (r syscall h h2)
                         (declare (ignore r h h2))
-                        (isys:signal-syscall-error-kw :enxio)))
+                        (isys:signal-syscall-error-kw :enxio syscall)))
   (ifname :string))
 
 (defsyscall ("if_indextoname" %if-indextoname)
-- 
2.11.4.GIT