From: Stas Boukarev 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)