- (sb!impl::hexstr (length *!reversed-cold-toplevels*)))
- (let (#!+sb-show (index-in-cold-toplevels 0)
- #!+sb-show (filename-in-cold-toplevels nil))
+ (if (listp *!reversed-cold-toplevels*) "true" "NIL"))
+ (/show0 "about to calculate (LENGTH *!REVERSED-COLD-TOPLEVELS*)")
+ (/show0 "(LENGTH *!REVERSED-COLD-TOPLEVELS*)=..")
+ #!+sb-show (let ((r-c-tl-length (length *!reversed-cold-toplevels*)))
+ (/show0 "(length calculated..)")
+ (let ((hexstr (sb!impl::hexstr r-c-tl-length)))
+ (/show0 "(hexstr calculated..)")
+ (%primitive print hexstr)))
+ (let (#!+sb-show (index-in-cold-toplevels 0))