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

diff --git a/src/code/primordial-type.lisp b/src/code/primordial-type.lisp
index b6420d7..96dcfbe 100644
--- a/src/code/primordial-type.lisp
+++ b/src/code/primordial-type.lisp
@@ -17,6 +17,8 @@
 (defvar *empty-type*)
 (defvar *universal-type*)
 (defvar *universal-fun-type*)
+(defvar *instance-type*)
+(defvar *funcallable-instance-type*)
 
 ;;; a vector that maps type codes to layouts, used for quickly finding
 ;;; the layouts of built-in classes