Here is a candidate implementation of thread-attributes for LispWorks:
; swank-lispworks.lisp
(defimplementation thread-attributes (thread)
(list :priority (mp:process-priority thread)
:idle (mp:process-idle-time thread)))
-- Terje Norderhaug