8.8 KiB
8.8 KiB
#!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 4 4 4 4
4 4 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 OO 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 <00> 4 <00> 4 <00> 4 <00> 4 z 4 ] 4
$ %5 # 4 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 <00> 4 <00> 4 <00> 4 <00> 4
5 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
55
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 <00> 4 z 4 ] 4 @ 4 # 4 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
55
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 < ;<04> <03> 0 <00> ;; e " ; e " [ e " !<21> e " 5 C 0<> I 0<><30> O O;C;K I O O NO
O MNO OO OO O; " 0A B0<19> H0<><30> x <20> j; MCO
z
h0002 0031
x17FILENAME-SANS-EXTENSION
s0001.
t < ; <04> " <00>;;
z
h0003 0036
x17EXTENSION-SANS-FILENAME
s0001.
s0000
t < ; <04> "
<04><10>;;
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 !<21> 4 4 4 4 4
R RR R R $R $O $O$$ O $ O O O O OOOO 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 ;
z
h0003 0013
x12COMPILE-TIME-ALIAS
x05ALIAS
x13CREATE-SCHEME-MACRO
t 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 < ; <04> " <00> " f<> " * 4 0% <00> ; <00>x<> 4 ;
O <1C> <00> ; ; $ 4 J 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 < ; <04> " <00> " f<> " * 4 0% <00> ; <00>x<> 4 ;
, J <00> <00> <00> ;
z
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 4 4 4 4
4 4 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 OO 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 <00> 4 <00> 4 <00> 4 <00> 4 z 4 ] 4
$ %5 # 4 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 <00> 4 <00> 4 <00> 4 <00> 4
5 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
55
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 <00> 4 z 4 ] 4 @ 4 # 4 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
55
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 < ;<04> <03> 0 <00> ;; e " ; e " [ e " !<21> e " 5 C 0<> I 0<><30> O O;C;K I O O NO
O MNO OO OO O; " 0A B0<19> H0<><30> x <20> j; MCO
z
h0002 0031
x17FILENAME-SANS-EXTENSION
s0001.
t < ; <04> " <00>;;
z
h0003 0036
x17EXTENSION-SANS-FILENAME
s0001.
s0000
t < ; <04> "
<04><10>;;
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 !<21> 4 4 4 4 4
R RR R R $R $O $O$$ O $ O O O O OOOO 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 ;
z
h0003 0013
x12COMPILE-TIME-ALIAS
x05ALIAS
x13CREATE-SCHEME-MACRO
t 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 < ; <04> " <00> " f<> " * 4 0% <00> ; <00>x<> 4 ;
O <1C> <00> ; ; $ 4 J 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 < ; <04> " <00> " f<> " * 4 0% <00> ; <00>x<> 4 ;
, J <00> <00> <00> ;
z