diff --git a/compiler/rt/type-vops.lisp b/compiler/rt/type-vops.lisp index b234679572a87372355ee3a99e6bb0cf4024a229..5c65f313ca0a7bd483b6617b99b97b67fff58caa 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 8f4e5313b2c5509d5811e9cceffc152c40a2f20f..205f45221657427cabc4b5d8a480178c481369a1 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)