From 0d6f20340333a05b1f990056b38ffb77083de2f1 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Thu, 31 May 2012 21:25:33 -0700
Subject: [PATCH] Don't set dimension of array to 1 for the rest slots of a
 primitive object.

---
 src/compiler/generic/new-genesis.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler/generic/new-genesis.lisp b/src/compiler/generic/new-genesis.lisp
index 9523d41fb..953d9ba9e 100644
--- a/src/compiler/generic/new-genesis.lisp
+++ b/src/compiler/generic/new-genesis.lisp
@@ -2570,7 +2570,7 @@
       (when (vm:primitive-object-header obj)
 	(format t "    lispobj header;~%"))
       (dolist (slot (vm:primitive-object-slots obj))
-	(format t "    ~A ~A~@[[1]~];~%"
+	(format t "    ~A ~A~@[[]~];~%"
 		(getf (vm:slot-options slot) :c-type "lispobj")
 		(nsubstitute #\_ #\-
 			     (string-downcase (string (vm:slot-name slot))))
-- 
GitLab