0.6.11.13:

[sbcl.git] / src / code / cold-error.lisp

diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp
index a88b1a2..869cdbb 100644 (file)
--- a/src/code/cold-error.lisp
+++ b/src/code/cold-error.lisp
@@ -10,10 +10,7 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB!CONDITIONS")
-
-(sb!int:file-comment
-  "$Header$")
+(in-package "SB!KERNEL")
 
 (defvar *break-on-signals* nil
   #!+sb-doc
@@ -75,12 +72,11 @@
   #!+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, argument list=..")
+  (/hexstr arguments)
+  (/show0 "printing ERROR arguments one by one..")
+  #!+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))