Comment 7 for bug 2029382

Revision history for this message
Robert Palm (r-p-x) wrote :

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 ?