X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fserve-event.lisp;h=a6cb763e0ab74ecfb0109996d450be2fcb3727b9;hb=e0814eee6f6dea52db010b45a330100f2fe65832;hp=c4d856d415a378e91a8b52b1a94aceed49099c11;hpb=165bb53b405ab95ce76615ab77cee8284df0a36e;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index c4d856d..a6cb763 100644
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -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)