From 0d29b64de9302b1edafa3371c897e68770cc2363 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 13 Mar 1993 20:22:52 +0000 Subject: [PATCH] Actually define a funcallable-instance primitive-type. --- compiler/generic/primtype.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp index ba41b3841..575dc4c8c 100644 --- a/compiler/generic/primtype.lisp +++ b/compiler/generic/primtype.lisp @@ -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)) -- GitLab