X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftoplevel.lisp;h=d1d5daab9be9fd6cfa58fe3dbe26881202ba73df;hb=084168e1524a6493bc0f9d1697753d31239b158d;hp=acf013e10c53c3bceb54f4f8e8d59ac1e06d933a;hpb=ab03a2f300a4706196ed3ba9429965523c5f7ddb;p=sbcl.git

diff --git a/src/code/toplevel.lisp b/src/code/toplevel.lisp
index acf013e..d1d5daa 100644
--- a/src/code/toplevel.lisp
+++ b/src/code/toplevel.lisp
@@ -18,8 +18,8 @@
 ;;; FIXME: The DEFVAR here is redundant with the (DECLAIM (SPECIAL ..))
 ;;; of all static symbols in early-impl.lisp.
 (progn
-  (defvar *current-catch-block*)
-  (defvar *current-unwind-protect-block*)
+  (defvar sb!vm::*current-catch-block*)
+  (defvar sb!vm::*current-unwind-protect-block*)
   (defvar *free-interrupt-context-index*))
 
 ;;; specials initialized by !COLD-INIT
@@ -409,7 +409,7 @@
 	     ;; USERINITish files
              (probe-init-files (explicitly-specified-init-file-name
 				&rest default-init-file-names)
-               (declare (type list possible-init-file-names))
+               (declare (type list default-init-file-names))
 	       (if explicitly-specified-init-file-name
 		   (or (probe-file explicitly-specified-init-file-name)
                         (startup-error "The file ~S was not found."