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

---
 lisp/gc.c     | 4 +++-
 lisp/purify.c | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/gc.c b/lisp/gc.c
index 07d3210a7..88a0fecf9 100644
--- a/lisp/gc.c
+++ b/lisp/gc.c
@@ -1,7 +1,7 @@
 /*
  * Stop and Copy GC based on Cheney's algorithm.
  *
- * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.2 1992/09/08 20:17:52 wlott Exp $
+ * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.3 1992/12/05 22:36:17 wlott Exp $
  * 
  * Written by Christopher Hoover.
  */
@@ -1675,11 +1675,13 @@ void gc_init(void)
 	scavtab[type_FuncallableInstanceHeader] = scav_closure_header;
 	scavtab[type_ByteCodeFunction] = scav_closure_header;
 	scavtab[type_ByteCodeClosure] = scav_closure_header;
+	scavtab[type_DylanFunctionHeader] = scav_closure_header;
 #else
 	scavtab[type_ClosureHeader] = scav_boxed;
 	scavtab[type_FuncallableInstanceHeader] = scav_boxed;
 	scavtab[type_ByteCodeFunction] = scav_boxed;
 	scavtab[type_ByteCodeClosure] = scav_boxed;
+	scavtab[type_DylanFunctionHeader] = scav_boxed;
 #endif
 	scavtab[type_ValueCellHeader] = scav_boxed;
         scavtab[type_SymbolHeader] = scav_boxed;
diff --git a/lisp/purify.c b/lisp/purify.c
index c4cf8f584..ee229ee26 100644
--- a/lisp/purify.c
+++ b/lisp/purify.c
@@ -1,6 +1,6 @@
 /* Purify. */
 
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.2 1992/08/20 02:43:37 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.3 1992/12/05 22:36:32 wlott Exp $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -604,6 +604,7 @@ static lispobj *pscav(lispobj *addr, int nwords, boolean constant)
 	      case type_FuncallableInstanceHeader:
 	      case type_ByteCodeFunction:
 	      case type_ByteCodeClosure:
+	      case type_DylanFunctionHeader:
 		count = pscav_closure_header((struct closure *)addr);
 		break;
 #endif
-- 
GitLab