'<PCODE "1CLUED">

"***** CLU COMPILER ***** SATURDAY, 6 SEP 1975 16:38 EDT *****" 

<OR <BOUND? PROCLIST> <SET PROCLIST ()>> 

<SET PROCLIST <CONS :PE_MODULE .PROCLIST>> 

<SETG :PE_MODULE  %<RSUBR!- '[ %<PCODE!- "1CLUED" 0> :PE_MODULE #DECL ("VALUE" <
LIST FIX ANY> <LIST FIX ANY> ANY "OPTIONAL" ANY) :IDN$EQUAL :IDN$HASH 
:IDN$CREATE :TYPESPEC$PRINT BOOL$AND :EXPR$PRINT ARRAY$TOP ARRAY$RETRACTH 
ARRAY$FILL :IDN$GETSTRING :TYPESPEC$NICEFY :TYPESPEC$U :TYPESPEC$D :DECL$U 
:DECL$LINENO :DECL$D NEWARR :IDN$GET_TYPE :NAME$D :STMT$U :ERROR :STMT$EMPTY 
:STMT$LINENO :STMT$D :ERR1 :RETURN-ERROR :TYPESPEC$COPY ARRAY$COPY 
:TYPESPEC$MAKE_BAD :TYPESPEC$IS_REP :EXPR$D :PE_TYPESPEC ARRAY$STORE 
:TYPESPEC$MAKE_ATYPE :EXPR$U :TYPESPEC$MAKE_PROC ARRAY$EXTENDH ARRAY$SIZE 
ARRAY$FETCH ARRAY$HIGH ARRAY$LOW :TYPE_CHECKING :TRACING :PUTS :GET_MODULE_NAME 
:PUTC :IN_SYSTEM ![!] "REP undefined" DONE :TYPESPEC R$2631$2$2 
"Substitute statement not supported" "Exit statement not supported" 
"bad stmt to pe_stmt" "failure_of_mechanism" "bad expr to pe_expr" 
"Invalid use of type TYPE." "Invalid use of CVT." "Invalid use of REP." 
"bad typespec to pe_typespec" dup_sel :NAME dup_error ERROR-ARGS 
"Duplicate selector in RECORD/ONEOF type: '" "'" 
"Duplicate error in PROC type: '" "Invalid abstract type" "Variable '" 
"' where constant required." "Constant not found where expected." (16 NIL) 
:ARRAY R$2414$7$0 T "Attempt to define external '" "'." 
"Invalid redefinition of '" " equated to " "Attempt to declare external '" 
"Invalid redeclaration of '" " parameter of type " " variable of type " 
" procedure of type " " cluster of type " "' undeclared." 
"Identifier not found where expected." "Local Identifiers:
" 
"External Identifiers: " "
	" "

"]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,:PE_MODULE PGLUE ![715827882 -22906492246 
-22906492161 -1 -1 -67108864!]>> 

<SETG :PE_MODULE$TYPE O$2631$2$0> 

<SET PROCLIST <CONS :PE_PROCSPEC .PROCLIST>> 

<SETG :PE_PROCSPEC %<RSUBR-ENTRY '[:PE_MODULE :PE_PROCSPEC #DECL ("VALUE" <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX>> <VECTOR <VECTOR UVECTOR FIX 
FIX FIX> ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX>> ANY "OPTIONAL" ANY)] 156>> 

<SETG :PE_PROCSPEC$TYPE R$2631$5$0> 

<SET PROCLIST <CONS :PE_CLUSTERSPEC .PROCLIST>> 

<SETG :PE_CLUSTERSPEC %<RSUBR-ENTRY '[:PE_MODULE :PE_CLUSTERSPEC #DECL ("VALUE" 
<VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX>> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX>> ANY "OPTIONAL" ANY)] 367>> 

<SETG :PE_CLUSTERSPEC$TYPE R$2631$4$0> 

<SET PROCLIST <CONS :PE_SECTIONLIST .PROCLIST>> 

<SETG :PE_SECTIONLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_SECTIONLIST #DECL ("VALUE" 
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY "OPTIONAL" ANY)] 
572>> 

<SETG :PE_SECTIONLIST$TYPE (:ARRAY O$2631$3$0)> 

<SET PROCLIST <CONS :PE_PARMS .PROCLIST>> 

<SETG :PE_PARMS %<RSUBR-ENTRY '[:PE_MODULE :PE_PARMS #DECL ("VALUE" <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)] 649>> 

<SETG :PE_PARMS$TYPE (:ARRAY R$2631$2$0)> 

<SET PROCLIST <CONS :PE_FORMARG .PROCLIST>> 

<SETG :PE_FORMARG %<RSUBR-ENTRY '[:PE_MODULE :PE_FORMARG #DECL ("VALUE" <VECTOR 
<VECTOR UVECTOR FIX FIX FIX> ANY> <VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> ANY 
FIX "OPTIONAL" ANY)] 729>> 

<SETG :PE_FORMARG$TYPE R$2631$2$0> 

<SET PROCLIST <CONS :PE_BODY .PROCLIST>> 

<SETG :PE_BODY %<RSUBR-ENTRY '[:PE_MODULE :PE_BODY #DECL ("VALUE" <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)] 784>> 

<SETG :PE_BODY$TYPE (:ARRAY O$2631$3$1)> 

<SET PROCLIST <CONS :PE_CLAUSE .PROCLIST>> 

<SETG :PE_CLAUSE %<RSUBR-ENTRY '[:PE_MODULE :PE_CLAUSE #DECL ("VALUE" <LIST FIX 
ANY> <LIST FIX ANY> ANY FIX "OPTIONAL" ANY)] 864>> 

<SETG :PE_CLAUSE$TYPE O$2631$3$1> 

<SET PROCLIST <CONS :PE_EQUATE .PROCLIST>> 

<SETG :PE_EQUATE %<RSUBR-ENTRY '[:PE_MODULE :PE_EQUATE #DECL ("VALUE" <VECTOR 
ANY ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 979>> 

<SETG :PE_EQUATE$TYPE R$2631$2$1> 

<SET PROCLIST <CONS :PE_SECTION .PROCLIST>> 

<SETG :PE_SECTION %<RSUBR-ENTRY '[:PE_MODULE :PE_SECTION #DECL ("VALUE" <LIST 
FIX ANY> <LIST FIX ANY> ANY "OPTIONAL" ANY)] 1035>> 

<SETG :PE_SECTION$TYPE O$2631$3$0> 

<SET PROCLIST <CONS :PE_OPERSPEC .PROCLIST>> 

<SETG :PE_OPERSPEC %<RSUBR-ENTRY '[:PE_MODULE :PE_OPERSPEC #DECL ("VALUE" <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX>> <VECTOR <VECTOR UVECTOR FIX 
FIX FIX> ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX>> ANY "OPTIONAL" ANY)] 1138>> 

<SETG :PE_OPERSPEC$TYPE R$2631$5$0> 

<SET PROCLIST <CONS :PE_OPER_NAMES .PROCLIST>> 

