projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
sb-bsd-sockets: Fix error code handling on Windows
[sbcl.git]
/
src
/
code
/
deadline.lisp
diff --git
a/src/code/deadline.lisp
b/src/code/deadline.lisp
index
97a147b
..
43b4fc9
100644
(file)
--- a/
src/code/deadline.lisp
+++ b/
src/code/deadline.lisp
@@
-12,13
+12,17
@@
(in-package "SB!IMPL")
(in-package "SB!IMPL")
+(!begin-collecting-cold-init-forms)
+
;;; Current deadline as internal time units or NIL.
;;; Current deadline as internal time units or NIL.
-(defvar *deadline* nil)
(declaim (type (or unsigned-byte null) *deadline*))
(declaim (type (or unsigned-byte null) *deadline*))
+(defvar *deadline*)
+(!cold-init-forms (setq *deadline* nil))
;;; The relative number of seconds the current deadline corresponds
;;; to. Used for continuing from TIMEOUT conditions.
;;; The relative number of seconds the current deadline corresponds
;;; to. Used for continuing from TIMEOUT conditions.
-(defvar *deadline-seconds* nil)
+(defvar *deadline-seconds*)
+(!cold-init-forms (setq *deadline-seconds* nil))
(declaim (inline seconds-to-internal-time))
(defun seconds-to-internal-time (seconds)
(declaim (inline seconds-to-internal-time))
(defun seconds-to-internal-time (seconds)
@@
-171,3
+175,4
@@
it will signal a timeout condition."
(values to-sec to-usec stop-sec stop-usec signalp)))
(values nil nil nil nil nil)))))))
(values to-sec to-usec stop-sec stop-usec signalp)))
(values nil nil nil nil nil)))))))
+(!defun-from-collected-cold-init-forms !deadline-cold-init)