Can't print a waitqueue object when *print-circle* is nil

[Faré]

When *print-circle* is T, a typical waitqueue shows as such:
#4=#S(SB-THREAD:WAITQUEUE :NAME NIL :TOKEN #4#)

This won't print using the default value of *print-circle* which is nil.

Instead of forcing unsuspecting users of portable threading libraries to bind *print-circle* to t, shouldn't SBCL have a defmethod print-object that handles this object gracefully independently from the value of *print-circle*?

I admit I don't understand the underlying code and can't send a patch more clever than binding *print-circle* in a print-unreadable-object.

Note: using SBCL 1.0.41 on linux amd64.

[Nikodemus Siivola (nikodemus)]

Binding *PRINT-CIRCLE* there sounds about right.

[James Y Knight (foom)]

Hum, why does it even do
(setf (waitqueue-token queue) queue)
in condition-notify, instead of just nil? Isn't anything other than a value of *current-thread* an equivalent value to set there?

[Douglas Katzman (dougk)]

waitqueues now just print their name (and they don't set the token to the thread either)