(bpoly pt [ss] [vector])
where vector was/is any of this: (setq vector (list '(1 0) '(0 1) '(-1 0) '(0 -1))) ;; ray casting
there was also this function for error control: (bherrs) returns T if was no error found
The island detection as far as I know never was introduced as part of the function bpoly it is in the bhatch - if I recall - and don't remember the arguments for bhatch or the old ads c:bhatch.
nor as part of bhatch, bhatch uses the same arguments as bpoly too.
All the bpoly and bhatch function info, can be found in the R12 customization book, btw.
The info above, it is what I remember..... might be wrong.