From 2767c53cb9f0f2b3993d744f9c9ab5d1af44c56f Mon Sep 17 00:00:00 2001
From: Stas Boukarev <sboukarev@common-lisp.net>
Date: Sat, 18 Aug 2012 16:34:06 +0000
Subject: [PATCH] * swank-abcl.lisp (find-definitions): Call ext:resolve before
 finding definitions, for the symbol may be not autoloaded yet.

---
 ChangeLog       | 5 +++++
 swank-abcl.lisp | 1 +
 2 files changed, 6 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 97a62106..771cbff1 100644
--- 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
index 0aa34454..ba4fe7ba 100644
--- 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)))))