[clisp-list] Re: RFE: debugging in separate window

[Sam S. <sd...@gn...>]

> * In message <9F8582E37B2EE5498E76392AEDDCD3FE0395823F@G8PQD.blf01.telekom.de>
> * On the subject of "RFE: debugging in separate window"
> * Sent on Fri, 11 Apr 2003 14:02:18 +0200
> * Honorable "Hoehle, Joerg-Cyril" <Joe...@t-...> writes:
>
> To have *DEBUG-IO* and *ERROR-OUTPUT* point to separate console
> windows (thus keeping your standard console window clean from
> error messages) you can use: 
>        (SETQ *ERROR-OUTPUT*
>          (SETQ *DEBUG-IO*
>            (OPEN "CON:0/0/500/300/CLISP-Debugger/AUTO/CLOSE"
>                    :DIRECTION :IO)))


(defun make-query-io ()
  (let ((tty-name "foo") (guard "bar"))
    (with-open-file (s guard :direction :output :if-exists :overwrite
                       :if-does-not-exist :create))
    (shell (format nil "xterm -e 'tty > ~a; read < ~a' &" tty-name guard))
    (sleep 1)
    (setq tty-name
          (prog1 (with-open-file (s tty-name :direction :input)
                   (read-line s))
            (delete-file tty-name)))
    (make-two-way-stream
     (open tty-name :direction :input)
     (open tty-name :direction :output))))


this does not work because I do not know how to implement the `guard':
I want the guard to prevent the xterm from exiting.

there is no mktemp() in CL, right?


-- 
Sam Steingold (http://www.podval.org/~sds) running RedHat8 GNU/Linux
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.palestine-central.com/links.html>
A computer scientist is someone who fixes things that aren't broken.