From 19492f4c836969cae0059cf42747a49ea53714f7 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Dec 1991 18:47:02 +0000 Subject: [PATCH] Always put value cells, funcallable instances and weak pointers in static space. --- ldb/purify.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ldb/purify.c b/ldb/purify.c index 1aef5af6f..6e6e78403 100644 --- a/ldb/purify.c +++ b/ldb/purify.c @@ -1,6 +1,6 @@ /* Purify. */ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.14 1991/05/24 18:36:03 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/purify.c,v 1.15 1991/12/20 18:47:02 ram Exp $ */ #include <stdio.h> @@ -413,10 +413,12 @@ static lispobj ptrans_otherptr(thing, header, constant) case type_ComplexVector: case type_ComplexArray: case type_ClosureHeader: + return ptrans_boxed(thing, header, constant); + case type_FuncallableInstanceHeader: case type_ValueCellHeader: case type_WeakPointer: - return ptrans_boxed(thing, header, constant); + return ptrans_boxed(thing, header, FALSE); case type_SymbolHeader: return ptrans_symbol(thing, header); -- GitLab