refactor with macro
-rw-r--r-- 1321 lispstrack.lisp