[nongnu] elpa/slime 1f9a95f3a0 18/43: Revert "sbcl: Use file-write-date instead of debug-source-created"

[ELPA Syncer]

branch: elpa/slime
commit 1f9a95f3a07b2aa5b01d8be427b90837be5cea6a
Author: Luís Oliveira <loliveira@common-lisp.net>
Commit: Luís Oliveira <loliveira@common-lisp.net>

    Revert "sbcl: Use file-write-date instead of debug-source-created"
    
    This reverts commit 3837255e0c309801c0959f720fe3d95ffea84289.
    
    The previous commit makes puts the source file cache in a weird spot
    and swank/sbcl still uses
    sb-introspect:definition-source-file-write-date so this issue needs
    to be figure in SBCL beforehand.
---
 swank/sbcl.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/swank/sbcl.lisp b/swank/sbcl.lisp
index cb26109f7d..6e20712a22 100644
--- a/swank/sbcl.lisp
+++ b/swank/sbcl.lisp
@@ -1349,8 +1349,8 @@ stack."
       (fallback-source-location code-location)))
 
 (defun source-file-source-location (code-location)
-  (let* ((filename (code-location-debug-source-name code-location))
-         (code-date (file-write-date filename))
+  (let* ((code-date (code-location-debug-source-created code-location))
+         (filename (code-location-debug-source-name code-location))
          (*readtable* (guess-readtable-for-filename filename))
          (source-code (get-source-code filename code-date)))
     (with-debootstrapping
@@ -1367,6 +1367,10 @@ stack."
                             'sb-c 'debug-source-namestring)
                            (sb-di::code-location-debug-source 
code-location)))))
 
+(defun code-location-debug-source-created (code-location)
+  (sb-c::debug-source-created
+   (sb-di::code-location-debug-source code-location)))
+
 (defun code-location-debug-fun-fun (code-location)
   (sb-di:debug-fun-fun (sb-di:code-location-debug-fun code-location)))