To find neighbours

Lets suppose that we have an array which looks like this:


#(#(O O O O)
  #(O O X O)
  #(O O O O))

How would I go about to find the neighbours of 'X
without using loads of if-else ?

>>3
I had already figured that out, is there any better way to write a function that does this than doing loads of check-ups manually?

Something like:


(defun check-neigh (field x y)
  (let ((output '() ))
    (push (nth (1- y) (nth x field)))
    ...
    output))

just feels so unnecessary and long.