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

Make funcallable-instance-p a primitive predicate. Fix class-typep layout

lossage.
parent f902c742
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.17 1993/03/13 14:46:31 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/typetran.lisp,v 1.18 1993/03/13 17:27:23 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -138,6 +138,7 @@ ...@@ -138,6 +138,7 @@
(define-type-predicate simple-vector-p simple-vector) (define-type-predicate simple-vector-p simple-vector)
(define-type-predicate stringp string) (define-type-predicate stringp string)
(define-type-predicate %instancep instance) (define-type-predicate %instancep instance)
(define-type-predicate funcallable-instance-p funcallable-instance)
(define-type-predicate symbolp symbol) (define-type-predicate symbolp symbol)
(define-type-predicate vectorp vector)) (define-type-predicate vectorp vector))
...@@ -369,7 +370,7 @@ ...@@ -369,7 +370,7 @@
(t (t
(once-only ((object obj)) (once-only ((object obj))
`(and (,pred ,object) `(and (,pred ,object)
(class-typep (,layout ,object) ',class)))))))) (class-typep (,get-layout ,object) ',class))))))))
;;; SOURCE-TRANSFORM-STRUCTURE-TYPEP -- Internal ;;; SOURCE-TRANSFORM-STRUCTURE-TYPEP -- Internal
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment