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

Stream Switches



(define tlog-output
  (object (lambda () *tlog-output*)
	  ((setter self)
	   (lambda (new-value)
	     (set *tlog-output* new-value)))))