<SETG :PE_OPER_NAMES %<RSUBR-ENTRY '[:PE_MODULE :PE_OPER_NAMES #DECL ("VALUE" 
ATOM <VECTOR UVECTOR FIX FIX FIX> ANY "OPTIONAL" ANY)] 1235>> 

<SET PROCLIST <CONS :PE_OPER_NAME .PROCLIST>> 

<SETG :PE_OPER_NAME %<RSUBR-ENTRY '[:PE_MODULE :PE_OPER_NAME #DECL ("VALUE" ATOM
<VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX>> ANY "OPTIONAL" ANY)] 1403>> 

<SET PROCLIST <CONS :PE_ENVIRONMENT .PROCLIST>> 

<SETG :PE_ENVIRONMENT %<RSUBR-ENTRY '[:PE_MODULE :PE_ENVIRONMENT #DECL ("VALUE" 
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY "OPTIONAL" ANY)] 
1611>> 

<SETG :PE_ENVIRONMENT$TYPE (:ARRAY R$2631$2$1)> 

<SET PROCLIST <CONS :LOWER .PROCLIST>> 

<SETG :LOWER %<RSUBR-ENTRY '[:PE_MODULE :LOWER #DECL ("VALUE" FIX FIX "OPTIONAL"
ANY)] 1691>> 

<SETG :LOWER$TYPE :INT> 

<SET PROCLIST <CONS :ERR .PROCLIST>> 

<SETG :ERR %<RSUBR-ENTRY '[:PE_MODULE :ERR #DECL ("VALUE" ATOM ANY STRING 
"OPTIONAL" ANY)] 1742>> 

<SETG R$2631$2$0 '(:RECORD (:ARRAY :IDN) :TYPESPEC)> 

<SETG R$2631$2$1 '(:RECORD :IDN :EXPR)> 

<SETG R$2631$2$2 '(:RECORD (:ARRAY :TYPESPEC) :NAME)> 

<SETG R$2631$4$0 '(:RECORD :IDN (:ARRAY :IDN) (:ARRAY R$2631$2$0) (:ARRAY 
O$2631$3$0))> 

<SETG R$2631$5$0 '(:RECORD (:ARRAY R$2631$2$0) :IDN (:ARRAY :TYPESPEC) (:ARRAY 
R$2631$2$2) (:ARRAY O$2631$3$1))> 

<SETG O$2631$2$0 '(:ONEOF R$2631$4$0 R$2631$5$0)> 

<SETG O$2631$3$0 '(:ONEOF R$2631$2$1 R$2631$5$0 :TYPESPEC)> 

<SETG O$2631$3$1 '(:ONEOF :DECL R$2631$2$1 :STMT)> 

"Pass 2 for ED1 done in 86.239587 seconds." 

"***** CLU COMPILER ***** SUNDAY, 10 AUG 1975 16:58 EDT *****" 

<SET REASONABLE T> 

<SET GLUE T> 

<OR <BOUND? PROCLIST> <SET PROCLIST ()>> 

<SET PROCLIST <CONS :PE_MSTMT .PROCLIST>> 

<SETG :PE_MSTMT %<RSUBR-ENTRY '[:PE_MODULE :PE_MSTMT #DECL ("VALUE" <LIST FIX 
ANY> <LIST FIX ANY> ANY FIX "OPTIONAL" ANY)] 1781>> 

<SET :PE_MSTMT$TYPE O$2091$2$0> 

<SET PROCLIST <CONS :PE_STMT .PROCLIST>> 

<SETG :PE_STMT %<RSUBR-ENTRY '[:PE_MODULE :PE_STMT #DECL ("VALUE" ANY ANY ANY 
FIX "OPTIONAL" ANY)] 1877>> 

<SET :PE_STMT$TYPE :STMT> 

<SET PROCLIST <CONS :PE_MASSN .PROCLIST>> 

<SETG :PE_MASSN %<RSUBR-ENTRY '[:PE_MODULE :PE_MASSN #DECL ("VALUE" <VECTOR <
VECTOR UVECTOR FIX FIX FIX> VECTOR> <VECTOR <VECTOR UVECTOR FIX FIX FIX> VECTOR>
ANY FIX "OPTIONAL" ANY)] 2189>> 

<SET :PE_MASSN$TYPE R$2091$2$0> 

<SET PROCLIST <CONS :PE_LOOP .PROCLIST>> 

<SETG :PE_LOOP %<RSUBR-ENTRY '[:PE_MODULE :PE_LOOP #DECL ("VALUE" <VECTOR ANY 
ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 2246>> 

<SET :PE_LOOP$TYPE R$2091$2$2> 

<SET PROCLIST <CONS :PE_OLDFOR .PROCLIST>> 

<SETG :PE_OLDFOR %<RSUBR-ENTRY '[:PE_MODULE :PE_OLDFOR #DECL ("VALUE" <VECTOR 
ANY <LIST FIX ANY> <LIST FIX ANY> <LIST FIX ANY> ANY ANY ANY> <VECTOR ANY <LIST 
FIX ANY> <LIST FIX ANY> <LIST FIX ANY> ANY ANY ANY> ANY FIX "OPTIONAL" ANY)] 
2303>> 

<SET :PE_OLDFOR$TYPE R$2091$7$0> 

<SET PROCLIST <CONS :PE_NEWFOR .PROCLIST>> 

<SETG :PE_NEWFOR %<RSUBR-ENTRY '[:PE_MODULE :PE_NEWFOR #DECL ("VALUE" <VECTOR 
ANY <LIST FIX ANY> <LIST FIX ANY> <LIST FIX ANY> ANY ANY ANY> <VECTOR ANY <LIST 
FIX ANY> <LIST FIX ANY> <LIST FIX ANY> ANY ANY ANY> ANY FIX "OPTIONAL" ANY)] 
2406>> 

<SET :PE_NEWFOR$TYPE R$2091$7$0> 

<SET PROCLIST <CONS :PE_IFSTMT .PROCLIST>> 

<SETG :PE_IFSTMT %<RSUBR-ENTRY '[:PE_MODULE :PE_IFSTMT #DECL ("VALUE" <VECTOR 
ANY ANY ANY> <VECTOR ANY ANY ANY> ANY FIX "OPTIONAL" ANY)] 2538>> 

<SET :PE_IFSTMT$TYPE R$2091$3$0> 

<SET PROCLIST <CONS :PE_CASESTMT .PROCLIST>> 

<SETG :PE_CASESTMT %<RSUBR-ENTRY '[:PE_MODULE :PE_CASESTMT #DECL ("VALUE" <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY <LIST FIX ANY>> <VECTOR <VECTOR UVECTOR 
FIX FIX FIX> ANY <LIST FIX ANY>> ANY FIX "OPTIONAL" ANY)] 2607>> 

<SET :PE_CASESTMT$TYPE R$2091$3$1> 

<SET PROCLIST <CONS :PE_CASELIST .PROCLIST>> 

