[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Dribble and *error-output*



    Not any more, it doesn't.  It redirects *terminal-io*.  Perhaps
you have some old version.  We lost our original version which was
rewritten way back in the beginning, so I rewrote it as the following
function:

(defun dribble (&optional pathname &key (if-exists :append)
  (if pathname
      (with-open-file (f pathname  :if-exists if-exists
                         :if-does-not-exist :create)
        (catch 'dribble-punt
	  (let ((*terminal-io*
	         (make-two-way-stream
		  (make-echo-stream *terminal-io* f)
		  (make-broadcast-stream *terminal-io* f))))
	    (%top-level))))
      (throw 'dribble-punt nil)))

This is in misc.slisp

  Rob