(FILECREATED "21-Aug-84 00:43:45" ("compiled on " {ERIS}LIBRARY>SEQUENTIAL.;3) "14-Aug-84 21:44:11" recompiled changes: \SEQ.RUN in "INTERLISP-D 15-Aug-84 ..." dated "15-Aug-84 20:42:17") (FILECREATED "21-Aug-84 00:43:18" {ERIS}LIBRARY>SEQUENTIAL.;3 17608 changes to: (VARS SEQUENTIALCOMS) (FNS \SEQ.RUN) previous date: "22-May-84 21:32:17" {ERIS}LIBRARY>SEQUENTIAL.;2) DO.SEQUENTIAL.RUNSA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 RESETVARSLST F 1 LISPUSERSDIRECTORIES F 2 SEQUENTIAL.DCOMFILE F 3 RESETY) "gd gQ PcRgi ci(34Q \SEQ.DEFAULTFILENAME 16Q SETTOPVAL 6 GETTOPVAL) (30Q SEQUENTIAL.DCOM 12Q DIRECTORIES 2 DIRECTORIES) () DO.SEQUENTIAL.RUNSA0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 LOGFILESTREAM F 1 USERNAME F 2 MAKESYSDATE F 3 MACROY) P P oP QP lhP oP l(hP ```P P oP i P oP lhP oP l(hP gP lP oP lP gP lhP oP l(hP RP lhP oP l(hP P gP P P ci(413Q TERPRI 406Q TERPRI 401Q PRIN1 371Q PRIN1 365Q REALMEMORYSIZE 361Q TAB 351Q PRIN1 340Q TAB 330Q PRIN1 322Q TAB 312Q PRIN1 301Q TAB 271Q PRIN1 261Q PRIN1 252Q MICROCODEVERSION 246Q PRIN1 235Q PRIN1 225Q MICROCODEVERSION 221Q PRIN1 211Q TAB 201Q PRIN1 170Q TAB 160Q PRIN1 147Q PRIN1 143Q L-CASE 137Q MACHINETYPE 133Q PRIN1 122Q PRIN1 116Q ETHERHOSTNUMBER 111Q \PRINTNSADDRESS 67Q ETHERHOSTNAME 63Q TAB 53Q PRIN1 42Q TAB 32Q PRIN1 24Q PRIN1 13Q PRIN1 7 GDATE 3 TERPRI) (375Q Q 265Q %] 215Q %[ 105Q \MY.NSADDRESS 100Q NSADDRESSTYPE# 74Q \MY.NSADDRESS) ( 345Q "Memory Size: " 306Q "Lisp System Date: " 242Q ", " 175Q "Microcode Version: " 154Q ")" 127Q " (" 47Q "Machine: " 20Q " **** Log file for SEQUENTIAL runs of ") DO.SEQUENTIAL.RUNS D1 (P 21Q RESETSTATE P 20Q MACROY P 16Q OLDVALUE P 12Q TEM P 11Q INDICESLST P 10Q N P 7 LOGFILESTREAM P 6 DATAFILESTREAM P 5 RELOADINGFORMS P 4 REALFILE P 3 VERSIONP P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 DATABASEFILE I 3 LOGFILE I 2 SEQUENTIAL.DCOMFILE I 1 LISP.SYSOUTFILE I 0 SEQUENTIALRUNS F 22Q RESETVARSLST F 23Q FILE F 24Q LISPXHIST) @g@ AddlW&g Ao Agi Ao boAg hdih` ghghgA ghgA bBg /W(!W$og hgZ JI o bCg Do bDg g cg Do bg D oDg hdih` KDo LD D LKL L @Dgg Cg bg 3 oN M _NOkn?o OnA B C D @ @ h_Nd Nl Od  0 Md _O Oh_O&_O@ h _NjNl@ Od  Ng l 1gOhhW$c$_og g_"Oc$gO O"O @d jON o h(1174Q SHOULDNT 1165Q \SEQ.RELOAD 1151Q EVAL 1140Q DRIBBLE 1131Q ERROR! 1122Q APPLY 1072Q DO.SEQUENTIAL.RUNSA0002 1033Q RADIX 1026Q \SETACCESS 1017Q SETFILEPTR 1007Q \SEQ.WORDOUT 776Q SETFILEPTR 764Q \NCONC2 757Q \SEQ.PRIN4 715Q \SEQ.PRIN4 702Q SETFILEPTR 672Q \SEQ.WORDOUT 661Q SETFILEPTR 653Q GETFILEPTR 633Q \SEQ.PRIN4 625Q \SEQ.PRIN4 615Q \SEQ.PRIN4 611Q \SEQ.PRIN4 605Q \SEQ.PRIN4 601Q \SEQ.PRIN4 570Q SETFILEPTR 544Q LENGTH 540Q PRIN3 525Q \GETSTREAM 515Q OPENFILE 506Q OPENSTREAM 463Q DELFILE 456Q CLOSEF? 443Q DELFILE 436Q CLOSEF? 425Q ERROR 411Q STRPOS 376Q FILENAMEFIELD 360Q FINDFILE 354Q FILENAMEFIELD 344Q ERROR 332Q \SEQ.DEFAULTFILENAME 320Q DELFILE 311Q CLOSEF? 276Q ERROR 264Q \SEQ.DEFAULTFILENAME 253Q ERROR 237Q ERROR! 231Q RESETRESTORE 217Q DO.SEQUENTIAL.RUNSA0001 174Q FINDFILE 162Q PACKFILENAME 146Q PACKFILENAME 124Q STRPOS 111Q FILENAMEFIELD 74Q ERROR 62Q \SEQ.DEFAULTFILENAME 51Q ERROR 40Q FILENAMEFIELD 13Q \ILLEGAL.ARG) (1112Q RADIX 1076Q ERROR 1067Q INTERNAL 1041Q RADIX 1023Q BOTH 522Q OUTPUT 512Q OUTPUT 503Q OUTPUT 500Q {DSK}SEQUENTIALDATA 405Q UPPERCASEARRAY 373Q HOST 351Q VERSION 327Q SEQUENTIALDATA 315Q {DSK}SEQUENTIALDATA 306Q {DSK}SEQUENTIALDATA 261Q SEQUENTIAL.LOG 225Q ERROR 214Q INTERNAL 171Q {DSK}SEQUENTIAL.DCOM 156Q BODY 152Q VERSION 141Q BODY 135Q VERSION 131Q HOST 120Q UPPERCASEARRAY 106Q HOST 56Q CURRENT>LISP.SYSOUT 35Q VERSION 5 SEQUENTIALRUNS) ( 1171Q "Not Supposed to return from \SEQ.RELOAD " 1064Q (DUMMY.FOR.ERRORSET) 564Q -1000Q 534Q "***SEQUENTIAL.RUNS.DATA.FILE*** " 422Q "Can't use version numbers on local disk." 367Q "DSK" 341Q "Can't find a name for the database file" 273Q "Can't find a name for the LOG file" 250Q "Can't find a SEQUENTIAL.DCOM file" 211Q (DUMMY.FOR.ERRORSET) 102Q "DSK" 71Q "Can't find a LISP.SYSOUT file" 46Q "Not possible to use explicit version numbers in LISP.SYSOUT file") \SEQ.PRIN4 D1 (I 0 X F 0 DATAFILESTREAM) P @P Pl (17Q BOUT 10Q PRIN4 3 GETFILEPTR) NIL () \SEQ.DEFAULTFILENAME D1 (P 4 XFILE P 3 THISHOST P 2 HOST P 1 X I 2 MUSTEXIST? I 1 DEFAULTNAME I 0 FILE F 5 LISPUSERSDIRECTORIES) U!Hhg@gAYg ZHXii g "@dl @g HlHLhgLgKgLg K Ag gA \Bd \@@diLl L(236Q \LISPERROR 215Q FINDFILE 205Q PACKFILENAME 175Q FILENAMEFIELD 164Q \SEQ.HOSTHASDIRECTORYSTRUCTUREP 156Q FILENAMEFIELD 111Q FULLNAME 100Q STREAMP 63Q FILENAMEFIELD 55Q DIRECTORYNAME 36Q FILENAMEFIELD) (200Q BODY 172Q DIRECTORY 153Q HOST 147Q DIRECTORY 143Q HOST 137Q BODY 106Q OLD 60Q HOST 33Q HOST 24Q {DSK} 16Q {DSK}) () \SEQ.WORDOUT D1 (P 1 W P 0 STREAM I 0 X F 2 DATAFILESTREAM) R@HI HIl (22Q \BOUT 12Q \BOUT) NIL () \SEQ.HOSTHASDIRECTORYSTRUCTUREP D1 (P 0 I I 0 HOST) ?@ @ o@hdih` hl@H)dl0IIl9HiHkظ(31Q STRPOS 10Q \ILLEGAL.ARG 3 HOSTNAMEP) (25Q UPPERCASEARRAY) ( 15Q "DSK") \SEQ.RELOADA0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 10Q C P 7 I P 5 STREAM P 4 DATABASEFILENAME P 3 DCOMFILENAME P 2 SYSOUTFILENAME P 1 REMS P 0 N F 11Q DATAFILESTREAM F 12Q K F 13Q MACROY)  PWl WM M XWjWo Wl" WM M dnnkٹWIkoWIo Wl$ WM M Wl& WM M Wl* WM M WJ W Z kON5JO)_l{Ol}JOOdl{l[l}l]+Ok_WK W WL W g g gg oI JI oI KI oI WI LoI LI oI I I i hci(572Q LOGOUT 565Q CLOSEF 560Q TERPRI 553Q PRIN3 542Q PRIN3 534Q PRIN3 521Q PRIN3 512Q PRIN3 501Q PRIN3 473Q PRIN3 462Q PRIN3 454Q PRIN3 443Q OPENSTREAM 430Q DELFILE 421Q CLOSEF? 412Q RATOM 404Q SETFILEPTR 375Q RSTRING 367Q SETFILEPTR 346Q SHOULDNT 263Q NCHARS 257Q RSTRING 251Q SETFILEPTR 225Q SETFILEPTR 200Q SETFILEPTR 153Q SETFILEPTR 143Q SHOULDNT 140Q CONCAT 57Q SETFILEPTR 47Q SHOULDNT 11Q SETFILEPTR) (440Q OUTPUT 435Q {DSK}REM.CM 425Q {DSK}REM.CM 416Q {DSK}REM.CM) ( 547Q "]" 530Q " " 506Q ") (\SEQ.RUN " 467Q " ;(PROGN (FILESLOAD (SYSLOAD) " 450Q "Lisp " 135Q ")." 125Q "FORM index out of sequence (by amount " 44Q "FORM index not in valid range") \SEQ.RELOAD D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 2 DATAFILESTREAM I 1 LOGFILESTREAM I 0 K F 4 RESETVARSLST F 5 FILERDTBL) ZA Bj oB g U 1gHhhTcYog gIcgI KJ(125Q ERROR! 120Q APPLY 75Q \SEQ.RELOADA0001 42Q SETREADTABLE 35Q SHOULDNT 26Q STREQUAL 23Q RSTRING 13Q SETFILEPTR 6 CLOSEF? 2 DRIBBLE) (111Q SETREADTABLE 101Q ERROR 72Q INTERNAL 50Q SETREADTABLE 32Q {DSK}SEQUENTIALDATA) ( 67Q (DUMMY.FOR.ERRORSET) 17Q "***SEQUENTIAL.RUNS.DATA.FILE***") \SEQ.RUN D1 (P 7 FILE P 6 REM.CM P 3 LOGFILESTREAM P 2 N P 1 HELPFLAG P 0 DATAFILESTREAM I 1 DATABASEFILE I 0 K F 10Q FILERDTBL) Agg Qjggo Hl H H Zd@j@o Hl( Hd H HW gg [ @H @kbJ@dKH x@Hi Hl" H@kؽ\M LMl K Hl, Hd H g g HW Ngg _NO O h(353Q LOGOUT 346Q CLOSEF 340Q PRIN4 327Q OPENFILE 310Q READ 300Q DELFILE 271Q CLOSEF? 262Q SETFILEPTR 247Q SETFILEPTR 240Q CLOSEF? 233Q DRIBBLE 227Q \BOUT 216Q \BOUT 202Q SETFILEPTR 173Q \SEQ.RUN1 163Q \SEQ.RELOAD 144Q \SEQ.RUN1 137Q DRIBBLE 133Q OPENSTREAM 122Q READ 114Q SETFILEPTR 102Q SETFILEPTR 73Q SHOULDNT 45Q SETFILEPTR 37Q ADVISE 13Q OPENSTREAM) (324Q OUTPUT 321Q {DSK}REM.CM 275Q {DSK}REM.CM 266Q {DSK}REM.CM 130Q OLD 125Q APPEND 30Q BEFORE 25Q PAGEFULLFN 22Q PAGE.WAIT.SECS 10Q BOTH 5 {DSK}SEQUENTIALDATA) ( 70Q "Non-existent FORM index" 34Q (RETURN)) \SEQ.RUN1A0001 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FORM) Pd i(6 EVAL) NIL () \SEQ.RUN1A0002 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 FORM) P i(3 EVAL) NIL () \SEQ.RUN1 D1 (P 3 HELPFLAG P 2 FORM P 1 W P 0 STREAM I 2 EVLISP I 1 DATAFILESTREAM I 0 K F 4 FILERDTBL) RAl" A@HI HIl A@l@ AdH H  AT Boi oi h(116Q \SEQ.RUN1A0002 105Q \SEQ.RUN1A0001 67Q READ 62Q SETFILEPTR 43Q SETFILEPTR 31Q \BOUT 20Q \BOUT 5 SETFILEPTR) NIL ( 112Q (DUMMY.FOR.ERRORSET) 101Q (DUMMY.FOR.ERRORSET)) (PRETTYCOMPRINT SEQUENTIALCOMS) (RPAQQ SEQUENTIALCOMS ((COMS (* Temporary patch-up) (P (OR (STRPOS "foo" "FOO" NIL NIL NIL NIL UPPERCASEARRAY) (FILESLOAD (SYSLOAD FROM LISPUSERS) BSEARCH)))) (RECORDS SEQUENTIALRUNS) (FNS DO.SEQUENTIAL.RUNS \SEQ.PRIN4 \SEQ.DEFAULTFILENAME \SEQ.WORDOUT \SEQ.HOSTHASDIRECTORYSTRUCTUREP \SEQ.RELOAD \SEQ.RUN \SEQ.RUN1) (DECLARE: EVAL@COMPILE DONTCOPY (RECORDS INDEXREGION) (MACROS INDEXREGION.MOVETO READDBFILEWORD) (CONSTANTS INDEXREGION.OFFST RUNSREGION.OFFST)))) (OR (STRPOS "foo" "FOO" NIL NIL NIL NIL UPPERCASEARRAY) (FILESLOAD (SYSLOAD FROM LISPUSERS) BSEARCH)) (TYPERECORD SEQUENTIALRUNS (INITFORMS CLEANUPFORMS FINALREM.CM . RELOADINGFORMS)) (PUTPROPS SEQUENTIAL COPYRIGHT ("Xerox Corporation" 1984)) NIL