(FILECREATED "16-Nov-93 21:45:45" ("compiled on " {DSK}export>lispcore>lispusers>bsearch.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (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 D8 (NAME SI*UNWIND-PROTECT* P 11 STRM P 10 TEM P 9 MAXI P 8 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 I 0 SI*CLEANUP-FORMS* F 14 LOWINDEX F 15 HIGHINDEX F 16 SI*RESETFORMS* F 17 PATTERN F 18 TAIL F 19 FILE F 20 CASEARRAY F 21 SKIP) W" lgj W& _iO _ oW&g _hW c Og jMH_M_lOOlO WKcW-oc5jWWOkcjWjWOhjWWOkcWOOWcWWo LoOKhhW c h_Wk_W$Hjc$O OdWh_Yk_WONdIId_dOO_W"OOOW*hW( _W"OOOW*hW( _O_OOO_OjOW$_(355 FFILEPOS 332 FFILEPOS 218 ERROR 117 GETFILEPTR 80 GETFILEINFO 57 OPENSTREAM 36 \GETSTREAM 24 OPENP 6 NCHARS) (75 LENGTH 52 INPUT 13 FILEPOS) ( 227 (AND RESETSTATE (APPLY (QUOTE SETFILEPTR) OLDVALUE)) 213 "High-end index less than low-end" 135 2147483647 45 (PROGN (CLOSEF? OLDVALUE))) BFILEPOS D8 (P 2 RESETSTATE P 1 SI*RESETFORMS* 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) 4@ @d3@@ bS!g $(45 SIRESETUNWIND 40 \MVLIST 35 BFILEPOSA0001 18 MKSTRING 5 STRINGP) (30 SIRESETUNWIND) () (PRETTYCOMPRINT BSEARCHCOMS) (RPAQQ BSEARCHCOMS ((FNS BFILEPOS) (VARS \BFILEPOS.SHORTPATTERNL))) (RPAQQ \BFILEPOS.SHORTPATTERNL 16) (PUTPROPS BSEARCH COPYRIGHT ("Xerox Corporation" 1983 1984)) NIL