(setq maxrow 2) (setq maxcol 4) (defun get-neighbors-info (entire-graph row column) (let ((neighbors-exist nil)) (if (> (- row 1) 0) (cons neighbors-exist T) (cons neighbors-exist F)) (if (> (+ row 1) maxrow) (cons neighbors-exist T) (cons neighbors-exist F)) (if (> (- col 1) 0) (cons neighbors-exist T) (cons neighbors-exist F)) (if (> (+ col 1) 0) (cons neighbors-exist T) (cons neighbors-exist F)))) (get-neighbors-info graph 0 0)