怎么用common lisp写出一个汉字判断函数?

Question

判断单个汉字就可以

Answer 1

通过汉字的编码的区间来判断，通过使用char-code函数来得到一个字符的编码，然后判断这个编码是否在汉字编码的区间内。

(defun s (ch)

(let ((n (char-code ch)))

(if (and (> n 10000) (< n 40000)) t nil)))