[slime-devel] sldb-disassemble for openmcl

[Alan Ruttenberg]

(defslimefun sldb-disassemble (the-frame-number)
   "Return a string with the disassembly of frames code."
   (let ((function-to-disassemble nil))
     (block find-frame
       (map-backtrace
        #'(lambda(frame-number p tcr lfun pc)
            (declare (ignore p tcr pc))
            (when (= frame-number the-frame-number)
              (setq function-to-disassemble lfun)
              (return-from find-frame))
            )))
     (with-output-to-string (s)
       (ccl::print-ppc-instructions s (ccl::function-to-dll-header 
function-to-disassemble) nil))))

-Alan