X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc-common.c;h=251aa6a7b2394ec0b1b2324748c9882a0ad71176;hb=be7adb92bf0012ab07adac2943e73772dfad7911;hp=a8f6aaf13ee99388611495bf6d857e5aa22498c3;hpb=862c0325616a991a5bd7b50d79f7176d2115493b;p=sbcl.git

diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index a8f6aaf..251aa6a 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
@@ -1491,7 +1491,7 @@ trans_weak_pointer(lispobj object)
 
     gc_assert(widetag_of(wp->header)==WEAK_POINTER_WIDETAG);
     /* Push the weak pointer onto the list of weak pointers. */
-    wp->next = LOW_WORD(weak_pointers);
+    wp->next = (struct weak_pointer *)LOW_WORD(weak_pointers);
     weak_pointers = wp;
 #endif
     return copy;