(bind-func cpvnear (lambda (v1:cpVect v2:cpVect dist:cpFloat) (convert (< (cpvdistsq v1 v2) (* dist dist)) cpBool)))