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

Actually define a funcallable-instance primitive-type.

parent 78a65a9f
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.10 1993/03/13 17:09:28 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.11 1993/03/13 20:22:52 ram Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -60,6 +60,8 @@
(def-primitive-type list (descriptor-reg))
(def-primitive-type instance (descriptor-reg))
(def-primitive-type funcallable-instance (descriptor-reg))
;;; Primitive other-pointer number types.
;;;
(def-primitive-type bignum (descriptor-reg))
......@@ -244,8 +246,8 @@
((nil) (values *any-primitive-type* nil))))
(built-in-class
(case (class-name type)
((complex function funcallable-instance instance
system-area-pointer weak-pointer)
((complex function instance funcallable-instance system-area-pointer
weak-pointer)
(values (primitive-type-or-lose (class-name type) *backend*) t))
(base-char
(exactly base-char))
......
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