(FILECREATED "12-Mar-84 20:29:36" ("compiled on " {PHYLUM}LIBRARY>BSEARCH.;7) "25-Feb-84 17:16:34" recompiled changes: STRPOS in WORK dated " 7-Mar-84 13:56:45") (FILECREATED "12-Mar-84 20:29:21" {PHYLUM}LIBRARY>BSEARCH.;7 11482 changes to: (FNS STRPOS) previous date: " 9-Mar-84 19:17:19" {PHYLUM}LIBRARY>BSEARCH.;6) STRPOS D1 (P 17Q JMAX P 16Q JSTART P 15Q LASTI P 14Q OFFST.I P 13Q CABASE P 12Q CAOFFST P 11Q jthPATchar P 10Q 1stPATchar P 7 JMAX P 6 MAXI P 5 STRINGOFFST P 4 STRINGBASE P 3 STRINGLEN P 2 PATOFFST P 1 PATBASE P 0 PATLEN I 7 BACKWARDSFLG I 6 CASEARRAY I 5 TAIL I 4 ANCHOR I 3 SKIP I 2 START I 1 STRING I 0 PAT) œ @dlð²!¿`@ÓÐ@ÓÐÉ¹kº`@ÓÐ@ÓÐÉÊ°¦@ b¿@É¹@Èº@È¸Adlð²!¿`AÓÐAÓÐÉ¼k½`AÓÐAÓÐÉÊ°¦A b¿AÉ¼AÈ½AÈ[HÙkØ^jñ´-B¯G‘N€kb¿Hjñ³BjBñžBKkØØb¿kBñ²êhBNñ²ãhC–C b¿Fµ `b°žFÊCjð—FÈnð¤F ¿MkÙ]JkÙZFÈFÉMBG‘kmÿØØMD‘B…G‘k€NØJlØJHØOjð§o ¿OIJkØÂÂ_¿GšOkÙ_OýñˆOkØ_Oñ’±ÿuOCð«OOLOÂÂð²ÖOOOkØO"O ñ³,COIO"ÂÂ_ðOOLO$ÂÂð¢h°O"kØ_"¿O$kØ_$¿°Ñi²–E”OHØOMÙ(426Q SHOULDNT 332Q \ILLEGAL.ARG 267Q CHCON1 155Q MKSTRING 60Q MKSTRING) (300Q \TRANSPARENT 131Q \PNPSPACE 113Q \PNPSPACE 34Q \PNPSPACE 16Q \PNPSPACE) ( 423Q "NonZero OFFST for a CASEARRAY?") STRPOSL D1 (P 5 LASTI P 4 I P 3 LEN P 2 OFFST P 1 BASE I 5 BACKWARDSFLG I 4 CASEARRAY I 3 NEG I 2 START I 1 STRING I 0 A) `µ`h¿XP@`ð¨@hHb¿Adlð²!¿`AÓÐAÓÐÉ¹`AÓÐAÓÐÉÊ»k°¦A b¿AÉ¹AÈ»AÈºB³E‘K€kb¿JkÙºC²!j°jBñŸBKkØØb¿kBñ²çh°xBKñ²ßh°pkb¿Dµ `b°žDÊCjð—DÈnð¤D ¿JBØ¼JE•LkØ¼k„LkÙ¼KØ½DÈjð§o ¿DÉb¿E—LkÙ\Mýñ…LkØ\Mñ‘hC@DILÂÂÂð²äLJÙH¿(330Q SHOULDNT 266Q \ILLEGAL.ARG 122Q MKSTRING 41Q MAKEBITTABLE) (405Q \STRPOSLARRAY 234Q \TRANSPARENT 74Q \PNPSPACE 60Q \PNPSPACE 31Q CHARTABLETYPE# 17Q \STRPOSLARRAY 12Q CHARTABLETYPE# 5 \STRPOSLARRAY) ( 325Q "NonZero OFFST for CASEARRAY?") BFILEPOSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 13Q STRM P 12Q TEM P 11Q MAXI P 10Q NEXTI P 7 STARTI P 6 QUARTERFLEN P 5 FLEN P 4 ORIGINALLYOPENP P 3 OFPOS P 2 FF P 1 INCREMENT P 0 PLEN F 16Q LOWINDEX F 17Q HIGHINDEX F 20Q RESETVARSLST F 21Q PATTERN F 22Q TAIL F 23Q FILE F 24Q CASEARRAY F 25Q SKIP F 26Q RESETY) v W" l€gj¤ W& _ši¼O _°oW&g _hW c ¿Og ½jMHÙ_ñ“h±"Mââ_¿lOñ¢Ol¾O »W¯Kc¿W³.oc°7jWñ²WOkØØc¿jWñ²àj°ÚWOñ²Öh±ÓjWñ™WOkØØcWOñ’OWc¿WWñ—o ¿L´oOKhhW c ¿h_¿WkØ_¿W$‘H€jc$¿Oµ OdWñ§¿h°n_°UkÙ_¿WONdIñ”¿Idà¹Ù_¿dOñ¢¿O_¿W"OOOW*hW( _°ºW"OOOW*hW( _µ#O_¿OOOÙâØ_OÙjð²ÖOW$Øc,i_°ä(513Q FFILEPOS 466Q FFILEPOS 305Q ERROR 143Q GETFILEPTR 77Q GETFILEINFO 54Q OPENSTREAM 34Q \GETSTREAM 22Q OPENP 4 NCHARS) (74Q LENGTH 51Q INPUT 11Q FILEPOS) ( 315Q (AND RESETSTATE (APPLY (QUOTE SETFILEPTR) OLDVALUE)) 302Q "High-end index less than low-end" 163Q 17777777777Q 44Q (PROGN (CLOSEF? OLDVALUE))) BFILEPOS D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 CASEARRAY I 5 TAIL I 4 SKIP I 3 HIGHINDEX I 2 LOWINDEX I 1 FILE I 0 PATTERN F 3 LISPXHIST F 4 RESETVARSLST) 3@¬@lð¦@ b¿S!Tog ‘h‚gZ J“I(56Q ERROR! 51Q RESETRESTORE 37Q BFILEPOSA0001 15Q MKSTRING) (45Q ERROR 34Q INTERNAL) ( 31Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT BSEARCHCOMS) (RPAQQ BSEARCHCOMS ((FNS STRPOS STRPOSL BFILEPOS) (GLOBALRESOURCES (\STRPOSLARRAY (NCREATE (QUOTE CHARTABLE)))) (VARS \BFILEPOS.SHORTPATTERNL) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD? (QUOTE STRPOS) ( QUOTE BSTRPOS)) (MOVD? (QUOTE STRPOSL) (QUOTE BSTRPOSL)))))) (RPAQQ \STRPOSLARRAY NIL) (RPAQQ \BFILEPOS.SHORTPATTERNL 16) (MOVD? (QUOTE STRPOS) (QUOTE BSTRPOS)) (MOVD? (QUOTE STRPOSL) (QUOTE BSTRPOSL)) (PUTPROPS BSEARCH COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL