From b6d92987917c9a2414226411e43fd121689e9e4d Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 19 Sep 1990 21:44:23 +0000 Subject: [PATCH] Fixed uses of %ARRAY-DISPLACED-P to be guarded by ARRAY-HEADER-P. --- code/tty-inspect.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/code/tty-inspect.lisp b/code/tty-inspect.lisp index 0a66b3206..7c39e3376 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) -- GitLab