diff options
| author | Nikodemus Siivola <nikodemus@random-state.net> | 2005-02-20 12:04:44 +0000 |
|---|---|---|
| committer | Nikodemus Siivola <nikodemus@random-state.net> | 2005-02-20 12:04:44 +0000 |
| commit | c0ecc57ac26dd507cbc13f78cd210321c18f173f (patch) | |
| tree | aa2cbaae3e406b1a60172cde798486764ee1a158 /src | |
| parent | ca267caa3bdb897a93a1e69ae7300ba3ba5d391f (diff) | |
0.8.19.33: fix inspection of specialized arrays
Patch by Simon Alexander on sbcl-devel 2005-02-19.
Note to self: it seems that we don't currently have
_any_ tests for the inspector. Make it not so, someday
soon for preference.
Diffstat (limited to 'src')
| -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 |