[Openmcl-devel] Threads want *terminal-io*, but do nothing once they get it.

[Christian Nybø]

On Jul 12, 2005, at 03:14, Gary Byers wrote:

>
>
> On Mon, 11 Jul 2005, [ISO-8859-1] Christian Nybø wrote:
>
>
>>
>> On Jun 22, 2005, at 11:34, Christian Nybø wrote:
>>
>>
>>> ? (:y 3115)
>>> ?
>>> Should it not give me a debugger prompt here?
>>>
>
> Sorry; I missed this a few weeks ago.

No wonder, as far as bug reports go, it was a rather sparse message.

>> I changed %%yield-terminal to:
>>
>> (defun %%yield-terminal-to (&optional process)
>>  (let* ((stream (if (typep *terminal-io* 'synonym-stream)
>>             (symbol-value (synonym-stream-symbol *terminal-io*))
>>             *terminal-io*))
>>     (shared-resource
>>      (if (typep stream 'two-way-stream)
>>          (input-stream-shared-resource
>>           (two-way-stream-input-stream stream)))))
>>    (when shared-resource (%yield-shared-resource shared-resource  
>> process))))
>>
>> and then (:y <process>) works in Slime.
>>
>
> That's good.  I'm not sure if it makes sense to try to make this
> more general (e.g., to define some sort of STREAM-SHARED-INPUT- 
> RESOURCE
> generic function) or to just special-case SYNONYM-STREAM here.

Or should two-way-stream-input-stream ask for the input-stream for  
the stream pointed to by the synonym-stream?

Any slime hackers that could help in how to get a nice slime debugger  
buffer when doing %%yield-terminal-to?

-- 
chr