X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdeadline.lisp;h=6deb82975f2f3165adc1eab9a46a0c689bab5eca;hb=dbc1b48749cb40ca38391cbf0ff5e1de1accacdc;hp=413eb869a8d40d40508bdb788556924788e3956d;hpb=dd0e7aad8215b548fdb1e402affdc0caad95b621;p=sbcl.git

diff --git a/src/code/deadline.lisp b/src/code/deadline.lisp
index 413eb86..6deb829 100644
--- a/src/code/deadline.lisp
+++ b/src/code/deadline.lisp
@@ -92,7 +92,8 @@ for calling this when a deadline is reached."
                (new-deadline (+ (seconds-to-internal-time new-deadline-seconds)
                                 (get-internal-real-time))))
           (setf *deadline* new-deadline
-                *deadline-seconds* new-deadline-seconds))))))
+                *deadline-seconds* new-deadline-seconds)))))
+  nil)
 
 (defun defer-deadline (seconds &optional condition)
   "Find the DEFER-DEADLINE restart associated with CONDITION, and
@@ -158,3 +159,4 @@ it will signal a timeout condition."
                      (decode-internal-time final-deadline)
                    (values to-sec to-usec stop-sec stop-usec signalp)))
                (values nil nil nil nil nil)))))))
+