From 06f2e3ffd22481fbeeae5c69689f808aaf0b52ce Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 14 Apr 1992 02:57:18 +0000
Subject: [PATCH] Added defknowns for function-subtype and (setf
 function-subtype).

---
 compiler/generic/vm-fndb.lisp | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index 7ade47415..cf6726290 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -7,11 +7,11 @@
 ;;; 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.42 1992/03/07 17:14:17 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.43 1992/04/14 02:57:18 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.42 1992/03/07 17:14:17 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.43 1992/04/14 02:57:18 wlott Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -29,6 +29,7 @@
 	  funcallable-instance-p %set-funcallable-instance-info
 	  code-header-ref code-header-set code-instructions
 	  shift-towards-start shift-towards-end
+	  function-subtype
 
 	  32bit-logical-not
 	  32bit-logical-and 32bit-logical-nand
@@ -267,6 +268,13 @@
 (defknown code-header-ref (t index) t (flushable))
 (defknown code-header-set (t index t) t ())
 
+(defknown function-subtype (function) (unsigned-byte #.vm:type-bits)
+  (flushable))
+(defknown ((setf function-subtype))
+	  ((unsigned-byte #.vm:type-bits) function)
+  (unsigned-byte #.vm:type-bits)
+  ())
+
 (defknown make-fdefn (t) fdefn (flushable movable))
 (defknown fdefn-p (t) boolean (movable foldable flushable))
 (defknown fdefn-name (fdefn) t (foldable flushable))
-- 
GitLab