condition en lisp

salut j'ai réalisé mon programme en lisp mais j'ai des problèmes quand à l'utilisation des condition voila mon code:

Code:

1
2
3
4
5
6
7
8
9
  (when (equal (cherchei '0 temp) 2)
      (setq eval-bas 1000) 
      (setq test temp) 
      (setq i (cherchei '0 test) j (cherchej '0 test)) 
      (setq x (lect-ref (+ i 1) j test)) 
      (setq test (ecr-ref x i j test)) 
      (setq test (ecr-ref '0 (+ i 1) j test)) 
      (setq eval-bas (depl-rest (pp fin) test fin))
  )

il me marque "eval-bas is unbound" comme erreur. Pouvez vous m'expliquez?