diff --git a/motif/lisp/xt-types.lisp b/motif/lisp/xt-types.lisp index a16e8bee9c74e4acb296473ff2e2731c5a6044db..90d7145bc524a2d0d5e91d66a95de03f1baa8855 100644 --- a/motif/lisp/xt-types.lisp +++ b/motif/lisp/xt-types.lisp @@ -15,11 +15,14 @@ (in-package "TOOLKIT") -(declaim (vector *class-table*)) (declaim (simple-vector *type-table*)) -(setf (fill-pointer *class-table*) 0) -(setf next-type-tag 0) +(defparameter *class-table* + (make-array 40 :element-type 'cons + :adjustable t :fill-pointer 0)) +(declaim (vector *class-table*)) + +(defparameter next-type-tag 0)