From 3893801150d9636e53020c35a067aaba4f2ac5ef Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 8 Apr 2009 16:27:20 +0000
Subject: [PATCH] Print out the length of the array for simple arrays.

---
 lisp/print.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/print.c b/lisp/print.c
index f9f6d2a10..c81c80623 100644
--- a/lisp/print.c
+++ b/lisp/print.c
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.23 2008/03/19 09:17:13 cshapiro Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.24 2009/04/08 16:27:20 rtoy Exp $ */
 
 #include <stdio.h>
 #include <string.h>
@@ -434,6 +434,9 @@ static char *array_slots[] = { "fill-pointer:   ",
     NULL
 };
 
+static char *simple_array_slots[] = { "length:   ",
+    NULL
+};
 
 #if (defined(i386) || defined(__x86_64))
 static char *fn_slots[] =
@@ -657,6 +660,8 @@ print_otherptr(lispobj obj)
 #ifdef type_SimpleArrayComplexDoubleDoubleFloat
 	  case type_SimpleArrayComplexDoubleDoubleFloat:
 #endif
+	      print_slots(simple_array_slots, 1, ptr);
+	      break;
 	  case type_ComplexString:
 	  case type_ComplexBitVector:
 	  case type_ComplexVector:
-- 
GitLab