<SETG :PE_CASELIST %<RSUBR-ENTRY '[:PE_MODULE :PE_CASELIST #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)
] 2674>> 

<SET :PE_CASELIST$TYPE (:ARRAY R$2091$2$3)> 

<SET PROCLIST <CONS :PE_CASEARM .PROCLIST>> 

<SETG :PE_CASEARM %<RSUBR-ENTRY '[:PE_MODULE :PE_CASEARM #DECL ("VALUE" <VECTOR 
ANY <VECTOR UVECTOR FIX FIX FIX>> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> ANY 
FIX "OPTIONAL" ANY)] 2754>> 

<SET :PE_CASEARM$TYPE R$2091$2$3> 

<SET PROCLIST <CONS :PE_TRIGLIST .PROCLIST>> 

<SETG :PE_TRIGLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_TRIGLIST #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)
] 2810>> 

<SET :PE_TRIGLIST$TYPE (:ARRAY O$2091$2$2)> 

<SET PROCLIST <CONS :PE_TRIGGER .PROCLIST>> 

<SETG :PE_TRIGGER %<RSUBR-ENTRY '[:PE_MODULE :PE_TRIGGER #DECL ("VALUE" <LIST 
FIX ANY> <LIST FIX ANY> ANY FIX "OPTIONAL" ANY)] 2890>> 

<SET :PE_TRIGGER$TYPE O$2091$2$2> 

<SET PROCLIST <CONS :PE_RANGE .PROCLIST>> 

<SETG :PE_RANGE %<RSUBR-ENTRY '[:PE_MODULE :PE_RANGE #DECL ("VALUE" <VECTOR ANY 
ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 2995>> 

<SET :PE_RANGE$TYPE R$2091$2$4> 

<SET PROCLIST <CONS :PE_TAGSTMT .PROCLIST>> 

<SETG :PE_TAGSTMT %<RSUBR-ENTRY '[:PE_MODULE :PE_TAGSTMT #DECL ("VALUE" <VECTOR 
<VECTOR UVECTOR FIX FIX FIX> <LIST FIX ANY> ANY> <VECTOR <VECTOR UVECTOR FIX FIX
FIX> <LIST FIX ANY> ANY> ANY FIX "OPTIONAL" ANY)] 3052>> 

<SET :PE_TAGSTMT$TYPE R$2091$3$2> 

<SET PROCLIST <CONS :PE_TAGLIST .PROCLIST>> 

<SETG :PE_TAGLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_TAGLIST #DECL ("VALUE" <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)] 3117>
> 

<SET :PE_TAGLIST$TYPE (:ARRAY R$2091$2$5)> 

<SET PROCLIST <CONS :PE_TAGARM .PROCLIST>> 

<SETG :PE_TAGARM %<RSUBR-ENTRY '[:PE_MODULE :PE_TAGARM #DECL ("VALUE" <VECTOR 
ANY <VECTOR UVECTOR FIX FIX FIX>> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> ANY 
FIX "OPTIONAL" ANY)] 3197>> 

<SET :PE_TAGARM$TYPE R$2091$2$5> 

<SET PROCLIST <CONS :PE_TYPESTMT .PROCLIST>> 

<SETG :PE_TYPESTMT %<RSUBR-ENTRY '[:PE_MODULE :PE_TYPESTMT #DECL ("VALUE" <
VECTOR <VECTOR UVECTOR FIX FIX FIX> <LIST FIX ANY> ANY> <VECTOR <VECTOR UVECTOR 
FIX FIX FIX> <LIST FIX ANY> ANY> ANY FIX "OPTIONAL" ANY)] 3242>> 

<SET :PE_TYPESTMT$TYPE R$2091$3$2> 

<SET PROCLIST <CONS :PE_TYPEARMLIST .PROCLIST>> 

<SETG :PE_TYPEARMLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_TYPEARMLIST #DECL ("VALUE" 
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY
)] 3307>> 

<SET :PE_TYPEARMLIST$TYPE (:ARRAY R$2091$2$5)> 

<SET PROCLIST <CONS :PE_TYPEARM .PROCLIST>> 

<SETG :PE_TYPEARM %<RSUBR-ENTRY '[:PE_MODULE :PE_TYPEARM #DECL ("VALUE" <VECTOR 
ANY <VECTOR UVECTOR FIX FIX FIX>> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> ANY 
FIX "OPTIONAL" ANY)] 3387>> 

<SET :PE_TYPEARM$TYPE R$2091$2$5> 

<SET PROCLIST <CONS :PE_SIGSTMT .PROCLIST>> 

<SETG :PE_SIGSTMT %<RSUBR-ENTRY '[:PE_MODULE :PE_SIGSTMT #DECL ("VALUE" <VECTOR 
<VECTOR UVECTOR FIX FIX FIX> ANY> <VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> ANY 
FIX "OPTIONAL" ANY)] 3444>> 

<SET :PE_SIGSTMT$TYPE R$2091$2$6> 

<SET PROCLIST <CONS :PE_HANDLERLIST .PROCLIST>> 

<SETG :PE_HANDLERLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_HANDLERLIST #DECL ("VALUE" 
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY
)] 3500>> 

<SET :PE_HANDLERLIST$TYPE (:ARRAY R$2091$3$3)> 

<SET PROCLIST <CONS :PE_HANDLER .PROCLIST>> 

<SETG :PE_HANDLER %<RSUBR-ENTRY '[:PE_MODULE :PE_HANDLER #DECL ("VALUE" <VECTOR 
<VECTOR UVECTOR FIX FIX FIX> ANY ANY> <VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY 
ANY> ANY FIX "OPTIONAL" ANY)] 3580>> 

<SET :PE_HANDLER$TYPE R$2091$3$3> 

<SET R$2091$2$0 '(:RECORD (:ARRAY :IDN) R$2091$2$1)> 

<SET R$2091$2$1 '(:RECORD (:ARRAY :EXPR) :EXPR)> 

<SET R$2091$2$2 '(:RECORD :EXPR :STMT)> 

<SET R$2091$2$3 '(:RECORD :STMT (:ARRAY O$2091$2$2))> 

<SET R$2091$2$4 '(:RECORD :EXPR :EXPR)> 

<SET R$2091$2$5 '(:RECORD :STMT (:ARRAY :NAME))> 

<SET R$2091$2$6 '(:RECORD (:ARRAY :EXPR) :NAME)> 

<SET R$2091$2$7 '(:RECORD (:ARRAY :IDN) :TYPESPEC)> 

<SET R$2091$3$0 '(:RECORD :STMT :STMT :EXPR)> 

<SET R$2091$3$1 '(:RECORD (:ARRAY R$2091$2$3) :EXPR O$2091$2$0)> 

<SET R$2091$3$2 '(:RECORD (:ARRAY R$2091$2$5) O$2091$2$0 :IDN)> 

<SET R$2091$3$3 '(:RECORD (:ARRAY R$2091$2$7) :NAME :STMT)> 

<SET R$2091$7$0 '(:RECORD :EXPR O$2091$2$1 O$2091$2$1 O$2091$2$1 :STMT :TYPESPEC
:IDN)> 

