Fix PRINT-OBJECT for passive local sockets
authorStelian Ionescu <sionescu@cddr.org>
Tue, 23 Oct 2012 02:09:34 +0000 (23 11:09 +0900)
committerStelian Ionescu <sionescu@cddr.org>
Tue, 23 Oct 2012 02:09:34 +0000 (23 11:09 +0900)
src/sockets/socket-methods.lisp

index 22f420a..745abd7 100644 (file)
   (print-unreadable-object (socket stream :identity t)
     (format stream "passive local stream socket")
     (if (socket-bound-p socket)
-        (format stream " ~:[bound to~;waiting @~] ~S"
+        (format stream " ~:[bound to~;waiting @~] ~A"
                   (socket-listening-p socket)
                   (address-to-string (local-filename socket)))
         (format stream ", ~:[closed~;unbound~]" (fd-of socket)))))