diff options
Diffstat (limited to 'src/code/inspect.lisp')
-rw-r--r-- | src/code/inspect.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/code/inspect.lisp b/src/code/inspect.lisp index 43faa94fe..15710caec 100644 --- a/src/code/inspect.lisp +++ b/src/code/inspect.lisp @@ -247,7 +247,9 @@ evaluated expressions. (defmethod inspected-parts ((object array)) (let* ((length (min (array-total-size object) *inspect-length*)) - (reference-array (make-array length :displaced-to object)) + (reference-array (make-array length + :element-type (array-element-type object) + :displaced-to object)) (dimensions (array-dimensions object)) (reversed-elements nil)) ;; FIXME: Should we respect *INSPECT-LENGTH* here? If not, what does |