<SET O$2091$2$0 '(:ONEOF :NULL :STMT)> 

<SET O$2091$2$1 '(:ONEOF :EXPR :NULL)> 

<SET O$2091$2$2 '(:ONEOF :EXPR R$2091$2$4)> 

"Pass 2 for ED2% done in 242.20059 seconds.
" 

"***** CLU COMPILER ***** SUNDAY, 10 AUG 1975 17:10 EDT *****" 

<SET REASONABLE T> 

<SET GLUE T> 

<OR <BOUND? PROCLIST> <SET PROCLIST ()>> 

<SET PROCLIST <CONS :PE_EXPRLIST .PROCLIST>> 

<SETG :PE_EXPRLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_EXPRLIST #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)
] 3654>> 

<SET :PE_EXPRLIST$TYPE (:ARRAY :EXPR)> 

<SET PROCLIST <CONS :PE_MEXPR .PROCLIST>> 

<SETG :PE_MEXPR %<RSUBR-ENTRY '[:PE_MODULE :PE_MEXPR #DECL ("VALUE" <LIST FIX 
ANY> <LIST FIX ANY> ANY FIX "OPTIONAL" ANY)] 3734>> 

<SET :PE_MEXPR$TYPE O$2092$2$0> 

<SET PROCLIST <CONS :PE_EXPR .PROCLIST>> 

<SETG :PE_EXPR %<RSUBR-ENTRY '[:PE_MODULE :PE_EXPR #DECL ("VALUE" ANY ANY ANY 
FIX "OPTIONAL" ANY)] 3832>> 

<SET :PE_EXPR$TYPE :EXPR> 

<SET PROCLIST <CONS :PE_RECCON .PROCLIST>> 

<SETG :PE_RECCON %<RSUBR-ENTRY '[:PE_MODULE :PE_RECCON #DECL ("VALUE" <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)] 4101>
> 

<SET :PE_RECCON$TYPE (:ARRAY R$2092$2$0)> 

<SET PROCLIST <CONS :PE_FIELD .PROCLIST>> 

<SETG :PE_FIELD %<RSUBR-ENTRY '[:PE_MODULE :PE_FIELD #DECL ("VALUE" <VECTOR <
VECTOR UVECTOR FIX FIX FIX> ANY> <VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> ANY 
FIX "OPTIONAL" ANY)] 4181>> 

<SET :PE_FIELD$TYPE R$2092$2$0> 

<SET PROCLIST <CONS :PE_ARRCON .PROCLIST>> 

<SETG :PE_ARRCON %<RSUBR-ENTRY '[:PE_MODULE :PE_ARRCON #DECL ("VALUE" <VECTOR 
ANY <VECTOR UVECTOR FIX FIX FIX>> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> ANY 
FIX "OPTIONAL" ANY)] 4226>> 

<SET :PE_ARRCON$TYPE R$2092$2$1> 

<SET PROCLIST <CONS :PE_FILL .PROCLIST>> 

<SETG :PE_FILL %<RSUBR-ENTRY '[:PE_MODULE :PE_FILL #DECL ("VALUE" <VECTOR VECTOR
ANY> <VECTOR VECTOR ANY> ANY FIX "OPTIONAL" ANY)] 4282>> 

<SET :PE_FILL$TYPE R$2092$2$2> 

<SET PROCLIST <CONS :PE_CLUSTOP .PROCLIST>> 

<SETG :PE_CLUSTOP %<RSUBR-ENTRY '[:PE_MODULE :PE_CLUSTOP #DECL ("VALUE" <VECTOR 
ANY ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 4339>> 

<SET :PE_CLUSTOP$TYPE R$2092$2$4> 

<SET PROCLIST <CONS :PE_BINEXP .PROCLIST>> 

<SETG :PE_BINEXP %<RSUBR-ENTRY '[:PE_MODULE :PE_BINEXP #DECL ("VALUE" <VECTOR 
ANY ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 4384>> 

<SET :PE_BINEXP$TYPE R$2092$2$5> 

<SET PROCLIST <CONS :PE_CONDEXP .PROCLIST>> 

<SETG :PE_CONDEXP %<RSUBR-ENTRY '[:PE_MODULE :PE_CONDEXP #DECL ("VALUE" <VECTOR 
ANY ANY ANY> <VECTOR ANY ANY ANY> ANY FIX "OPTIONAL" ANY)] 4441>> 

<SET :PE_CONDEXP$TYPE R$2092$3$0> 

<SET PROCLIST <CONS :PE_INVOKE .PROCLIST>> 

<SETG :PE_INVOKE %<RSUBR-ENTRY '[:PE_MODULE :PE_INVOKE #DECL ("VALUE" <VECTOR <
VECTOR UVECTOR FIX FIX FIX> ANY> <VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> ANY 
FIX "OPTIONAL" ANY)] 4510>> 

<SET :PE_INVOKE$TYPE R$2092$2$6> 

<SET PROCLIST <CONS :PE_RECREF .PROCLIST>> 

<SETG :PE_RECREF %<RSUBR-ENTRY '[:PE_MODULE :PE_RECREF #DECL ("VALUE" <VECTOR 
ANY ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 4566>> 

<SET :PE_RECREF$TYPE R$2092$2$7> 

<SET PROCLIST <CONS :PE_CASTE .PROCLIST>> 

<SETG :PE_CASTE %<RSUBR-ENTRY '[:PE_MODULE :PE_CASTE #DECL ("VALUE" <VECTOR ANY 
ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 4611>> 

<SET :PE_CASTE$TYPE R$2092$2$8> 

<SET PROCLIST <CONS :PE_ARRAYREF .PROCLIST>> 

<SETG :PE_ARRAYREF %<RSUBR-ENTRY '[:PE_MODULE :PE_ARRAYREF #DECL ("VALUE" ANY <
VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 4668>> 

<SET :PE_ARRAYREF$TYPE :EXPR> 

<SET PROCLIST <CONS :PE_IDNLIST .PROCLIST>> 

<SETG :PE_IDNLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_IDNLIST #DECL ("VALUE" <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)] 4842>
> 

<SET :PE_IDNLIST$TYPE (:ARRAY :IDN)> 

<SET R$2092$2$0 '(:RECORD (:ARRAY :NAME) :EXPR)> 

<SET R$2092$2$1 '(:RECORD :EXPR (:ARRAY :EXPR))> 

<SET R$2092$2$2 '(:RECORD R$2092$2$3 :EXPR)> 

<SET R$2092$2$3 '(:RECORD :EXPR :EXPR)> 

<SET R$2092$2$4 '(:RECORD :NAME :TYPESPEC)> 

<SET R$2092$2$5 '(:RECORD :EXPR :EXPR)> 

<SET R$2092$2$6 '(:RECORD (:ARRAY :EXPR) :EXPR)> 

<SET R$2092$2$7 '(:RECORD :EXPR :NAME)> 

<SET R$2092$2$8 '(:RECORD :TYPESPEC :EXPR)> 

