r8999: add new function FOREIGN-STRING-LENGTH