side-step make-array in make-info - gcl.git - GNU Common Lisp

diff --git a/gcl/cmpnew/gcl_cmpinline.lsp b/gcl/cmpnew/gcl_cmpinline.lsp
index 8d7108b37..79d6383f7 100755
--- a/gcl/cmpnew/gcl_cmpinline.lsp
+++ b/gcl/cmpnew/gcl_cmpinline.lsp

@@ -30,8 +30,8 @@

;;; are large, as occurs at present in running the random-int-form tester.

;;; 20040320 CM

-

-(defmacro mia (x y) `(make-array ,x :adjustable t :fill-pointer ,y))

+(defmacro mia (x y) `(si:make-vector t ,x t ,y nil 0 nil nil))

+;(defmacro mia (x y) `(make-array ,x :adjustable t :fill-pointer ,y))

(defmacro eql-not-nil (x y) `(and ,x (eql ,x ,y)))

(defstruct (info (:copier old-copy-info))