X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fpurify.c;h=fc592d97fd5b2221ed686406a10151cd7cac5482;hb=d6f9676ae94419cb5544c45821a8d31adbc1fbe8;hp=c74015812c76c5373139ec2eccaf2496893a242f;hpb=ecfd159f29d31d2cc08d4e5598346c04c9387636;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index c740158..fc592d9 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -496,12 +496,6 @@ ptrans_otherptr(lispobj thing, lispobj header, boolean constant)
 #endif
       case SAP_WIDETAG:
           return ptrans_unboxed(thing, header);
-#ifdef LUTEX_WIDETAG
-      case LUTEX_WIDETAG:
-          gencgc_unregister_lutex((struct lutex *) native_pointer(thing));
-          return ptrans_unboxed(thing, header);
-#endif
-
       case RATIO_WIDETAG:
       case COMPLEX_WIDETAG:
       case SIMPLE_ARRAY_WIDETAG: