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

In SAVE-BINDING inside %FOREIGN-THREAD-INITIALIZE: don't use %SVREF on
a symbol; use SYMBOL-BINDING-INDEX instead.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-lisp-threads.lisp

    r11151 r11242  
    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.