13 Dec
2003
13 Dec
'03
8:37 a.m.
(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