* swank-abcl.lisp (find-definitions): Call ext:resolve before

finding definitions, for the symbol may be not autoloaded yet.
antifuchs · Aug 18, 2012 · 2767c53 · 2767c53
1 parent fd63054
commit 2767c53
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-18  Stas Boukarev  <stassats@gmail.com>
+
+	* swank-abcl.lisp (find-definitions): Call ext:resolve before
+	finding definitions, for the symbol may be not autoloaded yet.
+
 2012-08-04  Stas Boukarev  <stassats@gmail.com>
 
 	* swank-sbcl.lisp (call-with-debugging-environment): Use

diff --git a/swank-abcl.lisp b/swank-abcl.lisp
@@ -594,6 +594,7 @@
                  if (try dir) return it)))))
 
 (defimplementation find-definitions (symbol)
+  (ext:resolve symbol)
   (let ((srcloc (source-location symbol)))
     (and srcloc `((,symbol ,srcloc)))))