From 9c8aa6c00569a7084500646da94ae88fbfd916d9 Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Wed, 21 Nov 2001 22:58:34 +0000
Subject: [PATCH] Inserted missing :element-type option to call of MAKE-ARRAY
 with :displaced-to option, as required by the tightened error-checking done
 in MAKE-ARRAY.

---
 code/tty-inspect.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/code/tty-inspect.lisp b/code/tty-inspect.lisp
index a10ddf7ec..314d195bb 100644
--- a/code/tty-inspect.lisp
+++ b/code/tty-inspect.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.19 2001/03/04 20:12:43 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.20 2001/11/21 22:58:34 pmai Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -222,7 +222,10 @@
 
 (defun describe-array-parts (object)
   (let* ((length (min (array-total-size object) inspect-length))
-	 (reference-array (make-array length :displaced-to object))
+	 (reference-array (make-array length
+				      :displaced-to object
+				      :element-type
+				      (array-element-type object)))
 	 (dimensions (array-dimensions object))
 	 (parts ()))
     (push (format nil "Object is ~:[a displaced~;an~] array of ~a.~%~
-- 
GitLab