definition-source-file-location: fall back to 0.

slime · Apr 25, 2024 · 2011782 · 2011782
1 parent 1f3b856
commit 2011782
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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