From 0a9999397e64cc7b7dcabe6f0bdc1a20a0d93714 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 14 Mar 1993 00:05:28 +0000 Subject: [PATCH] Changed PRIMITIVE-TYPE to return the function primitive type for the funcallable-instance built-in class, instead of the (non-existant) funcallable-instance primitive type. --- compiler/generic/primtype.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp index 575dc4c8c..cbe7d8c62 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.11 1993/03/13 20:22:52 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.12 1993/03/14 00:05:28 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -246,9 +246,10 @@ ((nil) (values *any-primitive-type* nil)))) (built-in-class (case (class-name type) - ((complex function instance funcallable-instance system-area-pointer - weak-pointer) + ((complex function instance system-area-pointer weak-pointer) (values (primitive-type-or-lose (class-name type) *backend*) t)) + (funcallable-instance + (part-of function)) (base-char (exactly base-char)) (cons -- GitLab