X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fserve-event.lisp;h=55482c4ed481406f16b3751c0754cd8f2feaa724;hb=ea36d3d79b9dfe3598faca5e267efd5980b94d4a;hp=9ad0e362fe0a7d0395bd9ed652d4cc978ae7f6ce;hpb=2c6b90e36a7c0377cd79625eb6c94d580f98cb93;p=sbcl.git

diff --git a/src/code/serve-event.lisp b/src/code/serve-event.lisp
index 9ad0e36..55482c4 100644
--- a/src/code/serve-event.lisp
+++ b/src/code/serve-event.lisp
@@ -155,7 +155,7 @@
     (real
      (multiple-value-bind (q r) (truncate (coerce timeout 'single-float))
        (declare (type index q) (single-float r))
-       (values q (the index (truncate (* r 1f6))))))
+       (values q (the (values index t) (truncate (* r 1f6))))))
     (t
      (error "Timeout is not a real number or NIL: ~S" timeout))))