#!fast-load Version 3.0 15 Jun 87 09:37:56 h0028 00FC x03PME x05ALIAS x10PCS-MACRO-EXPAND x13CREATE-SCHEME-MACRO x05PSIMP x0CPCS-SIMPLIFY x03PCA x14PCS-CLOSURE-ANALYSIS x03PMR x11PCS-MAKE-READABLE x03PCG x0BPCS-GENCODE x05PPEEP x0BPCS-POSTGEN x03PAL x0CPCS-PRINCODE x04PASM x0DPCS-ASSEMBLER x13PCS-LOCAL-VAR-COUNT x02#T x10PCS-VERBOSE-FLAG x11PCS-PERMIT-PEEP-1 x11PCS-PERMIT-PEEP-2 x0EPCS-ERROR-FLAG x11PCS-BINARY-OUTPUT x04PME= x06PSIMP= x04PCA= x04PCG= x06PPEEP= x05PASM= x0C#!UNASSIGNED x07PROBLEM x03T-0 x05T-PME x07T-PSIMP x05T-PCA x05T-PCG x07T-PPEEP x06T-PASM t O  4  O  4  O  4  O  4   O  4   O  4  O  4  O  4  !"#$%&''; z h0009 004A x0BPCS-MAKE-ID x13CREATE-SCHEME-MACRO lx13PCS-LOCAL-VAR-COUNTn x04CONS llx05QUOTElnnllx05QUOTElnnllx05QUOTElnnn lx05QUOTElx01Tn x04LIST lx04SET!lx13PCS-LOCAL-VAR-COUNTllx01+lx13PCS-LOCAL-VAR-COUNTli0001nn x05BEGIN t< 5 CO O  O O  O  O O  O ; z h0026 015C x07ID-NAME x13CREATE-SCHEME-MACRO x09ID-NUMBER x0EID-FUNARGSEES? x0BID-FREEREF? x08ID-SET!? x07ID-INIT x07ID-RTV? x08ID-HEAP? x12SET-ID-FUNARGSEES? x0FSET-ID-FREEREF? x0CSET-ID-SET!? x0BSET-ID-INIT x13%EXPAND-SYNTAX-FORM lx02IDlx03VALn lx08SET-CDR!llx03CDRllx05CDDDRlx02IDnnlx03VALn lx02IDlx03VALn lx08SET-CAR!llx03CDRllx05CDDDRlx02IDnnlx03VALn lx02IDlx03VALn lx08SET-CAR!llx05CDDDRlx02IDnlx03VALn lx02IDlx03VALn lx08SET-CAR!llx04CDDRlx02IDnlx03VALn lx02IDn lx03ANDllx0EID-FUNARGSEES?lx02IDnllx0BID-FREEREF?lx02IDnllx07ID-RTV?lx02IDnn lx02IDn lx02ORllx08ID-SET!?lx02IDnllx05NULL?llx07ID-INITlx02IDnnllx0ELAMBDA-CLOSED?l lx07ID-INITlx02IDnnn lx02IDn lx04CDDRllx05CDDDRlx02IDnn lx02IDn lx04CADRllx05CDDDRlx02IDnn lx02IDn lx03CARllx05CDDDRlx02IDnn lx02IDn lx03CARllx04CDDRlx02IDnn lx02IDn lx05CDADRlx02IDn lx02IDn lx05CAADRlx02IDn t<E 4 <( 4 <  4 <î 4 <Ñ 4 <´ 4 <— 4 <z 4  <] 4  <@ 4  <# 4  < 5   5  5  5  5  5  5  5  5  5   !5 " #5 $ %5 z h002A 018E x0ALAMBDA-BVL x13CREATE-SCHEME-MACRO x0BLAMBDA-BODY x10LAMBDA-BODY-LIST x0CLAMBDA-NARGS x0CLAMBDA-LABEL x0CLAMBDA-DEBUG x0ELAMBDA-CLOSED? x0FSET-LAMBDA-BODY x10SET-LAMBDA-NARGS x10SET-LAMBDA-LABEL x10SET-LAMBDA-DEBUG x12SET-LAMBDA-CLOSED? x11PCS-EXTEND-LAMBDA x01X llx08SET-CDR!llx05CDDDRlx01Xnllx04LISTllx05QUOTElnnllx05QUOTElnnllx05QUOTEl nnnnlx01Xn x03LET x13%EXPAND-SYNTAX-FORM lx01Xlx03VALn lx08SET-CAR!llx05CDDDRllx05CDDDRlx01Xnnlx03VALn lx01Xlx03VALn lx08SET-CAR!llx04CDDRllx05CDDDRlx01Xnnlx03VALn lx01Xlx03VALn lx08SET-CAR!llx03CDRllx05CDDDRlx01Xnnlx03VALn lx01Xlx03VALn lx08SET-CAR!llx05CDDDRlx01Xnlx03VALn lx01Xlx03VALn lx08SET-CAR!llx04CDDRlx01Xnlx03VALn lx01Xn lx03CARllx05CDDDRllx05CDDDRlx01Xnnn lx01Xn lx03CARllx04CDDRllx05CDDDRlx01Xnnn lx01Xn lx03CARllx03CDRllx05CDDDRlx01Xnnn lx01Xn lx03CARllx05CDDDRlx01Xnn lx01Xn lx04CDDRlx01Xn lx01Xn lx03CARllx04CDDRlx01Xnn lx01Xn lx03CARllx03CDRlx01Xnn t<w 4 <Z 4 <= 4 <  4 < 4 <æ 4 <É 4 <¬ 4  < 4  <r 4  <U 4  <8 4  < 5 CO O O O  O ; 5 5 5 5 5 5 5  !5" #5$ %5& '5( )5 z h000E 0074 x0CLETREC-PAIRS x13CREATE-SCHEME-MACRO x0BLETREC-BODY x10LETREC-BODY-LIST x0FSET-LETREC-BODY x13%EXPAND-SYNTAX-FORM lx01Xlx03VALn lx08SET-CAR!llx04CDDRlx01Xnlx03VALn lx01Xn lx04CDDRlx01Xn lx01Xn lx03CARllx04CDDRlx01Xnn lx01Xn lx03CARllx03CDRlx01Xnn t<] 4 <@ 4 <# 4 < 5  5 5  5  5 z h0014 00AE x07IF-PRED x13CREATE-SCHEME-MACRO x07IF-THEN x07IF-ELSE x0BSET-IF-PRED x0BSET-IF-THEN x0BSET-IF-ELSE x13%EXPAND-SYNTAX-FORM lx01Xlx03VALn lx08SET-CAR!llx05CDDDRlx01Xnlx03VALn lx01Xlx03VALn lx08SET-CAR!llx04CDDRlx01Xnlx03VALn lx01Xlx03VALn lx08SET-CAR!llx03CDRlx01Xnlx03VALn lx01Xn lx03CARllx05CDDDRlx01Xnn lx01Xn lx03CARllx04CDDRlx01Xnn lx01Xn lx03CARllx03CDRlx01Xnn t<— 4 <z 4 <] 4 <@ 4 <# 4 < 5  5  5  5 5 5 5 z h000E 0074 x07SET!-ID x13CREATE-SCHEME-MACRO x08SET!-EXP x0BSET-SET!-ID x0CSET-SET!-EXP x13%EXPAND-SYNTAX-FORM lx01Xlx03VALn lx08SET-CAR!llx04CDDRlx01Xnlx03VALn lx01Xlx03VALn lx08SET-CAR!llx03CDRlx01Xnlx03VALn lx01Xn lx03CARllx04CDDRlx01Xnn lx01Xn lx03CARllx03CDRlx01Xnn t<] 4 <@ 4 <# 4 < 5  5 5  5  5 z h000F 01C1 x11PCS-MAKE-READABLE lx07PMR-EXPlx0BPMR-FULL-IDn x07PMR-EXP x0BPMR-FULL-ID x05QUOTE x01T x06LAMBDA x06LETREC x06MAPCAR x0CFUNARGSEES?= x09FREEREF?= x06SET!?= x05INIT= x06LABEL= x08CLOSED?= t<;Ý<<0ÿ;€";@ e " ; e "  [ e " !º e "     5 C0ó I 0ÿO O  O ;C;GK O I O  O  NO OMCO OME"O OOOOO O  O ;C  4  I 0ìþMCO OMNOOOOO O  O ; " 0A  B0ÿH0†þxO Êj; z h0002 0031 x17FILENAME-SANS-EXTENSION s0001. t<; Æ Î  " §;; z h0003 0036 x17EXTENSION-SANS-FILENAME s0001. s0000 t<; Æ Î  " Ƨ;; z h001C 0186 x03PCS x04PME= x06PSIMP= x04PCA= x04PCG= x05PASM= x13PCS-LOCAL-VAR-COUNT x07PROBLEM x0EPCS-ERROR-FLAG x05PTIME x03T-0 x10PCS-MACRO-EXPAND x05T-PME x0FERROR-PROCEDURE s002A[Compilation terminated because of errors] x0CPCS-SIMPLIFY x07T-PSIMP x14PCS-CLOSURE-ANALYSIS x05T-PCA x0BPCS-GENCODE x05T-PCG x0BPCS-POSTGEN x06PPEEP= x07T-PPEEP x0DPCS-ASSEMBLER x06T-PASM x06TOTAL= x06TIMES- t<; 4@   4 4@ "  4!„  4 4@  4 4@  4 4@  4 4@  4 4@ R   R  RRR R  $R $O $O$$ O$ O O OOOOOO O O O  O ; z h000E 0072 x0BPCS-COMPILE x10PCS-VERBOSE-FLAG x02#T x11PCS-BINARY-OUTPUT x13PCS-LOCAL-VAR-COUNT x0EPCS-ERROR-FLAG x10PCS-MACRO-EXPAND x0FERROR-PROCEDURE s002B[Compilation terminated because of errors.] x0CPCS-SIMPLIFY x14PCS-CLOSURE-ANALYSIS x0BPCS-GENCODE x0BPCS-POSTGEN x0DPCS-ASSEMBLER t<;4 "  4; 4 4 4 4 5 z h0003 0013 x12COMPILE-TIME-ALIAS x05ALIAS x13CREATE-SCHEME-MACRO t O  5  z h0017 0182 x10PCS-COMPILE-FILE x0FOPEN-INPUT-FILE x0AINPUT-PORT x10OPEN-OUTPUT-FILE x04READ x0FERROR-PROCEDURE s0036PCS-COMPILE-FILE arguments must be distinct file names x0BEOF-OBJECT? x10CLOSE-INPUT-PORT x11CLOSE-OUTPUT-PORT x02OK x0BPCS-COMPILE x12COMPILE-TIME-ALIAS x08%EXECUTE lx05MACROlx06SYNTAXlx05ALIASlx11DEFINE-INTEGRABLEn x07WRITELN s0006 s0003: ( s0001, s0001) x0BOUTPUT-PORT x10SET-LINE-LENGTH! x05QUOTE t<;  "   "  f ˆ " *4440%ÿ; üxüü4;4"  4  4 ;0 4 À 4C IN@‹#ª@ d"  5‹" @g"  4  $ $  4 J4O O O O ²µ;; z h0018 0139 x0D%COMPILE-FILE x0FOPEN-INPUT-FILE x0AINPUT-PORT x10OPEN-OUTPUT-FILE x04READ x0FERROR-PROCEDURE s0033%COMPILE-FILE arguments must be distinct file names x0BEOF-OBJECT? x10CLOSE-INPUT-PORT x11CLOSE-OUTPUT-PORT x02OK x10PCS-MACRO-EXPAND x0EPCS-ERROR-FLAG x07WRITELN s002B[Compilation terminated because of errors.] x0CPCS-SIMPLIFY x14PCS-CLOSURE-ANALYSIS x0BPCS-GENCODE x0BPCS-POSTGEN x06PPEEP= x0BOUTPUT-PORT x10SET-LINE-LENGTH! x02PP x0CPCS-PRINCODE t<;  "   "  f ˆ " *4440%ÿ; üxüü4;4"  4  4 ;0 4 À 4 "  4  ,4444J4 µ 4 µ 4µ; z