diff --git a/code/tty-inspect.lisp b/code/tty-inspect.lisp index 0a66b3206776f470f7ba0380de0c941b85b53789..7c39e3376b931797cc85184becfa2e4546629c57 100644 --- a/code/tty-inspect.lisp +++ b/code/tty-inspect.lisp @@ -186,7 +186,9 @@ (defun describe-vector-parts (object) (list* (format nil "Object is a ~:[~;displaced ~]vector of length ~d.~%" - (lisp::%array-displaced-p object) (length object)) + (and (lisp::array-header-p object) + (lisp::%array-displaced-p object)) + (length object)) nil (coerce object 'list))) @@ -215,7 +217,9 @@ (parts ())) (push (format nil "Object is ~:[a displaced~;an~] array of ~a.~%~ Its dimensions are ~s.~%" - (array-element-type object) (lisp::%array-displaced-p object) + (array-element-type object) + (and (lisp::array-header-p object) + (lisp::%array-displaced-p object)) dimensions) parts) (push t parts)