[nongnu] elpa/slime 6ad8e26: swank-sbcl-exts: Fix compute-enriched-decoded-arglist for x86-64.

[ELPA Syncer]

branch: elpa/slime
commit 6ad8e26ea18a95d2ecd22c86c7e99e80cc9437c3
Author: Stas Boukarev <stassats@gmail.com>
Commit: Stas Boukarev <stassats@gmail.com>

    swank-sbcl-exts: Fix compute-enriched-decoded-arglist for x86-64.
---
 contrib/swank-sbcl-exts.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/contrib/swank-sbcl-exts.lisp b/contrib/swank-sbcl-exts.lisp
index dad8330..8151df9 100644
--- a/contrib/swank-sbcl-exts.lisp
+++ b/contrib/swank-sbcl-exts.lisp
@@ -44,6 +44,8 @@
                                 sb-assem::*inst-encoder*)
                        (find-symbol (format nil "M:~A" instr-name)
                                     
sb-assem::*backend-instruction-set-package*))))
+            (when (consp instr-fn)
+              (setf instr-fn (car instr-fn)))
             (cond ((functionp instr-fn)
                    (with-available-arglist (arglist) (arglist instr-fn)
                      (decode-instruction-arglist instr-name (cdr arglist))))