X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-error.lisp;h=869cdbbc947d1402527fe44b99eeab8da0cc5e88;hb=ce02ab2ecd9c6ae2e570abd8c93ebf3be55bbdad;hp=ba5a7f0b400afb4f800a9bb02d09100148fd3a1d;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp
index ba5a7f0..869cdbb 100644
--- a/src/code/cold-error.lisp
+++ b/src/code/cold-error.lisp
@@ -10,7 +10,7 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-(in-package "SB!CONDITIONS")
+(in-package "SB!KERNEL")
 
 (defvar *break-on-signals* nil
   #!+sb-doc
@@ -72,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))