lisp_code.cl

(defun seekDFSCircle (startLocation directNeighbors tilesMap)
    (cond 
        ((endp directNeighbors)
            nil
        )
        (t 
            (let*
                (
                    (directNeighbor (car directNeighbors))
                    (direction (getTileDirection directNeighbor startLocation))
                    (remaining (list (list directNeighbor direction)))
                    (visited '())
                )
                (if (isClosedChain startLocation remaining visited tilesMap) 
                    T
                    (seekDFSCircle startLocation (cdr directNeighbors) tilesMap)
                )
            )
        )
    )
)