From e3e796a1fb774b1c5cb726873a9a758eb3d08f81 Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Wed, 1 Dec 2004 23:17:41 +0000 Subject: [PATCH] 0.8.17.14: Fix "problem with TIME" issue, sbcl-devel 2004-09-16 ... delete obviously stale FIXME while we're at it --- src/code/cold-init.lisp | 14 ++++---------- version.lisp-expr | 2 +- 2 files changed, 5 insertions(+), 11 deletions(-) diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp index 3beb397..f09f8cd 100644 --- a/src/code/cold-init.lisp +++ b/src/code/cold-init.lisp @@ -263,21 +263,13 @@ (toplevel-init) (critically-unreachable "after TOPLEVEL-INIT"))) -(defun quit (&key recklessly-p - (unix-code 0 unix-code-p) - (unix-status unix-code)) +(defun quit (&key recklessly-p (unix-status 0)) #!+sb-doc "Terminate the current Lisp. Things are cleaned up (with UNWIND-PROTECT and so forth) unless RECKLESSLY-P is non-NIL. On UNIX-like systems, UNIX-STATUS is used as the status code." - (declare (type (signed-byte 32) unix-status unix-code)) + (declare (type (signed-byte 32) unix-status)) (/show0 "entering QUIT") - ;; FIXME: UNIX-CODE was deprecated in sbcl-0.6.8, after having been - ;; around for less than a year. It should be safe to remove it after - ;; a year. - (when unix-code-p - (warn "The UNIX-CODE argument is deprecated. Use the UNIX-STATUS argument -instead (which is another name for the same thing).")) (if recklessly-p (sb!unix:unix-exit unix-status) (throw '%end-of-the-world unix-status)) @@ -304,6 +296,8 @@ instead (which is another name for the same thing).")) (sb!thread::maybe-install-futex-functions))) (foreign-reinit) (gc-reinit) + ;; make sure TIME works correctly from saved cores + (setf *internal-real-time-base-seconds* nil) (mapc #'funcall *init-hooks*)) ;;;; some support for any hapless wretches who end up debugging cold diff --git a/version.lisp-expr b/version.lisp-expr index c04131a..7620d00 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.17.13" +"0.8.17.14" -- 1.7.10.4