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