[Sbcl-devel] sb-sprof and disassemble

[Zach B. <xa...@xa...>]

I ran into a problem with disassembling:

  $ sbcl
  This is SBCL 0.9.18.66, an implementation of ANSI Common Lisp.
  More information about SBCL is available at <http://www.sbcl.org/>.

  SBCL is free software, provided as is, with absolutely no warranty.
  It is mostly in the public domain; some portions are provided under
  BSD-style licenses.  See the CREDITS and COPYING files in the
  distribution for more information.
  CL-USER(1): (require 'sb-sprof)    

  ("SB-SPROF")
  CL-USER(2): (defun foo (i) (* i i i))

  FOO
  CL-USER(3): (sb-sprof:start-profiling)

  CL-USER(4): (dotimes (i 1000000) (foo i))

  NIL
  CL-USER(5): (sb-sprof:stop-profiling)

  CL-USER(6): (sb-sprof:reset)

  CL-USER(7): (disassemble 'foo)

  debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" {B2BD301}>:
    The value NIL is not of type SB-SPROF::SAMPLES.
  restarts (invokable by number or by possibly-abbreviated name):
    0: [ABORT] Exit debugger, returning to top level.

  (SB-SPROF::ADD-DISASSEMBLY-PROFILE-NOTE
   #<unavailable argument>
   #<unavailable argument>
   #<SB-DISASSEM:DISASSEM-STATE +0 in #<SB-DISASSEM:SEGMENT #XACC5E56[52] in #<code object (SB-C::XEP
                                                                                            FOO) {ACC5DDF}>>>)
  0] :Ab

  CL-USER(8): (defun foo (i) (* i i))
  STYLE-WARNING: redefining FOO in DEFUN

  FOO
  CL-USER(9): (disassemble 'foo)

  debugger invoked on a TYPE-ERROR in thread #<THREAD "initial thread" {B2BD301}>:
    The value NIL is not of type SB-SPROF::SAMPLES.

  restarts (invokable by number or by possibly-abbreviated name):
    0: [ABORT] Exit debugger, returning to top level.

  (SB-SPROF::ADD-DISASSEMBLY-PROFILE-NOTE
   #<unavailable argument>
   #<unavailable argument>
   #<SB-DISASSEM:DISASSEM-STATE +0 in #<SB-DISASSEM:SEGMENT #XAA041B0[42] in #<code object (SB-C::XEP
                                                                                            FOO) {AA04137}>>>)
  0] 

Zach