<SET R$2092$3$0 '(:RECORD :EXPR :EXPR :EXPR)> 

<SET O$2092$2$0 '(:ONEOF :EXPR :NULL)> 

"Pass 2 for ED3% done in 178.20145 seconds.
" 

"***** CLU COMPILER 2.5 ***** SATURDAY, 24 JAN 1976 15:38 EST *****" 

<OR <BOUND? PROCLIST> <SET PROCLIST ()>> 

<SET PROCLIST <CONS :PE_DECL .PROCLIST>> 

<SETG :PE_DECL %<RSUBR-ENTRY '[:PE_MODULE :PE_DECL #DECL ("VALUE" ANY ANY ANY 
FIX "OPTIONAL" ANY)] 4920>> 

<SETG :PE_DECL$TYPE :DECL> 

<SET PROCLIST <CONS :PE_NORMDECL .PROCLIST>> 

<SETG :PE_NORMDECL %<RSUBR-ENTRY '[:PE_MODULE :PE_NORMDECL #DECL ("VALUE" <
VECTOR <LIST FIX ANY> <VECTOR UVECTOR FIX FIX FIX> ANY> <VECTOR <LIST FIX ANY> <
VECTOR UVECTOR FIX FIX FIX> ANY> ANY FIX "OPTIONAL" ANY)] 5047>> 

<SETG :PE_NORMDECL$TYPE R$2978$3$0> 

<SET PROCLIST <CONS :PE_EXCEPTDECL .PROCLIST>> 

<SETG :PE_EXCEPTDECL %<RSUBR-ENTRY '[:PE_MODULE :PE_EXCEPTDECL #DECL ("VALUE" <
VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX
>> ANY FIX "OPTIONAL" ANY)] 5114>> 

<SETG :PE_EXCEPTDECL$TYPE R$2978$2$0> 

<SET PROCLIST <CONS :PE_DECLLIST .PROCLIST>> 

<SETG :PE_DECLLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_DECLLIST #DECL ("VALUE" ATOM <
VECTOR UVECTOR FIX FIX FIX> ANY ANY FIX "OPTIONAL" ANY)] 5171>> 

<SET PROCLIST <CONS :PE_TYPELIST .PROCLIST>> 

<SETG :PE_TYPELIST %<RSUBR-ENTRY '[:PE_MODULE :PE_TYPELIST #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)
] 5273>> 

<SETG :PE_TYPELIST$TYPE (:ARRAY :TYPESPEC)> 

<SET PROCLIST <CONS :PE_TYPESPEC .PROCLIST>> 

<SETG :PE_TYPESPEC %<RSUBR-ENTRY '[:PE_MODULE :PE_TYPESPEC #DECL ("VALUE" ANY 
ANY ANY FIX "OPTIONAL" ANY)] 5353>> 

<SETG :PE_TYPESPEC$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :PE_PROCTYPE .PROCLIST>> 

<SETG :PE_PROCTYPE %<RSUBR-ENTRY '[:PE_MODULE :PE_PROCTYPE #DECL ("VALUE" <
VECTOR <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR
FIX FIX FIX>> <VECTOR <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> 
<VECTOR UVECTOR FIX FIX FIX>> ANY FIX "OPTIONAL" ANY)] 5727>> 

<SETG :PE_PROCTYPE$TYPE R$2978$3$2> 

<SET PROCLIST <CONS :PE_ERRORLIST .PROCLIST>> 

<SETG :PE_ERRORLIST %<RSUBR-ENTRY '[:PE_MODULE :PE_ERRORLIST #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)
] 5793>> 

<SETG :PE_ERRORLIST$TYPE (:ARRAY R$2978$2$2)> 

<SET PROCLIST <CONS :PE_ERRORSPEC .PROCLIST>> 

<SETG :PE_ERRORSPEC %<RSUBR-ENTRY '[:PE_MODULE :PE_ERRORSPEC #DECL ("VALUE" <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> <VECTOR <VECTOR UVECTOR FIX FIX FIX> 
ANY> ANY FIX "OPTIONAL" ANY)] 5873>> 

<SETG :PE_ERRORSPEC$TYPE R$2978$2$2> 

<SET PROCLIST <CONS :PE_RECORDTYPE .PROCLIST>> 

<SETG :PE_RECORDTYPE %<RSUBR-ENTRY '[:PE_MODULE :PE_RECORDTYPE #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)
] 5917>> 

<SETG :PE_RECORDTYPE$TYPE (:ARRAY R$2978$2$3)> 

<SET PROCLIST <CONS :PE_FIELDSPEC .PROCLIST>> 

<SETG :PE_FIELDSPEC %<RSUBR-ENTRY '[:PE_MODULE :PE_FIELDSPEC #DECL ("VALUE" <
VECTOR ANY ANY> <VECTOR ANY ANY> ANY FIX "OPTIONAL" ANY)] 5997>> 

<SETG :PE_FIELDSPEC$TYPE R$2978$2$4> 

<SET PROCLIST <CONS :PE_ATYPE .PROCLIST>> 

<SETG :PE_ATYPE %<RSUBR-ENTRY '[:PE_MODULE :PE_ATYPE #DECL ("VALUE" ANY <VECTOR 
<VECTOR UVECTOR FIX FIX FIX> ANY> ANY FIX "OPTIONAL" ANY)] 6042>> 

<SETG :PE_ATYPE$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :PE_CKC .PROCLIST>> 

<SETG :PE_CKC %<RSUBR-ENTRY '[:PE_MODULE :PE_CKC #DECL ("VALUE" ANY ANY ANY FIX 
"OPTIONAL" ANY)] 6157>> 

<SETG :PE_CKC$TYPE :EXPR> 

<SET PROCLIST <CONS :PE_CKC_LIST .PROCLIST>> 

<SETG :PE_CKC_LIST %<RSUBR-ENTRY '[:PE_MODULE :PE_CKC_LIST #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> ANY FIX "OPTIONAL" ANY)
] 6349>> 

<SETG :PE_CKC_LIST$TYPE (:ARRAY :EXPR)> 

<SETG R$2978$2$0 '(:RECORD :DECL (:ARRAY R$2978$3$1))> 

<SETG R$2978$2$1 '(:RECORD (:ARRAY :IDN) :TYPESPEC)> 

<SETG R$2978$2$2 '(:RECORD (:ARRAY :TYPESPEC) :NAME)> 

<SETG R$2978$2$3 '(:RECORD (:ARRAY :NAME) :TYPESPEC)> 

<SETG R$2978$2$4 '(:RECORD :NAME :TYPESPEC)> 

<SETG R$2978$3$0 '(:RECORD O$2978$2$0 (:ARRAY :IDN) :TYPESPEC)> 

<SETG R$2978$3$1 '(:RECORD (:ARRAY R$2978$2$1) :NAME :STMT)> 

<SETG R$2978$3$2 '(:RECORD (:ARRAY :TYPESPEC) (:ARRAY :TYPESPEC) (:ARRAY 
R$2978$2$2))> 

