branch: elpa/slime
commit 79b0b75f71aac249f00b17d95aa63ae3ff97ef75
Author: Stas Boukarev <[email protected]>
Commit: Stas Boukarev <[email protected]>
swank-sbcl-exts: fix inst-location for x86-64
---
contrib/swank-sbcl-exts.lisp | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/contrib/swank-sbcl-exts.lisp b/contrib/swank-sbcl-exts.lisp
index 752fa2acd0..65997a3309 100644
--- a/contrib/swank-sbcl-exts.lisp
+++ b/contrib/swank-sbcl-exts.lisp
@@ -67,12 +67,14 @@
(defslimefun inst-location (name)
(let ((inst (find-instruction (string-upcase name))))
+ (when (consp inst)
+ (setf inst (car inst)))
(cond ((functionp inst)
(find-definition-for-thing inst))
((fboundp inst)
(let ((macro (macro-function inst)))
(when macro
- (find-definition-for-thing macro)))))))
+ (find-definition-for-thing macro)))))))
) ; PROGN
(provide :swank-sbcl-exts)
