(defun robot-position (state) (third state)) (defun node-equal (s1 s2) (< (distance (robot-position s1) (robot-position s2)) 0.8) )
> (node-equal '(robot at (0 0)) '(robot at (0.1 0.1))) t