Skip to content
Snippets Groups Projects
Commit 16466914 authored by ram's avatar ram
Browse files

Added FUNCALLABLE-INSTANCE-P.

parent d0ba17f8
No related branches found
No related tags found
No related merge requests found
......@@ -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.
......
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment