File sbcl-cast.patch of Package sbcl

---
 src/runtime/gencgc.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

--- a/src/runtime/gencgc.c
+++ b/src/runtime/gencgc.c
@@ -3540,7 +3540,7 @@ garbage_collect_generation(generation_in
         while (pin_list != NIL) {
             struct cons *list_entry =
                 (struct cons *)native_pointer(pin_list);
-            preserve_pointer(list_entry->car);
+            preserve_pointer((void *)list_entry->car);
             pin_list = list_entry->cdr;
         }
     }
openSUSE Build Service is sponsored by