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