X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=b7b6ecdd04b0f18162af5344c4991896c821ffae;hb=f8893c7c658bf9d9e0757c63e47af2fdea810f04;hp=15f54ebb4f7fd22e73da2aeed84b733bb7cd74d5;hpb=f7b3fe1bd86348bfd2a3c506e437084752142c83;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 15f54eb..b7b6ecd 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -787,8 +787,7 @@ ptrans_func(lispobj thing, lispobj header)
      * Otherwise we have to do something strange, 'cause it is buried
      * inside a code object. */
 
-    if (widetag_of(header) == SIMPLE_FUN_HEADER_WIDETAG ||
-        widetag_of(header) == CLOSURE_FUN_HEADER_WIDETAG) {
+    if (widetag_of(header) == SIMPLE_FUN_HEADER_WIDETAG) {
 
 	/* We can only end up here if the code object has not been
          * scavenged, because if it had been scavenged, forwarding pointers
@@ -1268,7 +1267,6 @@ pscav(lispobj *addr, int nwords, boolean constant)
                 break;
 
               case SIMPLE_FUN_HEADER_WIDETAG:
-              case CLOSURE_FUN_HEADER_WIDETAG:
               case RETURN_PC_HEADER_WIDETAG:
                 /* We should never hit any of these, 'cause they occur
                  * buried in the middle of code objects. */