Skip to content
Snippets Groups Projects
Commit 6a42784b authored by wlott's avatar wlott
Browse files

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.
parent e8e8525a
No related branches found
No related tags found
No related merge requests found
/* Purify. */ /* 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 <stdio.h>
#include <sys/types.h> #include <sys/types.h>
...@@ -318,7 +318,7 @@ static lispobj ptrans_func(lispobj thing, lispobj header) ...@@ -318,7 +318,7 @@ static lispobj ptrans_func(lispobj thing, lispobj header)
*old = result; *old = result;
/* Scavenge it. */ /* Scavenge it. */
pscav(new, nwords, TRUE); pscav(new, nwords, FALSE);
return result; return result;
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment