Vl-catch-all-error-p

提供:GizmoLabs - だいたい CAD LISP なサイト
2022年11月4日 (金) 05:43時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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エラーじゃないっすね")
)

関連事項