; la description VIRTTY a` utiliser pour faire un script UNIX
; d'une session Le_lisp
;
; A` utiliser par (initty 'script)

(setq #:system:line-mode-flag ())
(setq #:system:real-terminal-flag t)

(de #:tty:script:tynewline ()
    (tycn #^J))

(de #:tty:script:tyattrib (x)
    (tyo (if x ">>" "<<")))

(defvar #:tty:script:tyattrib ())

(setq #:sys-package:tty '#:tty:script)