From d015f7702b0de555f5393382e7fc8a5c7209b242 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 5 Dec 1992 22:11:35 +0000
Subject: [PATCH] Added support for dylan function subtypes.

---
 compiler/generic/primtype.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp
index c3fc4b4da..0ae82c9da 100644
--- a/compiler/generic/primtype.lisp
+++ b/compiler/generic/primtype.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/primtype.lisp,v 1.7 1992/10/11 21:09:27 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.8 1992/12/05 22:11:35 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.7 1992/10/11 21:09:27 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.8 1992/12/05 22:11:35 wlott Exp $
 ;;;
 ;;; This file contains the machine independent aspects of the object
 ;;; representation and primitive types.
@@ -251,6 +251,11 @@
 	  (part-of base-char))
 	 (cons
 	  (part-of list))
+	 ((dylan::dylan-function dylan::generic-function dylan::exit-function
+	   dylan::next-method-func dylan::method dylan::defined-method
+	   dylan::builtin-method dylan::slot-accessor-method
+	   dylan::slot-setter-method dylan::slot-getter-method)
+	  (part-of function))
 	 (t
 	  (any))))
       (function-type
-- 
GitLab