From cfb979b88ae970d47530501306bb4c38a4bbec51 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 28 Oct 1992 16:13:11 +0000
Subject: [PATCH] Fixed %test-headers to check that the lowtag of functions is
 the function lowtag, not the function header value.

---
 compiler/hppa/type-vops.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/hppa/type-vops.lisp b/compiler/hppa/type-vops.lisp
index 9e33c2cee..2cd18272a 100644
--- a/compiler/hppa/type-vops.lisp
+++ b/compiler/hppa/type-vops.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/hppa/type-vops.lisp,v 1.1 1992/07/13 03:48:37 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/type-vops.lisp,v 1.2 1992/10/28 16:13:11 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -143,7 +143,7 @@
 
 (defun %test-headers (value temp target not-p function-p headers
 			    &optional (drop-through (gen-label)) temp-loaded)
-  (let ((lowtag (if function-p function-header-type other-pointer-type)))
+  (let ((lowtag (if function-p function-pointer-type other-pointer-type)))
     (multiple-value-bind
 	(equal greater-or-equal when-true when-false)
 	;; EQUAL and GREATER-OR-EQUAL are the conditions for branching to
-- 
GitLab