・ あたりまえですが、0 で割るとエラーになります
(/ int_a int_b) で int_b が 0 の場合、当然エラーになります。
int_b
が定数の場合は良いのですが、書き換えられる可能性のある変数の場合は、0
でないことを確認しましょう。
(if (zerop int_b)
(princ "\nエラー: 0 で除算しました")
(/ int_a int_b)
)
または
(if (zerop int_b) nil (/ int_a int_b) )