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