- (let ((fun (compiled-function-or-lose object)))
- (if nil #|(typep fun 'sb!kernel:byte-function)|# ; FIXME: byte compile to go away completely
- (sb!c:disassem-byte-fun fun)
- ;; We can't detect closures, so be careful.
- (disassemble-function (fun-self fun)
- :stream stream
- :use-labels use-labels)))