From 8427b33ea0eac9e2fd0e3fcd3e4ee8d9c264a91d Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Fri, 27 Jun 2003 15:54:25 +0000 Subject: [PATCH] * src/compiler/disassem.lisp (fun-address): Use #. in the case clauses. --- compiler/disassem.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/compiler/disassem.lisp b/compiler/disassem.lisp index 420635a45..a315a38a1 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.41 2003/06/11 12:52:55 emarsden Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/disassem.lisp,v 1.42 2003/06/27 15:54:25 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2016,11 +2016,11 @@ (defun fun-address (function) (declare (type compiled-function function)) (ecase (kernel:get-type function) - (vm:function-header-type + (#.vm:function-header-type (- (kernel:get-lisp-obj-address function) vm:function-pointer-type)) - (vm:closure-header-type + (#.vm:closure-header-type (fun-address (kernel:%closure-function function))) - (vm:funcallable-instance-header-type + (#.vm:funcallable-instance-header-type (fun-address (kernel:funcallable-instance-function function))))) (defun fun-insts-offset (function) -- GitLab