X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=bbdba180c53cfdd804fa2009edf5ce354277d41f;hb=334af30b26555f0bf706f7157b399bdbd4fad548;hp=2d1e4f4c412cba702a74ce772aac1e3cc7fb8128;hpb=ce62508ec1a0f39008c18a2a5a06461eabe662c0;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 2d1e4f4..bbdba18 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -575,7 +575,7 @@ static lispobj ptrans_instance(lispobj thing, lispobj header, boolean constant)
 	return (ptrans_boxed(thing, header, 0));
     case 0:
 	{
-	    /* Substructure: special case for the compact-info-envs, where
+	    /* Substructure: special case for the COMPACT-INFO-ENVs, where
 	     * the instance may have a point to the dynamic space placed
 	     * into it (e.g. the cache-name slot), but the lists and arrays
 	     * at the time of a purify can be moved to the RO space. */