X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fclass.lisp;h=fd139830f9add49b7fdf6244d399e12613ce919e;hb=b420873de742dd0e9ff0d2231d2cc37cf6aba3f8;hp=14532ed64bf42438d940d9629c0c0e27ba0cf1ab;hpb=94743c6e54d28544f72565e52a56877fa91f180c;p=sbcl.git

diff --git a/src/code/class.lisp b/src/code/class.lisp
index 14532ed..fd13983 100644
--- a/src/code/class.lisp
+++ b/src/code/class.lisp
@@ -1380,11 +1380,6 @@
 		   name
 		   layout))))))
 
-;;; 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
-(declaim (type simple-vector *built-in-class-codes*))
-
 (!cold-init-forms
   #-sb-xc-host (/show0 "about to set *BUILT-IN-CLASS-CODES*")
   (setq *built-in-class-codes*