From b9a746f17bb968934bd726e321ad140467eaf53f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 11 May 1993 18:11:29 +0000
Subject: [PATCH] Fix FNI defs.

---
 code/byte-interp.lisp | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp
index 69595dfb5..458000ee5 100644
--- a/code/byte-interp.lisp
+++ b/code/byte-interp.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.7 1993/05/11 17:29:10 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.8 1993/05/11 18:11:29 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -52,7 +52,8 @@
 ;;; Represents a byte-compiled closure.
 ;;;
 (defstruct (byte-closure (:include byte-function-or-closure)
-			 (:constructor make-byte-closure function data))
+			 (:constructor make-byte-closure function data)
+			 (:type kernel:funcallable-structure))
   ;;
   ;; Byte function that we call.
   (function (required-argument) :type byte-function)
@@ -64,7 +65,8 @@
 ;;; Any non-closure byte function (including the hidden function object for a
 ;;; closure.)
 ;;;
-(defstruct (byte-function (:include byte-function-or-closure))
+(defstruct (byte-function (:include byte-function-or-closure)
+			  (:type kernel:funcallable-structure))
   ;;
   ;; The component that this XEP is an entry point into.  NIL until
   ;; LOAD or MAKE-CORE-BYTE-COMPONENT fills it in.  They count on this being
@@ -76,7 +78,8 @@
 
 ;;; Fixed-argument byte function.
 ;;;
-(defstruct (simple-byte-function (:include byte-function))
+(defstruct (simple-byte-function (:include byte-function)
+				 (:type kernel:funcallable-structure))
   ;;
   ;; The number of arguments expected.
   (num-args 0 :type (integer 0 #.call-arguments-limit))
@@ -87,7 +90,8 @@
 
 ;;; Variable arg-count byte function.
 ;;;
-(defstruct (hairy-byte-function (:include byte-function))
+(defstruct (hairy-byte-function (:include byte-function)
+				(:type kernel:funcallable-structure))
   ;;
   ;; The minimum and maximum number of args, ignoring &rest and &key.
   (min-args 0 :type (integer 0 #.call-arguments-limit))
-- 
GitLab