From 6a42784bfc3b4232c38985a9ab1cb4497b767add Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 20 Aug 1992 02:43:37 +0000
Subject: [PATCH] Just because we close over something doesn't mean that it's
 constant.  Our pointer to it will never change, but the closure function can
 do anything it wants to it.

---
 lisp/purify.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/purify.c b/lisp/purify.c
index a15ac8999..c4cf8f584 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.1 1992/07/28 20:15:23 wlott Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.2 1992/08/20 02:43:37 wlott Exp $ */
 
 #include <stdio.h>
 #include <sys/types.h>
@@ -318,7 +318,7 @@ static lispobj ptrans_func(lispobj thing, lispobj header)
         *old = result;
 
         /* Scavenge it. */
-        pscav(new, nwords, TRUE);
+        pscav(new, nwords, FALSE);
 
         return result;
     }
-- 
GitLab