X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=7ebf9911b3abd0294974ac99de487a63edb9ba01;hb=ebc0f0ebf9efd39519ab86ba28c33abdb25443e0;hp=c4bc398c903e91c053beb0ebc73b9c713dd6636f;hpb=d5d5103a4c3563ffb02ccf45cc4fdaa02ad13e75;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index c4bc398..7ebf991 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -368,6 +368,9 @@ valid_dynamic_space_pointer(lispobj *pointer, lispobj *start_addr)
 #endif
         case SAP_WIDETAG:
         case WEAK_POINTER_WIDETAG:
+#ifdef LUTEX_WIDETAG
+        case LUTEX_WIDETAG:
+#endif
             break;
 
         default:
@@ -945,6 +948,11 @@ 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(native_pointer(thing));
+          return ptrans_unboxed(thing, header);
+#endif
 
       case RATIO_WIDETAG:
       case COMPLEX_WIDETAG: