From 7eb42fcad41825c0e782f0b12e76822941171090 Mon Sep 17 00:00:00 2001
From: Douglas Katzman <dougk@google.com>
Date: Fri, 4 Aug 2017 22:08:42 -0400
Subject: [PATCH] Remove *!initial-debug-sources*

Obsoleted in revision 5c2ad7a3fa3d3ee2d55b0b04823ecd8f21944898
---
 src/code/cold-init.lisp           |  1 -
 src/code/debug-info.lisp          | 10 ----------
 src/compiler/generic/genesis.lisp |  7 -------
 3 files changed, 18 deletions(-)

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 716cbe7dc..9795c5c4a 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -223,7 +223,6 @@
 
   (show-and-call os-cold-init-or-reinit)
   (show-and-call !pathname-cold-init)
-  (show-and-call !debug-info-cold-init)
 
   (show-and-call stream-cold-init-or-reset)
   (show-and-call !loader-cold-init)
diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index a0512dba5..d8ab58cde 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -393,16 +393,6 @@
   (tlf-number nil :type (or index null))
   (char-offset nil :type (or index null)))
 
-(defvar *!initial-debug-sources*)
-
-(defun !debug-info-cold-init ()
-  (let ((now (get-universal-time)))
-    (dolist (debug-source *!initial-debug-sources*)
-      (let* ((namestring (debug-source-namestring debug-source))
-             (timestamp (file-write-date namestring)))
-        (setf (debug-source-created debug-source) timestamp
-              (debug-source-compiled debug-source) now)))))
-
 ;;;; file reading
 ;;;;
 ;;;; When reading from a file, we have to keep track of some source
diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index ea3b4cd91..74236801d 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -464,10 +464,6 @@
 (declaim (special *!cold-toplevels* *!cold-defconstants*
                   *!cold-defuns* *cold-methods*))
 
-;;; the head of a list of DEBUG-SOURCEs which need to be patched when
-;;; the cold core starts up
-(defvar *current-debug-sources*)
-
 ;;; foreign symbol references
 (defparameter *cold-foreign-undefined-symbols* nil)
 
@@ -1741,8 +1737,6 @@ core and return a descriptor to it."
    (attach-fdefinitions-to-symbols
     (attach-classoid-cells-to-symbols (make-hash-table :test #'eq))))
 
-  (cold-set '*!initial-debug-sources* *current-debug-sources*)
-
   #!+x86
   (progn
     (cold-set 'sb!vm::*fp-constant-0d0* (number-to-core 0d0))
@@ -3612,7 +3606,6 @@ initially undefined function references:~2%")
            ;; to adhere to the #\! convention for automatic uninterning.
            (*cold-methods* nil)
            (*!cold-toplevels* nil)
-           (*current-debug-sources* *nil-descriptor*)
            *cold-static-call-fixups*
            *cold-assembler-fixups*
            *cold-assembler-routines*
-- 
2.11.4.GIT