支持实现回文数的判断函数。

[Liutos]

即支持定义下列代码

(defun palindromicp (number)
  (let ((str (itoa number)))
    (string= str (reverse str))))