Fixed error in lookup-service .

Signed-off-by: Stelian Ionescu <[email protected]>
sionescu · Aug 4, 2007 · d985d59 · d985d59
1 parent 100054a
commit d985d59
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sockets/resolv.lisp b/sockets/resolv.lisp
@@ -309,7 +309,7 @@ remaining address list as the second return value."
 of :TCP, :UDP or :ANY."
   (check-type protocol (member :tcp :udp :any))
   (let ((parsed-number (parse-number-or-nil port-or-name :ub16)))
-    (if 
+    (if parsed-number
         (lookup-service-number parsed-number protocol)
         (lookup-service-name port-or-name protocol))))