LLP64: change signed long to sword_t

[sbcl.git] / src / code / save.lisp

diff --git a/src/code/save.lisp b/src/code/save.lisp
index c6ec320..c2dd588 100644 (file)
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -55,7 +55,10 @@ The following &KEY arguments are defined:
      The function to run when the created core file is resumed. The
      default function handles command line toplevel option processing
      and runs the top level read-eval-print loop. This function returning
      The function to run when the created core file is resumed. The
      default function handles command line toplevel option processing
      and runs the top level read-eval-print loop. This function returning

-     is equivalent to (SB-EXT:QUIT :UNIX-STATUS 0) being called.
+     is equivalent to (SB-EXT:EXIT :CODE 0) being called.
+
+     TOPLEVEL functions should always provide an ABORT restart: otherwise
+     code they call will run without one.

 
   :EXECUTABLE
      If true, arrange to combine the SBCL runtime and the core image
 
   :EXECUTABLE
      If true, arrange to combine the SBCL runtime and the core image

@@ -191,6 +194,8 @@ sufficiently motivated to do lengthy fixes."
 
 (defun deinit ()
   (call-hooks "save" *save-hooks*)
 
 (defun deinit ()
   (call-hooks "save" *save-hooks*)

+  #!+sb-wtimer
+  (itimer-emulation-deinit)

   (when (rest (sb!thread:list-all-threads))
     (error "Cannot save core with multiple threads running."))
   (float-deinit)
   (when (rest (sb!thread:list-all-threads))
     (error "Cannot save core with multiple threads running."))
   (float-deinit)