diff --git a/ldb/purify.c b/ldb/purify.c index 1aef5af6f02b51fb1c4072b9b976db6f7c959ee2..6e6e78403010684176c15062f9222127424de839 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);