% Function CLEAR-INPUT
Function CLEAR-INPUT
clear-input &optional input-stream => nil
input-stream - 入力ストリーム指定子。デフォルトは標準入力。
input-streamから利用可能な全ての入力をクリアします。
もしclear-inputが
input-streamから検出できなかったとき、
clear-inputは何もしません。
;; この例の正確なI/Oの振る舞いはおそらく実装の対話式の
;; バッファの都合により実装依存が生じるため異なる可能性があります。
;; （ここでのSLEEPの呼び出しは、行志向のバッファリングを行わないような
;; 実装の差異を同じにするためのものです）
(defun read-sleepily (&optional (clear-p nil) (zzz 0))
(list (progn (print '>) (read))
;; 最初のZZZ秒内に入力されたものは
;; 削除される点に注意してください。
(progn (print '>)
(if zzz (sleep zzz))
(print '>>)
(if clear-p (clear-input))
(read))))
(read-sleepily)
>> > 10
>> >
>> >> 20
=> (10 20)
(read-sleepily t)
>> > 10
>> >
>> >> 20
=> (10 20)
(read-sleepily t 10)
>> > 10
>> > 20 ; ある実装ではここで入力がエコーされません。
>> >> 30
=> (10 30)
input-streamは修正されます。
input-streamがストリーム指定子ではなかったとき、
型type-errorのエラーが通知されるべきです。
なし。