352 lines
8.8 KiB
Plaintext
352 lines
8.8 KiB
Plaintext
|
#!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 <<08> 4 <<08> 4 <<08> 4 <<08> 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 <<08> 4 <<08> 4 <<08> 4 <<08> 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 <<08> 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 < ;<04>< <<08> 0 <00> ; <04>";@ e " ; e " [ e " !<21> e " 5 C 0<> I 0<><30> O O O ;C;GK O I O O NO
|
|||
|
|
OMCO OME"O O O OOO O O ;C 4 I 0<><30> MCO
O MNO OO OO O O ; " 0A B0<19> H0<><30> xO <20> j;
|
|||
|
|
z
|
|||
|
|
h0002 0031
|
|||
|
|
x17FILENAME-SANS-EXTENSION
|
|||
|
|
s0001.
|
|||
|
|
t < ; <04> <04> " <00>;;
|
|||
|
|
z
|
|||
|
|
h0003 0036
|
|||
|
|
x17EXTENSION-SANS-FILENAME
|
|||
|
|
s0001.
|
|||
|
|
s0000
|
|||
|
|
t < ; <04> <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 4 @ "
4 !<21> 4 4 @ 4 4 @ 4 4 @ 4 4 @ 4 4 @
|
|||
|
|
R
|
|||
|
|
R RR R R $R $O $O$$ O $ O O O O OOOO 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 < ; <04> " <08> " f <08> " *4 44 0% <00> ; <00>x<> <08> 4 ;4 " 4 4
|
|||
|
|
; 0
4 <20> 4 C IN@ <00>#<18> @ d "
5 <00>" @ g "
4 $ $ 4 J4 O O O
O <1C> <00> ; ;
|
|||
|
|
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> " <08> " f <08> " *4 44 0% <00> ; <00>x<> <08> 4 ;4 " 4 4
|
|||
|
|
; 0
4 <20> 4 "
4 , 4444 J4 <00> 4 <00> 4 <00> ;
|
|||
|
|
z
|