warn

(warn datum args...)

標準エラーストリームへ WARNING: メッセージを出力し、nil を返します。実行は継続します。error と同じコンディション designator を受け付けます: リテラルまたは計算された制御文字列(format と同じディレクティブ。後ろの引数がそのフォーマット引数)、initarg 付きのクォートされたコンディション型シンボル(クラスの :report(定義がなければ祖先から継承したもの)がメッセージになります。他にレポートを持たない simple-warning のサブタイプでは :format-control を :format-arguments に適用した format の結果、どこにもレポートがなければ Condition (type initargs...) was signalled. 形)、またはコンディションオブジェクト。warning に対する handler-bind ハンドラはメッセージが印字される前にシグナル点で実行され、muffle-warning を呼んで出力を中止できます(warn は静かに nil を返します)。handler-case が捕捉するのはエラーと signal であって warn ではありません。error と同様、warn は関数値を持ちます: インタプリタでは #'warn を通しても完全な designator プロトコルが有効で、コンパイル系バックエンドは datum のみを転送します。メッセージは WASM の --component 出力を含むすべてのバックエンドで標準エラーへ出力されます (WASI 0.3 アダプタが fd 2 を wasi:cli/stderr に配線します)。

メッセージは標準出力ではなく標準エラーに出力されるため、実行可能な例ではなく静的な例として示します:

(warn "unexpected value: ~a" x)

この呼び出しは (x = 42 のとき) WARNING: unexpected value: 42 を標準エラーに出力し、nil に評価されます。

レポートのリダイレクト: *error-output*

出力先は呼び出し時点の *error-output* の値です。そのデフォルト値はプロセスの標準エラーを表す designator であり (標準出力を表す *standard-output* の t とは異なります)、リダイレクトされていない warn は標準エラーに届きます。(format *error-output* ...) も同様です。この変数を束縛するとレポートを捕捉でき、これが Common Lisp で警告をテストする通常の方法です:

束縛は動的なので呼び出された関数の内側にも及び、抜けるときに元の値へ復元されます。4 つのバックエンドすべてで同じように動作します。