Print file descriptor of a socket error condition only if non-null
authorStelian Ionescu <sionescu@cddr.org>
Sun, 5 May 2013 01:49:35 +0000 (03:49 +0200)
committerStelian Ionescu <sionescu@cddr.org>
Sun, 5 May 2013 01:49:35 +0000 (03:49 +0200)
src/sockets/conditions.lisp

index 7e35bc1..129b8f0 100644 (file)
@@ -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.]")