From: Stas Boukarev <stassats@gmail.com>
Date: Fri, 23 Aug 2013 22:32:00 +0000 (+0400)
Subject: Remove debug-deinit, unused.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=063900ddad92b24ce64ae0d41942c40405047466;p=sbcl.git

Remove debug-deinit, unused.

Its body consist of
;; Nothing to do right now. Once there was, maybe once there
;; will be again.

Once there is something to do, it can easily be put back.
---

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 7e5e9b9..dd6870d 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -1989,7 +1989,6 @@ is a good idea, but see SB-SYS re. blurring of boundaries."
                "STREAM-COLD-INIT-OR-RESET"
 
                ;; Cleanups to run before saving a core
-               "DEBUG-DEINIT"
                "FLOAT-DEINIT"
                "FOREIGN-DEINIT"
                "PROFILE-DEINIT"
diff --git a/src/code/debug.lisp b/src/code/debug.lisp
index 0b49899..1f63348 100644
--- a/src/code/debug.lisp
+++ b/src/code/debug.lisp
@@ -1619,12 +1619,6 @@ and LDB (the low-level debugger).  See also ENABLE-DEBUGGER."
 
 ;;;; source location printing
 
-;;; Stuff to clean up before saving a core
-(defun debug-deinit ()
-  ;; Nothing to do right now. Once there was, maybe once there
-  ;; will be again.
-  )
-
 (defun code-location-source-form (location context &optional (errorp t))
   (let* ((start-location (maybe-block-start-location location))
          (form-num (sb!di:code-location-form-number start-location)))
diff --git a/src/code/save.lisp b/src/code/save.lisp
index c2dd588..8d414ea 100644
--- a/src/code/save.lisp
+++ b/src/code/save.lisp
@@ -200,7 +200,6 @@ sufficiently motivated to do lengthy fixes."
     (error "Cannot save core with multiple threads running."))
   (float-deinit)
   (profile-deinit)
-  (debug-deinit)
   (foreign-deinit)
   (stream-deinit)
   (deinit-finalizers)