From 1fbfe875c26e37ba237edb0c27412abe95a1d1df Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 12 Mar 1993 18:20:11 +0000 Subject: [PATCH] Add %set-funcallable-instance-info and some exports. --- compiler/generic/vm-fndb.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index 961a311f5..b4447e086 100644 --- a/compiler/generic/vm-fndb.lisp +++ b/compiler/generic/vm-fndb.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/vm-fndb.lisp,v 1.49 1993/03/12 16:50:30 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.50 1993/03/12 18:20:11 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -24,7 +24,9 @@ stack-ref %set-stack-ref lra-code-header function-code-header make-lisp-obj get-lisp-obj-address function-word-offset - funcallable-instance-p %set-funcallable-instance-info + funcallable-instance-p %funcallable-instance-info + %set-funcallable-instance-info %funcallable-instance-function + %funcallable-instance-lexenv code-header-ref code-header-set code-instructions shift-towards-start shift-towards-end function-subtype @@ -300,11 +302,9 @@ (defknown %make-funcallable-instance (index function function layout) function (unsafe)) -(defknown %set-funcallable-instance-function (function function) function - (unsafe)) +(defknown %funcallable-instance-info (function index) t (flushable)) (defknown %set-funcallable-instance-info (function index t) t (unsafe)) - ;;;; Mutator accessors. -- GitLab