X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fearly-c.lisp;h=6b793b7bcd40dd049717e0f2f0d6c82d596af2bd;hb=ec066d84dd46611428943d152749b3891a3f4b7c;hp=1faa6f835a5de35c9c79f514585ebe04eff47a28;hpb=dc84ceb894fdbe315f82dd8336f3ba894435a669;p=sbcl.git

diff --git a/src/compiler/early-c.lisp b/src/compiler/early-c.lisp
index 1faa6f8..6b793b7 100644
--- a/src/compiler/early-c.lisp
+++ b/src/compiler/early-c.lisp
@@ -107,7 +107,7 @@
 (defvar *event-info*)
 (defvar *event-note-threshold*)
 (defvar *failure-p*)
-(defvar *fixups*)
+(defvar *fixup-notes*)
 (defvar *in-pack*)
 (defvar *info-environment*)
 (defvar *lexenv*)
@@ -116,6 +116,11 @@
 (defvar *undefined-warnings*)
 (defvar *warnings-p*)
 
+;;; This lock is seized in the compiler, and related areas: the
+;;; compiler is not presently thread-safe
+(defvar *big-compiler-lock*
+  (sb!thread:make-mutex :name "big compiler lock"))
+
 ;;; 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
@@ -174,6 +179,7 @@ convention (names like *FOO*) for special variables" symbol))
 ;;; FIXME: This function seems to have a lot in common with
 ;;; STRINGIFY-FORM, and perhaps there's some way to merge the two
 ;;; functions.
+(declaim (ftype (sfunction (string &rest t) string) debug-namify))
 (defun debug-namify (format-string &rest format-arguments)
   (with-standard-io-syntax
    (let ((*print-readably* nil)