(FILECREATED "31-Dec-83 19:21:49" ("compiled on " {PHYLUM}SOURCES>LLFCOMPILE.;24) " 5-Dec-83 00:17:54" bcompl'd in WORK dated " 6-Dec-83 01:19:48") (FILECREATED "13-FEB-83 16:38:35" LLFCOMPILE.;36 21526 changes to: (FNS COMPST0 CCON0 CCALL2) previous date: "22-FEB-82 15:10:45" LLFCOMPILE.;35) (RPAQQ COMPILEATPUTDFLG NIL) COMPST0 D1 (P 56Q NTBSZ P 55Q NT1 P 51Q X P 14Q FVARS P 13Q FVARCNT P 12Q LOCALSIZE P 11Q STARTLOCALS P 10Q LOCALARGS P 7 FVAROFFSET P 6 CA P 5 NTWORDS P 4 STARTPC P 3 REALSIZE P 2 NTSIZE P 1 PVARCNT P 0 IVARCNT I 6 COMFN I 5 START I 4 AT I 3 FVARS I 2 PVARS I 1 IVARS I 0 CODE F 57Q D F 60Q FVARREF)  /j@ bA B (I_W`Fd)ORO c^OROdk_c^O_`ORW^,OTOTOVOXHOlmZ]dl\d@lm[dLllm ^lJ.B,d)NOZOR NOZO\ORn OZl_ZA*d)NOZOR NOZO\ORj OZl_ZOZ_O ,d)NOZOR NOZO\ORn OZl_ZNDlmHn_$_"O$__OlOǿO"O$l_ _OlO ǿNOkkn_0_.O0_(_&O&lO(ǿO.O0l_,_*O*lO,ǿNL_4_2O2lO4ǿNLl_8_6O6lO8ǿNdNlnDl_<_:O:lO<ǿNl F NJ_@_>O>l O@ǿNJl_D_BOBl ODǿNNlIǿNNlOǿNdNlNNldnnkNNlNNldnnkkl,_P_NOP_H_FOFjOHǿONOPl_L_JOJkOLǿ@E/NL``E,OTOTOVOXEkb Lk\N(1020Q \FIXCODEPTR 445Q \FIXCODENUM 424Q \FIXCODENUM 403Q REVERSE 353Q \FIXCODENUM 334Q \FIXCODENUM 275Q \FIXCODENUM 254Q \FIXCODENUM 222Q \CODEARRAY 53Q FASSOC 16Q LENGTH 12Q LENGTH 4 CBYTE0) (1343Q \FCCODEARRAY 1336Q \FCCODEARRAY 106Q \FCCODEARRAY) () FCOMPILERR D1 (I 1 Y I 0 X F 0 RETLOC) @i Ai i P (23Q RETFROM 17Q TERPRI 12Q PRIN1 4 PRIN1) NIL () GROWFCCODE D1 (I 0 GROWTH) D`@bj j`I$HI``IJJKLIkذH@h(12Q \CODEARRAY) (100Q \FCCODESIZE 74Q \FCCODEARRAY 40Q \FCCODEARRAY 33Q \FCCODEARRAY 22Q \FCCODESIZE 2 \FCCODESIZE) () OP# D1 (I 0 X) @ (4 \FINDOP) NIL () \ARGCHECK D1 (I 2 ARGS I 1 TYP I 0 X) @dAdB @ h(24Q \ARGCHECKFAIL 17Q EQUAL) NIL () \ARGCHECKFAIL D1 (P 0 FN I 0 LAM) m Hd @l h(25Q \LISPERROR 17Q PUTD 14Q GETD 4 STKNAME) NIL () \MAKEPSEUDOCODE D1 (P 0 RETLOC I 1 TOPFN I 0 LAM) `g g1@@@dgdgA@@g@dddi@dd g@h@Yddidd gIh@d Zddidd gJhh`gg@&g@[ddidd gKhhhj (363Q COMP0DEF 221Q \APPEND2 16Q DEFINEDP) (343Q QUOTE 310Q \EVPROGN 300Q PROGN 273Q ALL 270Q COMPILEATPUTDFLG 254Q QUOTE 202Q QUOTE 144Q QUOTE 110Q \ARGCHECK 67Q NLAMBDA 61Q LAMBDA 27Q \MAKEPSEUDOCODE 13Q COMP0DEF 2 COMPILEATPUTDFLG) () \PSEUDOCODE.REALDEF D1 (L (0 FNH)) @ddNIL NIL () FCOMPILE D1 (P 10Q DEF P 7 X P 2 PREDF P 1 RETF P 0 EFF I 0 FNLST) P 0@QKLK_hK_KOdli _ OO OoM Nh]N&(65Q FCOMPILE2 55Q EXPRP 50Q VIRGINFN) NIL ( 75Q (not compilable)) FCOMPILE2 D1 (P 0 RETLOC I 1 DEF I 0 TOPFN) g@Aj (13Q COMP0) (2 FCOMPILE2) () COMP0 D1 (I 2 START I 1 DEF I 0 COMFN) @dAB @(11Q DEFC 6 COMP0DEF) NIL () COMP0DEF D1 (P 12Q FVARREF P 11Q CURRENTPVARS P 10Q INPROG P 7 LBL P 6 FVARS P 5 PVARS P 4 IVARS P 3 PVARN P 2 AT P 1 VL P 0 IVARN I 2 START I 1 DEF I 0 COMFN) h jAA jt AbId:8JlIhY-IggIhAohhbhYdHdkظLlAB LMOJB@ (145Q COMPST0 132Q CBYTE0 127Q CPROGN0 7 ARGTYPE) (54Q LAMBDA 46Q NOBIND) ( 66Q (\MYARGCOUNT)) CEXP0 D1 (I 1 CODE I 0 E) @dA A (14Q CATOM0 7 CCALL0) NIL () CEXPA0 D1 (I 2 CODE I 1 E I 0 ARGCNT) AdB B (14Q CATOM0 7 CCALL0) NIL () CATOM0 D1 (P 0 D I 2 SET I 1 CODE I 0 VAR F 1 FVARREF F 2 IVARS F 3 CURRENTPVARS) @R X*BHlbA lHHlGA Hl@A @S X*BHl_A lHHlOA HlHA @diliA lhA @dlBlclWA bhQcjA A (237Q CCON0 232Q CBYTE0 214Q CBYTE0 170Q CBYTE0 160Q CBYTE0 143Q CBYTE0 132Q CBYTE0 127Q CBYTE0 111Q CBYTE0 106Q CBYTE0 70Q FASSOC 62Q CBYTE0 51Q CBYTE0 46Q CBYTE0 30Q CBYTE0 25Q CBYTE0 7 FASSOC) NIL () CCON0 D1 (P 0 D I 1 CODE I 0 X) @ lhA iliA @djljA klkA @dlHlHlgA ddF@dm@dn9j@@nlmA @dlllA l@lnA @jddloA (257Q CFIXCON0 254Q CBYTE0 251Q CBYTE0 246Q CBYTE0 243Q CBYTE0 230Q CBYTE0 225Q CBYTE0 222Q CBYTE0 206Q CBYTE0 203Q CBYTE0 166Q CBYTE0 163Q CBYTE0 110Q CBYTE0 105Q CBYTE0 102Q CBYTE0 51Q CBYTE0 37Q CBYTE0 22Q CBYTE0 10Q CBYTE0) NIL () CFIXCON0 D1 (I 2 CODE I 1 LOC I 0 CON) `Ak@ A(11Q \FIXCODEPTR) (2 \FCCODEARRAY) () CPROG0 D1 (P 11Q R P 10Q X P 7 RRL P 6 ARGCNT P 5 INPROG P 4 LBL I 2 CODE I 1 BODY I 0 VARS) @Ug0@ddIHhZH&JghAh@@d[KIHhZH&JB @Ad[l KhhhXI#HZYJi"jdlB bA1 YHdOlOL BBlOB bLd OO lOlhB (354Q CBYTE0 351Q JFIX0 346Q CBYTE0 327Q JFIX0 275Q CBYTE0 272Q CEXP0 254Q FASSOC 225Q LAST 215Q CBYTE0 212Q CBYTE0 207Q CBYTE0 124Q CEXP0) (46Q PROG 5 LAMBDA) () CGO0 D1 (P 0 D I 1 CODE I 0 A F 1 LBL F 2 ARGCNT) /@Q HR@o jdlA bHAh A(53Q \NCONC2 42Q CBYTE0 37Q CBYTE0 34Q CBYTE0 23Q FCOMPILERR 4 FASSOC) NIL ( 20Q "- can't handle GO") CRETURN0 D1 (I 1 CODE I 0 L F 0 RRL F 1 INPROG) 'Q@o jdl@A bdPcA(34Q CBYTE0 31Q CBYTE0 26Q CBYTE0 23Q CPROG10 11Q FCOMPILERR) NIL ( 6 "- illegal RETURN") CPROG10 D1 (P 0 X I 1 CODE I 0 L) %@A b@dlkHA bA(32Q CBYTE0 27Q CEXPA0 5 CEXP0) NIL () CPROGN0 D1 (I 1 CODE I 0 L) +@!@dgl@A b@b@A (50Q CEXP0 31Q CBYTE0 26Q CEXP0) (13Q *) () CLAM0 D1 (I 1 CODE I 0 DEF F 0 COMFN) Ph @A (16Q COMP0 11Q PACK 3 GENSYM) NIL () CSELQ0 D1 (I 2 CODE I 1 CL I 0 X) @llgg@hB bgbPANd\6Lgg@L[ddidd gKhhLiLhIHhZH&JB (176Q CCOND0 32Q CBYTE0 27Q CEXP0) (126Q QUOTE 72Q FMEMB 66Q EQ 40Q \SELECTQVALUE 16Q \SELECTQVALUE 13Q SETQ) () CCALL0 D1 (P 10Q OTHERVARS P 7 FN P 6 X P 5 ARGCNT P 1 FN P 0 ARGS I 1 CODE I 0 FORM F 11Q TOPFN F 12Q IVARS F 13Q PVARS)  @@I djIdgԿHA dlIdgHHA i gIdgHA gHA Idg(HdgHhhA HA liA g#0HdhKJh\J&LA IdgHHA gHHA IdgHA gHA IgHA @di b @A IkHA dkSIgHHdlA A @di b jHdNA bMk]IMA dIgHH @di b y`X@W0WdKJh\J&L0WdKJh\J&L @@l`@b IHA l(771Q SHOULDNT 760Q CCALL1 746Q EQUAL 720Q \NCONC2 613Q EQUAL 606Q EXPANDMACRO 577Q CERSET0 553Q CCALL2 531Q CCON0 506Q EQUAL 501Q EXPANDMACRO 472Q CCON0 466Q CLAM0 425Q CCALL2 422Q CCON0 412Q CEXP0 404Q EQUAL 377Q EXPANDMACRO 370Q CPROG10 354Q CPROGN0 341Q CGO0 322Q CPROG0 304Q CSELQ0 263Q CCOND0 214Q CBYTE0 205Q CEXP0 175Q CCOND0 136Q CCOND0 123Q CCON0 77Q CATOM0 73Q CEXP0 40Q CRETURN0 12Q ARGTYPE) (733Q COMPILEUSERFN 622Q COMPILEUSERFN 565Q .ERRSETQ. 440Q FUNCTION 361Q PROG1 345Q PROGN 330Q GO 310Q PROG 271Q SELECTQ 220Q OR 161Q AND 144Q AND 127Q COND 112Q * 103Q QUOTE 57Q SETQ 25Q RETURN) () CERSET0 D1 (I 1 FLG I 0 FORM F 0 CODE) -glA@@l@gh@hP hP (52Q CCALL2 47Q CCON0 44Q CCON0 36Q CLAM0) (24Q LAMBDA 2 ERRORSET) () CCALL2 D1 (P 1 X P 0 TEM I 2 CODE I 1 ARGCNT I 0 FN) @dlLgXZH&AHB bHdI B bBAj-AkdjH B bg@AB @B b@bdl@Adll -ll %Adkl ll Ajll B bAB (263Q CBYTE0 260Q CBYTE0 255Q CBYTE0 245Q CBYTE0 146Q CLAM0 140Q CLAM01 117Q CBYTE0 112Q \FINDOP 60Q CBYTE0 53Q \FINDOP 34Q CADJUST0) (130Q LAMBDA 15Q FCOMPILE) () CLAM01 D1 (P 0 CURRENTPVARS I 2 CODE I 1 ARGCNT I 0 FN F 1 PVARN F 2 PVARS F 3 CURRENTPVARS) WA@ bB bAj@B S@dQdkcRcHl@QkAlB (124Q CBYTE0 121Q CPROGN0 116Q CBYTE0 113Q CBYTE0 110Q CBYTE0 31Q CPROGN0 14Q CADJUST0 6 LENGTH) NIL () CADJUST0 D1 (I 2 CODE I 1 NWANT I 0 NHAVE) )@AdjlB bkA@djlhB bkB(37Q CBYTE0 14Q CBYTE0) NIL () CCALL1 D1 (P 1 X P 0 ARGCNT I 2 CODE I 1 ARGS I 0 FN) %jAdIB bHkX@HB (42Q CCALL2 20Q CEXP0) NIL () CCOND0 D1 (P 1 J P 0 R I 1 CODE I 0 CLAUSES) Y @ HlhA A b@lA Yh@I lllA bH@b(114Q CJUMPX 111Q CBYTE0 106Q CBYTE0 103Q CBYTE0 67Q JFIX0 64Q CJUMPX 61Q CPROGN0 47Q CJUMPX 44Q CBYTE0 26Q CEXP0 17Q JFIX0 14Q CBYTE0) NIL () CJUMPX D1 (I 0 CODE) jdl@ (15Q CBYTE0 12Q CBYTE0 7 CBYTE0) NIL () JFIX0 D1 (L (1 CODE 0 REFS)) K@DdHkٸAHlٹ`HIlJJKL`HkInJJKLANIL (53Q \FCCODEARRAY 25Q \FCCODEARRAY) () CBYTE0 D1 (I 1 I I 0 BYTE) `Ald ``A@Ak(12Q GROWFCCODE) (23Q \FCCODEARRAY 16Q \FCCODEARRAY 2 \FCCODESIZE) () (PRETTYCOMPRINT LLFCOMPILECOMS) (RPAQQ LLFCOMPILECOMS ((DECLARE: FIRST (VARS (COMPILEATPUTDFLG))) (VARS (\FCCODESIZE 750)) (FNS COMPST0 FCOMPILERR GROWFCCODE OP# \ARGCHECK \ARGCHECKFAIL \MAKEPSEUDOCODE \PSEUDOCODE.REALDEF) (FNS FCOMPILE FCOMPILE2 COMP0 COMP0DEF CEXP0 CEXPA0 CATOM0 CCON0 CFIXCON0 CPROG0 CGO0 CRETURN0 CPROG10 CPROGN0 CLAM0 CSELQ0 CCALL0 CERSET0 CCALL2 CLAM01 CADJUST0 CCALL1 CCOND0 CJUMPX JFIX0 CBYTE0) (VARS ( \FCCODEARRAY (\CODEARRAY \FCCODESIZE 0))) (DECLARE: EVAL@COMPILE DONTCOPY (ADDVARS (NOFIXVARSLST GVAR_ PVAR_ PVARX_ IVARX_ FVARX_ 'NIL 'T '0 '1 PVAR_^)) (GLOBALVARS \FCCODESIZE \FCCODEARRAY)) (MACROS OP#) (TEMPLATES OP#) (PROP FCOMPILE CADR CAR CDR IPLUS IDIFFERENCE SUB1 EQ ZEROP LISTP NEQ NLISTP NULL NOT \GETBASEPTR ILESSP IGREATERP) (P (MOVD? (QUOTE NILL) (QUOTE ADDREF))) (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA OP#) (NLAML) (LAMA))))) (RPAQQ \FCCODESIZE 750) (RPAQ \FCCODEARRAY (\CODEARRAY \FCCODESIZE 0)) (PUTPROPS OP# MACRO (X (CAR (\FINDOP (CAR X))))) (SETTEMPLATE (QUOTE OP#) (QUOTE (NIL))) (PUTPROPS CADR FCOMPILE (1 CDR CAR)) (PUTPROPS CAR FCOMPILE (1 CAR)) (PUTPROPS CDR FCOMPILE (1 CDR)) (PUTPROPS IPLUS FCOMPILE IPLUS2) (PUTPROPS IDIFFERENCE FCOMPILE (2 IDIFFERENCE)) (PUTPROPS SUB1 FCOMPILE (1 '1 IDIFFERENCE)) (PUTPROPS EQ FCOMPILE (2 EQ)) (PUTPROPS ZEROP FCOMPILE (1 '0 EQ)) (PUTPROPS LISTP FCOMPILE (1 LISTP)) (PUTPROPS NEQ FCOMPILE (2 EQ 'NIL EQ)) (PUTPROPS NLISTP FCOMPILE (1 LISTP 'NIL EQ)) (PUTPROPS NULL FCOMPILE (1 'NIL EQ)) (PUTPROPS NOT FCOMPILE (1 'NIL EQ)) (PUTPROPS \GETBASEPTR FCOMPILE (2 ADDBASE GETBASEPTR.N 0)) (PUTPROPS ILESSP FCOMPILE (2 SWAP IGREATERP)) (PUTPROPS IGREATERP FCOMPILE (2 IGREATERP)) (MOVD? (QUOTE NILL) (QUOTE ADDREF)) (PUTPROPS LLFCOMPILE COPYRIGHT ("Xerox Corporation" 1982 1983)) NIL