lisp: refactor: use of caar, cadr and caddr
gps: refactor: use of cadar and caar