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