update new design for oops--lisp-find-variable.