conservatory
/
pcs
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
pcs/tools/pboot.fsl

352 lines
8.8 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#!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 C0<> I 0<><30>O O  O ;C;GK O I O  O  NO
OMCO OME"O OOOOO O  O ;C  4  I 0<><30>MCO
OMNOOOOO 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  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<; <04> "  <08> "  f <08> " *4440%<00>; <00>x<><08>4;4"  4  4
;0
4 <20> 4C IN@<00>#<18>@ d" 
5<00>" @g" 
4  $ $  4 J4O 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> " *4440%<00>; <00>x<><08>4;4"  4  4
;0
4 <20> 4 " 
4  ,4444J4 <00> 4 <00> 4<00>;
z
Reference in New Issue View Git Blame Copy Permalink