projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.1.18:
[sbcl.git]
/
src
/
code
/
serve-event.lisp
diff --git
a/src/code/serve-event.lisp
b/src/code/serve-event.lisp
index
f0c6961
..
a6cb763
100644
(file)
--- 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
(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)
(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))
(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)
(loop
(sub-serve-event to-sec to-usec)