From 27ad0a9e8a6482c9d8d2979e234683e77bb5624c Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 17 Aug 1993 21:01:09 +0000 Subject: [PATCH] If byte-compiled, call the byte disassembler. --- compiler/disassem.lisp | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index a5650711e..51ee2b89f 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.19 1992/12/17 11:24:37 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.20 1993/08/17 21:01:09 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3227,14 +3227,17 @@ (type (or (member t) stream) stream) (type (member t nil) use-labels) (type c::backend backend)) - (disassemble-function (fun-self ; we can't detect closures, so - ; be careful - (compiled-function-or-lose object)) - :stream (if (eq stream t) - *standard-output* - stream) - :use-labels use-labels - :backend backend)) + (let ((fun (compiled-function-or-lose object))) + (if (typep fun 'kernel:byte-function) + (c:disassem-byte-fun fun) + ;; we can't detect closures, so be careful + (disassemble-function (fun-self fun) + :stream (if (eq stream t) + *standard-output* + stream) + :use-labels use-labels + :backend backend))) + (values)) (defun disassemble-memory (address length -- GitLab