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