From 9ff44ee7026a5756715b36ec57c35bab1d2719a1 Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
Date: Sun, 5 May 2013 03:49:35 +0200
Subject: [PATCH] Print file descriptor of a socket error condition only if
 non-null

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

diff --git a/src/sockets/conditions.lisp b/src/sockets/conditions.lisp
index 7e35bc1..129b8f0 100644
--- a/src/sockets/conditions.lisp
+++ b/src/sockets/conditions.lisp
@@ -24,7 +24,7 @@
 (defmethod print-object ((socket-error socket-error) stream)
   (print-unreadable-object (socket-error stream :type t :identity nil)
     (let ((code (iolib.syscalls:code-of socket-error)))
-      (format stream "~S ~S ~S, FD: ~S"
+      (format stream "~S ~S ~S~@[, FD: ~S~]"
               (or code "[Unknown code]")
               (error-identifier socket-error)
               (if code (isys:strerror code) "[Can't get error string.]")
-- 
2.11.4.GIT