Bug when printing process object?

 
Hi,

the following behaviour seems to be a bug in LWW 5.0.1 and LWW 4.4.6.

CL-USER 3 > (let ((*print-readably* t)) (write (mp:find-process-from-name
"Listener 1"))) #<MP:PROCESS Name "Listener 1" Priority 70000000 State
"Waiting for events"> #<MP:PROCESS Name "Listener 1" Priority 70000000 State
"Waiting for events">

Without complaint the unreadable object gets printed. I'd expect the form to
throw an error like in

CL-USER 4 > (let ((*print-readably* t)) (write rs))

Error: Trying to print #<RPC-SERVER 2161DBB3> unreadably with
*PRINT-READABLY* set.
  1 (continue) Print #<RPC-SERVER 2161DBB3> anyway.
  2 (abort) Return to level 0.
  3 Return to top loop level 0.

Type :b for backtrace, :c <option number> to proceed,  or :? for other
options

Is this a bug? Any workaround?


Andreas