CL宏

CL AND函数实现
(defun my-and1 (p)
    (if p
        (if (eval (car p))
     (my-and1 (cdr p))
     nil)
        t))
(defun my-and-fun (&rest p)
    (my-and1 p))

CL AND宏实现(IF嵌套展开)
(defun expanse-m (p)
    (if p
        `(if ,(car p) ,(expanse-m (cdr p)) nil)
        t))
   
(defmacro my-and-macro (&rest p)
    (expanse-m p))