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

Added funcallable-instance-p source transform.

parent 1faafdf0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.20 1990/10/04 23:26:10 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.21 1990/11/25 20:59:40 ram Exp $
;;; ;;;
;;; This file contains impelemtentation-dependent transforms. ;;; This file contains impelemtentation-dependent transforms.
;;; ;;;
...@@ -22,6 +22,9 @@ ...@@ -22,6 +22,9 @@
(def-source-transform short-float-p (x) `(single-float-p ,x)) (def-source-transform short-float-p (x) `(single-float-p ,x))
(def-source-transform long-float-p (x) `(double-float-p ,x)) (def-source-transform long-float-p (x) `(double-float-p ,x))
(def-source-transform funcallable-instance-p (x)
`(eql (get-type ,x) vm:funcallable-instance-header-type))
(def-source-transform compiled-function-p (x) (def-source-transform compiled-function-p (x)
`(functionp ,x)) `(functionp ,x))
......
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