1.0.27.31: repeatable fasl header and debug-source

[sbcl.git] / src / code / early-full-eval.lisp

diff --git a/src/code/early-full-eval.lisp b/src/code/early-full-eval.lisp
index 7114306..97c85ef 100644 (file)
--- a/src/code/early-full-eval.lisp
+++ b/src/code/early-full-eval.lisp
@@ -12,15 +12,8 @@
 (in-package "SB!EVAL")
 
 (defparameter *eval-level* -1)
-(defparameter *eval-calls* 0)
 (defparameter *eval-verbose* nil)
 
-(defun !full-eval-cold-init ()
-  (setf *eval-level* -1
-        *eval-calls* 0
-        *eval-verbose* nil
-        *evaluator-mode* :compile))
-
 ;; !defstruct-with-alternate-metaclass is unslammable and the
 ;; RECOMPILE restart doesn't work on it.  This is the main reason why
 ;; this stuff is split out into its own file.  Also, it lets the