(defun eval-var (var state)
 (if (eq var state)(if (null state)(return-from eval-var nil)(return-from eval-var t))
 eval-var(car(cdr *state*))
  )
 
 )
 


(setf *state* '((a nil) (b nil) (c nil) (d nil)))
(eval-var 'd *state*)


이런식으로하면 맞는방향입니까