修改：      bst.lisp
add bst-traverser function