X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fproclaim.lisp;h=8c48392b369be83bb4ccca255bd1f8c5739c4cc1;hb=6a9bbe6f36179cee92001a1f9ed5ff38be512644;hp=1609080cc615f3e8e0a05ac1fc4a15c81b076223;hpb=b956ed4f9cef685d1b49be28dcd2aec1e082d994;p=sbcl.git

diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp
index 1609080..8c48392 100644
--- a/src/compiler/proclaim.lisp
+++ b/src/compiler/proclaim.lisp
@@ -80,8 +80,10 @@
 	    (t
 	     decl-spec)))))
 
+(defvar *queued-proclaims*) ; initialized in !COLD-INIT-FORMS
+
 (!begin-collecting-cold-init-forms)
-(!cold-init-forms (defvar *queued-proclaims* nil))
+(!cold-init-forms (setf *queued-proclaims* nil))
 (!defun-from-collected-cold-init-forms !early-proclaim-cold-init)
 
 (defun sb!xc:proclaim (raw-form)