(defun c:test ( / num result ) (if (setq num (getint "\nChoose a number... just not zero: ")) (progn (if (vl-catch-all-error-p (setq result (vl-catch-all-apply '/ (list 10.0 num)))) (princ "\nI told you not to choose zero!") (princ (strcat "\n10 / " (itoa num) " = " (rtos result 2))) ) ) ) (princ))