X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fearly-c.lisp;h=978284fccaeaeeae89980b0fbde3b4c5ea127cff;hb=66cff1e1319861c080d563359afea284614b3a7f;hp=3ec37984cdb0fe5b20e91378dd1ed0a7c7e60959;hpb=30479182014bc1e02f54d330643ca45605e3530d;p=sbcl.git

diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp
index 3ec3798..978284f 100644
--- a/src/compiler/early-c.lisp
+++ b/src/compiler/early-c.lisp
@@ -129,6 +129,9 @@
 (defvar *big-compiler-lock*
   (sb!thread:make-mutex :name "big compiler lock"))
 
+(declaim (type fixnum *compiler-sset-counter*))
+(defvar *compiler-sset-counter* 0)
+
 ;;; unique ID for the next object created (to let us track object
 ;;; identity even across GC, useful for understanding weird compiler
 ;;; bugs where something is supposed to be unique but is instead