From 1646691415236319c593e58186fe32e5177e751e Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 5 Nov 1991 16:24:27 +0000
Subject: [PATCH] Added FUNCALLABLE-INSTANCE-P.

---
 compiler/rt/type-vops.lisp    | 5 ++++-
 compiler/sparc/type-vops.lisp | 6 ++++--
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/compiler/rt/type-vops.lisp b/compiler/rt/type-vops.lisp
index b23467957..5c65f313c 100644
--- a/compiler/rt/type-vops.lisp
+++ b/compiler/rt/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/type-vops.lisp,v 1.2 1991/10/22 15:50:55 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/type-vops.lisp,v 1.3 1991/11/05 16:24:27 ram Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the IBM RT.
@@ -221,6 +221,9 @@
 (def-type-vops lra-p nil nil nil return-pc-header-type)
 (def-type-vops scavenger-hook-p nil nil nil 0)
 
+(def-type-vops funcallable-instance-p nil nil nil
+  vm:funcallable-instance-header-type)
+
 
 ;;;; Other integer ranges.
 
diff --git a/compiler/sparc/type-vops.lisp b/compiler/sparc/type-vops.lisp
index 8f4e5313b..205f45221 100644
--- a/compiler/sparc/type-vops.lisp
+++ b/compiler/sparc/type-vops.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.7 1991/10/31 16:19:55 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/type-vops.lisp,v 1.8 1991/11/05 16:23:15 ram Exp $
 ;;; 
 ;;; This file contains the VM definition of type testing and checking VOPs
 ;;; for the SPARC.
@@ -63,7 +63,6 @@
 
 ); eval-when (compile eval)
 
-
 (def-type-vops fixnump nil nil nil vm:even-fixnum-type vm:odd-fixnum-type)
 (define-vop (check-fixnum check-type)
   (:ignore temp)
@@ -173,6 +172,9 @@
 (def-type-vops lra-p nil nil nil
   vm:return-pc-header-type)
 
+(def-type-vops funcallable-instance-p nil nil nil
+  vm:funcallable-instance-header-type)
+
 (def-type-vops array-header-p nil nil nil
   vm:simple-array-type vm:complex-string-type vm:complex-bit-vector-type
   vm:complex-vector-type vm:complex-array-type)
-- 
GitLab