(FILECREATED " 7-May-84 23:20:16" ("compiled on " {PHYLUM}LIBRARY>BSEARCH.;2) " 7-May-84 16:02:23" recompiled changes: nothing in WORK dated " 7-May-84 21:48:06") (FILECREATED " 7-May-84 23:19:59" {PHYLUM}LIBRARY>BSEARCH.;2 3724 changes to: (VARS BSEARCHCOMS) previous date: "30-Apr-84 19:59:49" {PHYLUM}LIBRARY>BSEARCH.;1) 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" lgj W& _iO _oW&g _hW c Og jMH_h"M_lOOlO WKcW.oc7jWWOkcjWjWOhjWWOkcWOOWcWWo LoOKhhW c h_Wk_W$Hjc$O OdWhn_Uk_WONdIId_dOO_W"OOOW*hW( _W"OOOW*hW( _#O_OOO_OjOW$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@ bS!Tog hgZ JI(56Q ERROR! 51Q RESETRESTORE 37Q BFILEPOSA0001 15Q MKSTRING) (45Q ERROR 34Q INTERNAL) ( 31Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT BSEARCHCOMS) (RPAQQ BSEARCHCOMS ((FNS BFILEPOS) (VARS \BFILEPOS.SHORTPATTERNL))) (RPAQQ \BFILEPOS.SHORTPATTERNL 16) (PUTPROPS BSEARCH COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL