LISP: A dynamic car

I have a complex list of lists and want something to check the second element of every list of the list in the loop, any supported features like this?

can someone aid me here?
illegal syntax by setq x (read)


(defun get-move ()
(setq counter (+ counter 1))
 (let* ((x 9) )
(when (eql (mod counter 2) 0)
 (setq x (check-for-win))
 (if null x
  (setq x (check-for-loss))
    (if null x
      (setq x (random-get))
    )
 )
 (setf (aref board-values x) 2)
 (setf (aref board-symbols x) 'O)
)

(when (eql (mod counter 2) 1)
(print "Enter a number between 1 and 9: ")
(loop until (and (>= x 0) (<= 8 x) (valid-move x)
;;;;ERROR HERE;;;;;;;;;;;
   (setq x (read))
   (setq x (- x 1))
  )
 (setf (aref board-values x) 1)
 (setf (aref board-symbols x) 'X)
))