Use cl-lib
Add guard condition for bobp
Add lexical-binding
Add guard condition if the point is bobp