X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-error.lisp;h=b5aaa581408328ce4ae3dd5eb2f0404a951edacb;hb=82e0a78df47685519b12683f495d7ae19e07d3cf;hp=80ae1de35b78380251db2a87df80e3306aa6017c;hpb=64bf93a97814ea1caf62bbdcc7ef43e2fbfc8f73;p=sbcl.git

diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp
index 80ae1de..b5aaa58 100644
--- a/src/code/cold-error.lisp
+++ b/src/code/cold-error.lisp
@@ -72,12 +72,9 @@
   #!+sb-doc
   "Invoke the signal facility on a condition formed from datum and arguments.
    If the condition is not handled, the debugger is invoked."
-  (/show0 "entering ERROR")
-  #!+sb-show
-  (unless *cold-init-complete-p*
-    (/show0 "ERROR in cold init, arguments=..")
-    #!+sb-show (dolist (argument arguments)
-		 (sb!impl::cold-print argument)))
+  (/show0 "entering ERROR, arguments=..")
+  #!+sb-show (dolist (argument arguments)
+	       (sb!impl::cold-print argument))
   (sb!kernel:infinite-error-protect
     (let ((condition (coerce-to-condition datum arguments
 					  'simple-error 'error))