Changeset 13401


Ignore:
Timestamp:
Jan 21, 2010, 12:59:38 PM (15 years ago)
Author:
Gary Byers
Message:

In STATIC-CONS, disable interrupts around the call to %ATOMIC-POP-STATIC-CONS.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/lib/misc.lisp

    r13374 r13401  
    11671167   table.  Usage is equivalent to regular CONS."
    11681168  (loop
    1169     (let ((cell (%atomic-pop-static-cons)))
     1169    (let ((cell (without-interrupts (%atomic-pop-static-cons))))
    11701170      (if cell
    11711171        (progn
Note: See TracChangeset for help on using the changeset viewer.