<SETG O$2978$2$0 '(:ONEOF :EXPR :NULL)> 

"Pass 2 for ED4 done in 85.571264 seconds." 

"***** CLU COMPILER ***** MONDAY, 25 AUG 1975 16:11 EDT *****" 

<SET REASONABLE T> 

<SET GLUE T> 

<OR <BOUND? PROCLIST> <SET PROCLIST ()>> 

<SET PROCLIST <CONS :ENV$CREATE .PROCLIST>> 

<SETG :ENV$CREATE %<RSUBR-ENTRY '[:PE_MODULE :ENV$CREATE #DECL ("VALUE" ANY 
"OPTIONAL" ANY)] 6429>> 

<SET :ENV$CREATE$TYPE :ENV> 

<SET :ENV$CREATE ,:ENV$CREATE> 

<PUTPROP :ENV CREATE ,:ENV$CREATE> 

<SET PROCLIST <CONS :ENV$ENTER_MODULE .PROCLIST>> 

<SETG :ENV$ENTER_MODULE %<RSUBR-ENTRY '[:PE_MODULE :ENV$ENTER_MODULE #DECL (
"VALUE" ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 
6524>> 

<SET :ENV$ENTER_MODULE ,:ENV$ENTER_MODULE> 

<PUTPROP :ENV ENTER_MODULE ,:ENV$ENTER_MODULE> 

<SET PROCLIST <CONS :ENV$LEAVE_MODULE .PROCLIST>> 

<SETG :ENV$LEAVE_MODULE %<RSUBR-ENTRY '[:PE_MODULE :ENV$LEAVE_MODULE #DECL (
"VALUE" ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 
6586>> 

<SET :ENV$LEAVE_MODULE ,:ENV$LEAVE_MODULE> 

<PUTPROP :ENV LEAVE_MODULE ,:ENV$LEAVE_MODULE> 

<SET PROCLIST <CONS :ENV$NEW_LEVEL .PROCLIST>> 

<SETG :ENV$NEW_LEVEL %<RSUBR-ENTRY '[:PE_MODULE :ENV$NEW_LEVEL #DECL ("VALUE" 
ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 6716>> 

<SET :ENV$NEW_LEVEL ,:ENV$NEW_LEVEL> 

<PUTPROP :ENV NEW_LEVEL ,:ENV$NEW_LEVEL> 

<SET PROCLIST <CONS :ENV$POP_LEVEL .PROCLIST>> 

<SETG :ENV$POP_LEVEL %<RSUBR-ENTRY '[:PE_MODULE :ENV$POP_LEVEL #DECL ("VALUE" 
ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 6763>> 

<SET :ENV$POP_LEVEL ,:ENV$POP_LEVEL> 

<PUTPROP :ENV POP_LEVEL ,:ENV$POP_LEVEL> 

<SET PROCLIST <CONS :ENV$ADD_EQ .PROCLIST>> 

<SETG :ENV$ADD_EQ %<RSUBR-ENTRY '[:PE_MODULE :ENV$ADD_EQ #DECL ("VALUE" ATOM ANY
<LIST FIX ANY> <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX 
<VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 
6845>> 

<SET :ENV$ADD_EQ ,:ENV$ADD_EQ> 

<PUTPROP :ENV ADD_EQ ,:ENV$ADD_EQ> 

<SET PROCLIST <CONS :ENV$ADD_DECL .PROCLIST>> 

<SETG :ENV$ADD_DECL %<RSUBR-ENTRY '[:PE_MODULE :ENV$ADD_DECL #DECL ("VALUE" ATOM
ANY FIX ANY <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 
7000>> 

<SET :ENV$ADD_DECL ,:ENV$ADD_DECL> 

<PUTPROP :ENV ADD_DECL ,:ENV$ADD_DECL> 

<SET PROCLIST <CONS :ENV$MAP .PROCLIST>> 

<SETG :ENV$MAP %<RSUBR-ENTRY '[:PE_MODULE :ENV$MAP #DECL ("VALUE" <LIST FIX ANY>
ANY <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 7259>> 

<SET :ENV$MAP$TYPE O$2414$41$0> 

<SET :ENV$MAP ,:ENV$MAP> 

<PUTPROP :ENV MAP ,:ENV$MAP> 

<SET PROCLIST <CONS :ENV$GET_ABSTRACT_TYPE .PROCLIST>> 

<SETG :ENV$GET_ABSTRACT_TYPE %<RSUBR-ENTRY '[:PE_MODULE :ENV$GET_ABSTRACT_TYPE #
DECL ("VALUE" ANY <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> 
FIX <VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY
)] 7418>> 

<SET :ENV$GET_ABSTRACT_TYPE$TYPE :TYPESPEC> 

<SET :ENV$GET_ABSTRACT_TYPE ,:ENV$GET_ABSTRACT_TYPE> 

<PUTPROP :ENV GET_ABSTRACT_TYPE ,:ENV$GET_ABSTRACT_TYPE> 

<SET PROCLIST <CONS :ENV$SET_CONCRETE_TYPE .PROCLIST>> 

<SETG :ENV$SET_CONCRETE_TYPE %<RSUBR-ENTRY '[:PE_MODULE :ENV$SET_CONCRETE_TYPE #
DECL ("VALUE" ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> 
FIX <VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> ANY "OPTIONAL"
ANY)] 7450>> 

<SET :ENV$SET_CONCRETE_TYPE ,:ENV$SET_CONCRETE_TYPE> 

<PUTPROP :ENV SET_CONCRETE_TYPE ,:ENV$SET_CONCRETE_TYPE> 

<SET PROCLIST <CONS :ENV$GET_CONCRETE_TYPE .PROCLIST>> 

<SETG :ENV$GET_CONCRETE_TYPE %<RSUBR-ENTRY '[:PE_MODULE :ENV$GET_CONCRETE_TYPE #
DECL ("VALUE" ANY <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> 
FIX <VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY
)] 7486>> 

<SET :ENV$GET_CONCRETE_TYPE$TYPE :TYPESPEC> 

<SET :ENV$GET_CONCRETE_TYPE ,:ENV$GET_CONCRETE_TYPE> 

<PUTPROP :ENV GET_CONCRETE_TYPE ,:ENV$GET_CONCRETE_TYPE> 

<SET PROCLIST <CONS :ENV$MAP_IDN .PROCLIST>> 

<SETG :ENV$MAP_IDN %<RSUBR-ENTRY '[:PE_MODULE :ENV$MAP_IDN #DECL ("VALUE" ANY 
ANY ANY "OPTIONAL" ANY)] 7518>> 

<SET :ENV$MAP_IDN$TYPE :IDN> 

<SET :ENV$MAP_IDN ,:ENV$MAP_IDN> 

<PUTPROP :ENV MAP_IDN ,:ENV$MAP_IDN> 

<SET PROCLIST <CONS :ENV$SET_LINE .PROCLIST>> 

