Changeset 13382

Timestamp:

Jan 12, 2010, 10:59:49 AM (15 years ago)

Author:

R. Matthew Emerson

Message:

On Linux, the EAI_xxx error codes (as returned by getaddrinfo or
getnameinfo) are negative.

Therefore, don't mess with the sign of the error code in socket-error
when nameserver-p is true, and don't mess with the sign at all in
%gai-strerror.

File:

• trunk/source/level-1/l1-sockets.lisp (modified) (2 diffs)

trunk/source/level-1/l1-sockets.lisp

@@ -238 +238 @@
 
 #-windows-target
-(defun %gai-strerror (errno)
-  (let* ((err (abs errno))
-         (p (#_gai_strerror err)))
+(defun %gai-strerror (err)
+  (let ((p (#_gai_strerror err)))
     (if (%null-ptr-p p)
       (format nil "Unknown nameserver error ~d" err)
@@ -248 +247 @@
   "Creates and signals (via error) one of two socket error 
 conditions, based on the state of the arguments."
-  (when (< errno 0)
-    (setq errno (- errno)))
+  (unless nameserver-p
+    (setq errno (abs errno)))
   (if stream
     (error (make-condition 'socket-error