Почему не работает макрос?

CL-USER> (setq list-user '((a b) (c d) num))
((A B) (C D) NUM)
CL-USER> (defmacro person (list-user &optional that)
       `(if (null ,that) ()
        (cond
          ((eq (quote ,that) 'name) (caar ,list-user))
          ((eq (quote ,that) 'username) (second (car ,list-user)))
          ((eq (quote ,that) 'mother) (car (second ,list-user)))
          ((eq (quote ,that) 'father) (second (second ,list-user)))
          ((eq (quote ,that) 'age) (third ,list-user))
          (t ()))))
PERSON
CL-USER> (macroexpand '(person list-user name))
(IF (NULL NAME) NIL
    (COND ((EQ 'NAME 'NAME) (CAAR LIST-USER))
          ((EQ 'NAME 'USERNAME) (SECOND (CAR LIST-USER)))
          ((EQ 'NAME 'MOTHER) (CAR (SECOND LIST-USER)))
          ((EQ 'NAME 'FATHER) (SECOND (SECOND LIST-USER)))
          ((EQ 'NAME 'AGE) (THIRD LIST-USER)) (T NIL)))
T
CL-USER> (person list-user name)
; Evaluation aborted.
CL-USER>

(defmacro person (list &optional what)
  `(if (quote ,what)
       (cond ((eq (quote ,what) 'name)
          (caar ,list))
         ((eq (quote ,what) 'username)
          (cadar ,list))
         ((eq (quote ,what) 'mother)
          (caadr ,list))
         ((eq (quote ,what) 'father)
          (cadadr ,list))
         ((eq (quote ,what) 'age)
          (caddr ,list)))))

CL-USER> (person '((a b) (c d) e))
NIL
CL-USER> (person '((a b) (c d) e) name)
A
CL-USER> (person '((a b) (c d) e) father)
D
CL-USER> (person '((a b) (c d) e) age)
E
CL-USER> (person '((a b) (c d) e) address)
NIL

(defmacro test (name)
  `(if ,name nil))

CL-USER> (macroexpand '(test non-quoted))
(IF NON-QUOTED
    NIL)
T

(defmacro test (name)
  `(if (quote ,name) nil))

CL-USER> (macroexpand '(test non-quoted))
(IF 'NON-QUOTED
    NIL)
T

(setq var 100)
(setq bar 'pivo)

CL-USER> (bind var) 
"значение var - 100"
 
CL-USER> (bind bar) 
"значение bar - PIVO"

CL-USER> (setq test '(+ 0 0))
(+ 0 0)
 
CL-USER> (defmacro print-bind (var value)
       `(progn
          (if (quote ,var) (format t "Значение: ~S" ,var) (format () "Значение - не связан"))
          (terpri)
          (setq ,var (eval ,value))
          (format t "Новое значение: ~S" ,var)))
 
CL-USER> (print-bind test '(list '+ 20 30))
Значение: (+ 2 3)
Новое значение: (+ 20 30)
NIL
 
CL-USER> test
(+ 20 30)

CL-USER> (list * 30 20)
(NIL 30 20)
 
CL-USER> (list * 30 20)
((NIL 30 20) 30 20)
 
CL-USER> (list * 30 20)
(((NIL 30 20) 30 20) 30 20)
 
CL-USER> (list * 30 20)
((((NIL 30 20) 30 20) 30 20) 30 20)
 
CL-USER> (list * 30 20)
(((((NIL 30 20) 30 20) 30 20) 30 20) 30 20)
 
CL-USER> (list * 30 20)
((((((NIL 30 20) 30 20) 30 20) 30 20) 30 20) 30 20)

CL-USER> (boundp 'miss)
NIL

CL-USER> (print-bind miss '(list '+ 20 30))
Новое значение: (+ 20 30)
NIL
CL-USER>

(defmacro print-bind (var &optional (val nil val-supplied-p))
  `(if ,val-supplied-p
       (format t "New value of ~S is ~S~%" (quote ,var) (setq ,var (eval ,val)))
       (if (boundp (quote ,var))
       (format t "Value of ~S is ~S~%" (quote ,var) ,var)
       (format t "~S is unbound ~%" (quote ,var)))))