X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=a6cb763e0ab74ecfb0109996d450be2fcb3727b9;hb=722703e7cbd3a4b279a4c1baab5d95df2c23cce9;hp=f0c6961551e132900e5fae9d73e922ac9092808a;hpb=5e3fb5149366dd84a5cb76bf1cf5f2324c24ca57;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index f0c6961..a6cb763 100644
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -70,7 +70,7 @@
 (def!method print-object ((handler handler) stream)
   (print-unreadable-object (handler stream :type t)
     (format stream
-	    "~A on ~:[~;BOGUS ~]descriptor ~D: ~S"
+	    "~A on ~:[~;BOGUS ~]descriptor ~W: ~S"
 	    (handler-direction handler)
 	    (handler-bogus handler)
 	    (handler-descriptor handler)
@@ -185,9 +185,9 @@
 		      (values sec usec))))
 	      (values 0 0))
 	(declare (type (unsigned-byte 31) stop-sec stop-usec))
-	(with-fd-handler (fd direction #'(lambda (fd)
-					   (declare (ignore fd))
-					   (setf usable t)))
+	(with-fd-handler (fd direction (lambda (fd)
+					 (declare (ignore fd))
+					 (setf usable t)))
 	  (loop
 	    (sub-serve-event to-sec to-usec)