X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprimordial-type.lisp;h=a89b20896b04a318f872b8910dfe89ab355b67fb;hb=38329dab20845da6964ffc2b03c6a0778c5498a1;hp=e131dcd84d59b26567044738e860e156fedf33a6;hpb=dbfdac9e56e044b1df898bcb7e1763997b03efa2;p=sbcl.git

diff --git a/src/code/primordial-type.lisp b/src/code/primordial-type.lisp
index e131dcd..a89b208 100644
--- a/src/code/primordial-type.lisp
+++ b/src/code/primordial-type.lisp
@@ -19,6 +19,7 @@
 (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