[nongnu] elpa/slime 0cc2e73611 27/44: inspector: show array-displacement.

[ELPA Syncer]

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

    inspector: show array-displacement.
---
 swank.lisp | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/swank.lisp b/swank.lisp
index 07af095429..be2a248c77 100644
--- a/swank.lisp
+++ b/swank.lisp
@@ -3405,9 +3405,16 @@ Return NIL if LIST is circular."
    (iline "Adjustable" (adjustable-array-p array))
    (iline "Fill pointer" (if (array-has-fill-pointer-p array)
                              (fill-pointer array)))
-   (if (array-has-fill-pointer-p array)
-       (emacs-inspect-vector-with-fill-pointer-aux array)
-       (emacs-inspect-array-aux array))))
+   (multiple-value-bind (displaced offset) (array-displacement array)
+     (if displaced
+         (lcons* (iline "Displaced to" displaced)
+                 (iline "Displaced index offset" offset)
+                 (if (array-has-fill-pointer-p array)
+                     (emacs-inspect-vector-with-fill-pointer-aux array)
+                     (emacs-inspect-array-aux array)))
+         (if (array-has-fill-pointer-p array)
+             (emacs-inspect-vector-with-fill-pointer-aux array)
+             (emacs-inspect-array-aux array))))))
 
 (defun emacs-inspect-array-aux (array)
   (unless (= 0 (array-total-size array))