在LISP中报告错误

Question

我有这个功能,将一个数字转换为一个特定的基数.我想报告一个错误,如果我介绍的基数大于9但小于2但我不知道.你能帮我吗？

(defun zecb (number base)
  (write-to-string number :base base))

Answer 1

CL-USER 99 > (defun test (n)
               (check-type n (integer 2 9))
               n)
TEST

CL-USER 100 > (test 2)
2

CL-USER 101 > (test 9)
9

CL-USER 102 > (test 10)

Error: The value 10 of N is not of type (INTEGER 2 9).