คือไม่ทราบว่าจะ ใช้ if ซ้อน if ยังไงครับ
(defun checkmember (name) (if (equal name (first '(I A I ))))))
คือให้สามารถตรวจสอบ ซ้อน กันได้นะครับ รบกวนท่านผู้รู้ด้วยนะครับ