I can see it is coming from
https://github.com/sbcl/sbcl/blob/a6b554af6a7cd8899ae7ccb82317120f7b8a21a7/src/code/cold-init.lisp#L322
and seems to fail in the last format of
https://github.com/sbcl/sbcl/blob/a6b554af6a7cd8899ae7ccb82317120f7b8a21a7/src/compiler/target-disassem.lisp#L1220
(defun !compile-inst-printers () (let ((package sb-assem::*backend-instruction-set-package*) (cache (list (list :printer) (list :prefilter) (list :labeller)))) (do-symbols (symbol package) (awhen (get symbol 'instruction-flavors) (setf (get symbol 'instructions) (collect-inst-variants symbol package it cache)))) (unless (sb-impl::!c-runtime-noinform-p) (format t "~&Disassembler: ~{~D printers, ~D prefilters, ~D labelers~}~%" (mapcar (lambda (x) (length (cdr x))) cache)))))
But why ?
I can see it is coming from
https:/ /github. com/sbcl/ sbcl/blob/ a6b554af6a7cd88 99ae7ccb8231712 0f7b8a21a7/ src/code/ cold-init. lisp#L322
and seems to fail in the last format of
https:/ /github. com/sbcl/ sbcl/blob/ a6b554af6a7cd88 99ae7ccb8231712 0f7b8a21a7/ src/compiler/ target- disassem. lisp#L1220
(defun !compile- inst-printers () :*backend- instruction- set-package* ) flavors)
(collect- inst-variants symbol package it cache)))) :!c-runtime- noinform- p)
(mapcar (lambda (x) (length (cdr x))) cache)))))
(let ((package sb-assem:
(cache (list (list :printer) (list :prefilter) (list :labeller))))
(do-symbols (symbol package)
(awhen (get symbol 'instruction-
(setf (get symbol 'instructions)
(unless (sb-impl:
(format t "~&Disassembler: ~{~D printers, ~D prefilters, ~D labelers~}~%"
But why ?