Raymond Toy pushed to branch issue-243-weak-pointer-to-static-array at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/gencgc.c
    ... ... @@ -5636,8 +5636,7 @@ scan_weak_pointers(void)
    5636 5636
                                 (stdout, "  Add static vector:  wp %p value %p header 0x%08lx\n",
    
    5637 5637
                                  wp, (lispobj *) wp->value, header));
    
    5638 5638
     
    
    5639
    -                    wp->next = static_vector_list;
    
    5640
    -                    static_vector_list = wp;
    
    5639
    +                    push(wp, &static_vector_list);
    
    5641 5640
                     } else {
    
    5642 5641
                         DPRINTF(debug_static_array_p,
    
    5643 5642
                                 (stdout, "  Skip: wp %p value %p header 0x%08lx\n",