Vl-catch-all-error-p

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vl-catch-all-error-p arg)


機能
引数が vl-catch-all-apply 関数から返されたエラー オブジェクトかどうかを調べる。


引数
  • arg : 任意の引数。


戻り値
指定された引数が vl-catch-all-apply 関数から返されたエラー オブジェクトの場合は T。それ以外の場合は nil。


サンプル
; vl-catch-all-apply 関数を使用して 0(ゼロ)で除算する。
(setq catchit (vl-catch-all-apply '/ '(50 0))) 
#<%catch-all-apply-error%> 

; vl-catch-all-error-p 関数を使用して、vlcatchall-apply 関数が返した値がエラー オブジェクトかどうかを調べる。
(if (vl-catch-all-error-p catchit)
  (princ "\nエラーっすね")
  (princ "\nエラーじゃないっすね")
)

関連事項