[Sbcl-devel] disassemble methods

[Knut O. B. <kn...@on...>]

Hi,

I have a method:

(defmethod foo ((x fixnum) (y fixnum))
  (declare (optimize (speed 3) (safety 0)))
  (the fixnum (+ x y)))

In lispworks I can do:

(disassemble (slot-value (find-method #'add '() (mapcar #'find-class
'(fixnum fixnum))) 'function))

It does not work in SBCL. I get some result from

(disassemble (slot-value (find-method #'add '() (mapcar #'find-class
'(fixnum fixnum))) 'SB-PCL::%FUNCTION))

But I don't realy know what it is.. It looks like it is the method
dispatcher.
Is threre a way to get similar result in SBCL as I did in lispworks with
disasemble on methods?

-- 
Konsulent, Fri Programvare / Free Software Consultant
Cell: +47 - 473 44 008
Phone: +47 - 21 53 69 00, Fax: +47 - 21 53 69 09
Addr: Nydalsveien 30 B, 0484 Oslo
Web: www.freecode.no

"It seems that I know that I know. What I'd like to see,
Is the I that knows me, When I know that I know that I know."