diff --git a/lisp/gc.c b/lisp/gc.c index 07d3210a72a91539aa56dea42e6b03d56396eb22..88a0fecf90bfb014f5909baf185b77a2f4a03b5d 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 c4cf8f584aa13a664aaa0cd07baad1e35d192ecc..ee229ee265dbaeefa359cdc2021f015b25211a74 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