<SETG :ENV$SET_LINE %<RSUBR-ENTRY '[:PE_MODULE :ENV$SET_LINE #DECL ("VALUE" ATOM
<VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR
FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> FIX "OPTIONAL" ANY)] 7597>> 

<SET :ENV$SET_LINE ,:ENV$SET_LINE> 

<PUTPROP :ENV SET_LINE ,:ENV$SET_LINE> 

<SET PROCLIST <CONS :ENV$GET_LINE .PROCLIST>> 

<SETG :ENV$GET_LINE %<RSUBR-ENTRY '[:PE_MODULE :ENV$GET_LINE #DECL ("VALUE" FIX 
<VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR
FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 7631>> 

<SET :ENV$GET_LINE$TYPE :INT> 

<SET :ENV$GET_LINE ,:ENV$GET_LINE> 

<PUTPROP :ENV GET_LINE ,:ENV$GET_LINE> 

<SET PROCLIST <CONS :ENV$SET_SIGS_FOM .PROCLIST>> 

<SETG :ENV$SET_SIGS_FOM %<RSUBR-ENTRY '[:PE_MODULE :ENV$SET_SIGS_FOM #DECL (
"VALUE" ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 
7663>> 

<SET :ENV$SET_SIGS_FOM ,:ENV$SET_SIGS_FOM> 

<PUTPROP :ENV SET_SIGS_FOM ,:ENV$SET_SIGS_FOM> 

<SET PROCLIST <CONS :ENV$GET_SIGS_FOM .PROCLIST>> 

<SETG :ENV$GET_SIGS_FOM %<RSUBR-ENTRY '[:PE_MODULE :ENV$GET_SIGS_FOM #DECL (
"VALUE" <OR ATOM FALSE> <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> 
"OPTIONAL" ANY)] 7699>> 

<SET :ENV$GET_SIGS_FOM$TYPE :BOOL> 

<SET :ENV$GET_SIGS_FOM ,:ENV$GET_SIGS_FOM> 

<PUTPROP :ENV GET_SIGS_FOM ,:ENV$GET_SIGS_FOM> 

<SET PROCLIST <CONS :ENV$SET_CATCHES_FOM .PROCLIST>> 

<SETG :ENV$SET_CATCHES_FOM %<RSUBR-ENTRY '[:PE_MODULE :ENV$SET_CATCHES_FOM #DECL
("VALUE" ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 
7731>> 

<SET :ENV$SET_CATCHES_FOM ,:ENV$SET_CATCHES_FOM> 

<PUTPROP :ENV SET_CATCHES_FOM ,:ENV$SET_CATCHES_FOM> 

<SET PROCLIST <CONS :ENV$GET_CATCHES_FOM .PROCLIST>> 

<SETG :ENV$GET_CATCHES_FOM %<RSUBR-ENTRY '[:PE_MODULE :ENV$GET_CATCHES_FOM #DECL
("VALUE" <OR ATOM FALSE> <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> 
"OPTIONAL" ANY)] 7767>> 

<SET :ENV$GET_CATCHES_FOM$TYPE :BOOL> 

<SET :ENV$GET_CATCHES_FOM ,:ENV$GET_CATCHES_FOM> 

<PUTPROP :ENV GET_CATCHES_FOM ,:ENV$GET_CATCHES_FOM> 

<SET PROCLIST <CONS :ENV$PRINT .PROCLIST>> 

<SETG :ENV$PRINT %<RSUBR-ENTRY '[:PE_MODULE :ENV$PRINT #DECL ("VALUE" ATOM <
VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR 
FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 7799>> 

<SET :ENV$PRINT ,:ENV$PRINT> 

<PUTPROP :ENV PRINT ,:ENV$PRINT> 

<SET PROCLIST <CONS :ENV$PRINT_EXTERNALS .PROCLIST>> 

<SETG :ENV$PRINT_EXTERNALS %<RSUBR-ENTRY '[:PE_MODULE :ENV$PRINT_EXTERNALS #DECL
("VALUE" ATOM <VECTOR ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> <OR ATOM FALSE>> "OPTIONAL" ANY)] 
7949>> 

<SET :ENV$PRINT_EXTERNALS ,:ENV$PRINT_EXTERNALS> 

<PUTPROP :ENV PRINT_EXTERNALS ,:ENV$PRINT_EXTERNALS> 

<SET PROCLIST <CONS :ENV$FIND .PROCLIST>> 

<SETG :ENV$FIND %<RSUBR-ENTRY '[:PE_MODULE :ENV$FIND #DECL ("VALUE" <VECTOR [2 <
OR ATOM FALSE>] ANY [2 <OR ATOM FALSE>] <LIST FIX ANY> <OR ATOM FALSE>> <VECTOR 
ANY <OR ATOM FALSE> ANY <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX
FIX> <OR ATOM FALSE> <OR ATOM FALSE>> ANY "OPTIONAL" ANY)] 8125>> 

