Changeset 11243


Ignore:
Timestamp:
Oct 29, 2008, 11:15:43 PM (11 years ago)
Author:
gb
Message:

Propagate r11242 to working-0711.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-lisp-threads.lisp

    r11164 r11243  
    10631063    ;; thread-local shallow binding
    10641064    (flet ((save-binding (new-value sym prev)
    1065              (let* ((idx (%svref sym target::symbol.binding-index-cell))
     1065             (let* ((idx (symbol-binding-index sym))
    10661066                    (byte-idx (ash idx target::fixnum-shift))
    10671067                    (binding-vector (%fixnum-ref (%current-tcr) target::tcr.tlb-pointer))
Note: See TracChangeset for help on using the changeset viewer.