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/lib/misc.lisp

    r11373 r11523  
    976976            0))
    977977  name)
     978
     979(defun %lock-whostate-string (string lock)
     980  (with-standard-io-syntax
     981      (format nil "~a for ~a ~@[~a ~]@ #x~x"
     982              string
     983              (%svref lock target::lock.kind-cell)
     984              (lock-name lock)
     985              (%ptr-to-int (%svref lock target::lock._value-cell)))))
Note: See TracChangeset for help on using the changeset viewer.