Ignore:
Timestamp:
Dec 15, 2008, 10:28:35 AM (11 years ago)
Author:
gb
Message:

x86 support for FLASH-FREEZE.
Use signed_natural in x86 gc-like functions.
RECURSIVE-LOCK-WHOSTATE and the RWLOCK-WHOSTATE functions: use
WITH-STANDARD-IO-SYNTAX when consing up the string. Do that in
higher-level code, to avoid early refs to CL-USER pacjage.
(In general, other things similar to RECURSIVE-LOCK-WHOSTATE are
suspect, in that they call (FORMAT NIL ...) in a random environment
where things like *PRINT-READABLY* may be in effect. There are
probably other cases of this.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-aprims.lisp

    r10453 r11523  
    155155    (or (%svref r target::lock.whostate-cell)
    156156        (setf (%svref r target::lock.whostate-cell)
    157               (format nil "Lock ~s wait" r)))
     157              (%lock-whostate-string "Lock wait" r)))
    158158    (report-bad-arg r 'recursive-lock)))
    159159
     
    175175    (or (%svref rw target::lock.whostate-cell)
    176176        (setf (%svref rw target::lock.whostate-cell)
    177               (format nil "Read lock ~s wait" rw)))
     177              (%lock-whostate-string "Read lock wait" rw)))
    178178    (report-bad-arg rw 'read-write-lock)))
    179179
     
    183183    (or (%svref rw target::lock.whostate-2-cell)
    184184        (setf (%svref rw target::lock.whostate-2-cell)
    185               (format nil "Read lock ~s wait" rw)))
     185              (%lock-whostate-string "Write lock wait" rw)))
    186186    (report-bad-arg rw 'read-write-lock)))
    187187 
Note: See TracChangeset for help on using the changeset viewer.