diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index c7579feb9a1f0cfabcd54345b6a6abbc5844ec23..20b07fc64f51bf9b7879c7ad1c8eff2985ae643f 100644 --- a/compiler/disassem.lisp +++ b/compiler/disassem.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.35 2003/02/14 17:21:54 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.36 2003/03/06 13:38:13 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3669,9 +3669,9 @@ symbol object that we know about.") (declare (type disassem-state dstate)) (unless (typep address 'address) (return-from maybe-note-assembler-routine nil)) - (let ((name (#+linkage-table lisp::find-foreign-symbol - #-linkage-table find-assembler-routine - address))) + (let ((name (or + #+linkage-table (lisp::find-foreign-symbol address) + (find-assembler-routine address)))) (unless (null name) (note #'(lambda (stream) (if NOTE-ADDRESS-P