From 20117823c9aa3dc6f757c5577f12643bf2f5328f Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Thu, 25 Apr 2024 21:45:00 +0300
Subject: [PATCH] definition-source-file-location: fall back to 0.

---
 swank/sbcl.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/swank/sbcl.lisp b/swank/sbcl.lisp
index 9e7e06f51..ada18abff 100644
--- a/swank/sbcl.lisp
+++ b/swank/sbcl.lisp
@@ -946,7 +946,8 @@ QUALITIES is an alist with (quality . value)"
                           (ignore-errors
                            (source-file-position namestring file-write-date
                                                  form-path))))
-                    character-offset))
+                    character-offset
+                    0))
            (snippet (source-hint-snippet namestring file-write-date pos)))
       (make-location `(:file ,namestring)
                      ;; /file positions/ in Common Lisp start from