X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcold-error.lisp;h=869cdbbc947d1402527fe44b99eeab8da0cc5e88;hb=c8af15e61b030c8d4b0e950bc9b7618530044618;hp=a88b1a22c282c79fa8db7d251fcd3b5467413ce3;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git diff --git a/src/code/cold-error.lisp b/src/code/cold-error.lisp index a88b1a2..869cdbb 100644 --- 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))