npt-japanese

% Function INTERACTIVE-STREAM-P

UP


Function INTERACTIVE-STREAM-P

Function INTERACTIVE-STREAM-P

構文

interactive-stream-p stream => generalized-boolean

引数と戻り値

stream - ストリーム
generalized-boolean - generalized-boolean

定義

streamが対話式ストリームのときはtrueを、 それ以外のときはfalseを返却します。

例文

(when (> measured limit)
  (let ((error (round (* (- measured limit) 100)
                      limit)))
    (unless (if (interactive-stream-p *query-io*)
                (yes-or-no-p "The frammis is out of tolerance by ~D%.~@
                              Is it safe to proceed? " error)
                (< error 15))  ;15% is acceptable
      (error "The frammis is out of tolerance by ~D%." error))))

影響

なし。

例外

streamがストリームではないときは、 型type-errorのエラーを発生させるべきです。

参考

21.1. ストリームの説明

備考

なし。


TOP, Github