Handle compiler-error in LOAD when it's not run from inside EVAL.

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

diff --git a/src/code/save.lisp b/src/code/save.lisp
index fa99ce0..8d414ea 100644 (file)
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -55,7 +55,7 @@ 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.
 
      TOPLEVEL functions should always provide an ABORT restart: otherwise
      code they call will run without one.

@@ -194,11 +194,12 @@ 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)
   (profile-deinit)
   (when (rest (sb!thread:list-all-threads))
     (error "Cannot save core with multiple threads running."))
   (float-deinit)
   (profile-deinit)

-  (debug-deinit)

   (foreign-deinit)
   (stream-deinit)
   (deinit-finalizers)
   (foreign-deinit)
   (stream-deinit)
   (deinit-finalizers)