X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fprimordial-type.lisp;h=a89b20896b04a318f872b8910dfe89ab355b67fb;hb=b2f0204834bd0c314d44942dd92475c15ffa8c89;hp=b6420d7fcd6496adcb6fab1d5a59297f17d9520e;hpb=2912f5f6c2acb2da3b9fcc0f5afd1ca89782a9f8;p=sbcl.git

diff --git a/src/code/primordial-type.lisp b/src/code/primordial-type.lisp
index b6420d7..a89b208 100644
--- a/src/code/primordial-type.lisp
+++ b/src/code/primordial-type.lisp
@@ -17,8 +17,12 @@
 (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*))