-
- ;; REMOVEME
- (/show0 "cold/low (LENGTH ARGUMENTS)=..")
- (/hexstr (length arguments))
- (dolist (argument arguments)
- (/show0 "cold/low ARGUMENT=..")
- (/hexstr argument)
- (if (symbolp argument)
- (progn
- (/show0 "Argument is a SYMBOL..")
- (/primitive-print (symbol-name argument)))
- (let ((argument-type (type-of argument)))
- (cond ((symbolp argument-type)
- (/show0 "Argument type is a SYMBOL..")
- (/primitive-print (symbol-name argument-type)))
- ((listp argument-type)
- (/primitive-print "Argument type is a LIST."))
- (t
- (/primitive-print "Argument type is not a SYMBOL or LIST."))))))
+ (unless *cold-init-complete-p*
+ (%primitive print "can't recover from error in cold init, halting")
+ (%primitive sb!c:halt))