<AND <ASSIGNED? GLUE> .GLUE <PUT ,:PE_MODULE GLUE ![336613652 9503110 2182615296
4563468288 17201890305 84213760 17600354326 18259919120 20 4379983873 4547743744
17180983296 18253612096 4580188162 332048 2099200 335546370 5452611584 537133072
1114180 20545 18337498179 -16034823936 1141130240 -34351349740 17180393540 
17213456384 5372911616 -33801568192 33570817 262160 1140850689 17453618176 
286263298 327680 -34342416128 84153413 279554 134218048 33555489 18253612292 
5441060928 2097152 1140851009 1360265217 4563927552 83886208 277155840 336613652
1048848 268439552 21743292672 1074791685 266496 20545 18337498112 16777344 
4563404036 5441060928 1074020356 5308481 4362158400 17055744 1314897 5368774720 
285212740 278528 1073742912 4563402832 17519935488 18320851072 21233696 
4296081424 4194400 21743543360 16383017044 67129344 -29674700800 1346454608 
71582660 18253738112 8329887808 17184129297 134348800 21743304736 402932736 
537395201 17214754820 131165 1284 5441060868 18255710208 335544832 5403590656 
1346454608 4195604 5462032385 17453618176 67293184 1346454608 4195392 1073745920
17196666960 4263936 328724 18522063874 134222080 4563468288 17196647425 
18253677632 352322833 5308421 4295299072 21743292672 1358955792 84934737 
256004352 -3182362624 67108884 25636635909 266249 80 17519935492 65536 268697601
17453618176 4294968320 4198400 1346454608 67109120 1048576 4294967552 1048576 
4299161620 4379983873 67109376 268697616 65536 268435472 65536 268505088 
336613652 16777220 16384 67174400 21543273728 1073742080 1048576 17246978369 
1360265217 4563927552 83886208 277155840 336613652 16777220 65600 21038353 
17179939072 -34326183856 8388872 21743272257 1360265217 17826048 67114240 
1074791685 266496 20545 18337498112 16777217 67109185 1360265232 4194304 
17179873296 5259588 21474853952 8598323220 2097218 5435818064 17519935492 65600 
21038353 17180917764 16384 269484037 1094995968 1145053192 1310722 4330560 
5259588 21475098624 4294967552 17179951365 4630515712 67120912 18253616144 
21764243473 4303364096 1342179328 4434493440 5385818432 268697601 4097 789595136
336613652 1118216 536872192 134221957 4294972432 21764243472 285216768 
4295233796 336855041 1140850688 5385818432 268960768 18253873153 17452565520 
18320724033 4563424320 339738948 21233684 17182244865 18253693952 5435823168 
353371172 4368335104 21558722625 2415919104 21543273728 71565824 -34359656448 
8590205252 328724 18522062848 268697601 17453618176 4294968320 4210688 
5385818432 268435520 262400 84153413 4194306 67109185 1360265232 262144 
1074790405 1094995968 17179873280 16777217 67109185 1360265232 262144 1077936148
4379983873 16400 5259588 21475098624 8589934848 17179951365 4630515968 4194817 
17826048 71311376 285216768 1145045058 524325 21474852880 150994944 336613652 
1118216 536872192 134285393 82181 4630515968 -34326182848 1140867072 4295311361 
67191104 17039936 20545 18337498112 33554433 1088 21038353 17180917760 
17179870209 328724 18522062916 1145053192 1310752 4194336 1108819968 1346454608 
4472864 2147488768 536904212 17180921936 18253873665 17826048 67113025 
4295238720 273747968 17519608068 4564406544 272696320 -3149922032 17195926545 
5434246145 17515413764 8658096387 -1072693248 1069551616 560 246272 4026928128 
15761411 -17154703360 5259588 21475098624 4294968320 16842752 21543273728 
71565824 -34359656448 8590205252 328724 18522062848 269484037 1094995968 
1145053192 1310722 4330560 5259588 21475098624 8594128916 4379983873 4294968320 
1077937216 1073745956 4379901954 22613131264 84153413 4194320 -34292612096 
17179952404 21815706688 8606716160 4294988273 4563402880 621742080 16107507536 
-30064771067 1094995968 1145053192 1310722 4330560 68423761 5368772615 
-8573095663 134740994 521211905 4362081296 21764243715 12905644032 475136 
5385818432 268439553 4563927552 84934784 18320851072 21233696 4313079040 
21038353 17179884612 17227055109 1094995968 17188275264 8598323220 17181970804 
328724 18522062849 284196867 -17158620128 251727888 858980416 8398642 
18255756808 9016967168 5385818432 268451841 2082751426 15729924 16139685633 
4572905602 4303167300 33587529825 71303441 17895425 4348444885 4303359180 
-17163091936 2630209536 328724 18522062849 285233424 67126272 17180152896 
5641585152 4026860336 4294975497 -13941850112 21038353 17179873280 5385818432 
212992 5385818432 1048596 4379983873 4210692 17184063504 22612557824 84153413 
53248 1346454608 1048581 1094995968 3436183557 1094995968 67110148 5441060876 
-13690206972 5441060864 17180197908 18522062848 33840758912 8589955328 
2151956512 2147488832 536908033 -34223320763 -12884901808 17519935492 
18000938052 537395201 18253742353 134348800 21743304706 18324916224 71172192 
-28905576640 20545 18337498180 17186161152 -34358620160 -34359655424 8606712388 
22565638212 46923792 0 5436096636 17180131330 4294971391 524302 786444 524458 
786600 524669 786811 524874 787016 787095 1049237 787175 1049317 787230 1049372 
787310 1049452 787425 1049567 525337 787479 525440 787582 525537 787679 525705 
787847 525913 788055 263849 525991 526044 788186 788227 1050369 788323 1050465 
788635 1050777 788692 1050834 788749 1050891 788852 1050994 788984 1051126 
789053 1051195 789120 1051262 789200 1051342 789256 1051398 789336 1051478 
789441 1051583 789498 1051640 789563 1051705 789643 1051785 789688 1051830 
789753 1051895 789833 1051975 789890 1052032 789946 1052088 790026 1052168 
790100 1052242 790180 1052322 790278 1052420 790547 1052689 790627 1052769 
790672 1052814 790728 1052870 790785 1052927 790830 1052972 790887 1053029 
790956 1053098 791012 1053154 791057 1053199 791114 1053256 791288 1053430 
791366 1053508 791493 1053635 791560 1053702 1053761 1315903 791719 1053861 
792173 1054315 792239 1054381 792319 1054461 792363 1054505 792443 1054585 
792488 1054630 792603 1054745 792795 1054937 6444 268586 268682 530824 268744 
530886 268874 531016 268921 531063 793291 1055433 1055590 1317732 531561 793703 
269576 531718 531752 793894 269644 531786 531820 793962 531899 794041 269789 
531931 269821 531963 269857 531999 269889 532031 269925 532067 269957 532099 
270107 532249 532427 794569!]>> 

<SET :ENV$FIND$TYPE R$2414$7$0> 

<SET :ENV$FIND ,:ENV$FIND> 

<PUTPROP :ENV FIND ,:ENV$FIND> 

<SET :ENV (:ENV)> 

<SET R$2414$2$0 '(:RECORD :EXPR :EXPR)> 

<SET R$2414$2$1 '(:RECORD :EXPR (:ARRAY :EXPR))> 

<SET R$2414$2$2 '(:RECORD :TYPESPEC :EXPR)> 

<SET R$2414$2$3 '(:RECORD R$2414$2$4 :EXPR)> 

<SET R$2414$2$4 '(:RECORD :EXPR :EXPR)> 

<SET R$2414$2$5 '(:RECORD (:ARRAY :EXPR) :EXPR)> 

<SET R$2414$2$6 '(:RECORD :NAME :TYPESPEC)> 

<SET R$2414$2$7 '(:RECORD (:ARRAY :NAME) :EXPR)> 

<SET R$2414$2$8 '(:RECORD :EXPR :NAME)> 

<SET R$2414$3$0 '(:RECORD :EXPR :EXPR :EXPR)> 

<SET R$2414$7$0 '(:RECORD :BOOL :BOOL :IDN :BOOL :BOOL O$2414$2$0 :BOOL)> 

<SET O$2414$2$0 '(:ONEOF O$2414$41$0 :IDN)> 

<SET O$2414$41$0 '(:ONEOF R$2414$2$0 R$2414$2$0 R$2414$2$0 R$2414$2$1 R$2414$2$0
:BOOL R$2414$2$2 R$2414$2$0 :CHAR R$2414$3$0 R$2414$2$0 :EXPR R$2414$2$0 
R$2414$2$3 R$2414$2$0 R$2414$2$0 :IDN :INT R$2414$2$5 R$2414$2$0 R$2414$2$0 
:EXPR R$2414$2$0 R$2414$2$0 R$2414$2$0 :NULL :EXPR :INT R$2414$2$6 R$2414$2$0 
R$2414$2$0 (:ARRAY R$2414$2$7) :INT :INT R$2414$2$8 :STRINGID R$2414$2$0 
:TYPESPEC :EXPR :DU R$2414$2$2)> 

"Pass 2 for ENV done in 966.60839 seconds.
" 
