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