(defvar *empty-type*)
(defvar *universal-type*)
(defvar *universal-fun-type*)
+(defvar *instance-type*)
+(defvar *funcallable-instance-type*)
+(defvar *extended-sequence-type*)
;;; a vector that maps type codes to layouts, used for quickly finding
;;; the layouts of built-in classes
(defvar *built-in-class-codes*) ; initialized in cold load
+(defvar *null-classoid-layout*)
(declaim (type simple-vector *built-in-class-codes*))