Fix LOOKUP-INTERFACE

sionescu · Apr 16, 2012 · 7092327 · 7092327
1 parent dccb292
commit 7092327
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/sockets/iface.lisp b/src/sockets/iface.lisp
@@ -63,6 +63,6 @@
 signalled if an interface is not found."
   (check-type interface (or unsigned-byte string symbol) "non-negative integer, a string or a symbol")
   (let ((parsed (ensure-string-or-unsigned-byte interface :errorp t)))
-    (typecase interface
+    (typecase parsed
       (unsigned-byte (get-interface-by-index parsed))
       (string        (get-interface-by-name  parsed)))))