'<PCODE "CLUXCG">

"***** CLU COMPILER 2.14 ***** 2/21/77 14:30 *****" 

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

<SET PROCLIST <CONS :CG_MODULE .PROCLIST>> 

<SETG :CG_MODULE  %<RSUBR!- '[ %<PCODE!- "CLUXCG" 0> :CG_MODULE #DECL ("VALUE" 
ATOM ANY <LIST FIX ANY> "OPTIONAL" ANY) SIGNAL STRING$CN INT$DIV CHAR$I2C 
:IDN$UNMARK ARRAY$RETRACTH :IDN$MARK :IDN$EQUAL ARRAY$RETRACTL ARRAY$FLUSH 
:ENV$GET_CONCRETE_TYPE :ENV$GET_ABSTRACT_TYPE :STMT$EMPTY :TYPESPEC$MAKE_UNKNOWN
 :TYPESPEC$MAKE_PARM :TYPESPEC$PRINT :RETURN-ERROR :TYPESPEC$MAKE_ATYPE 
:IDN$FAKE :NAME$U BOOL$OR :TYPESPEC$MAKE_BAD :TYPESPEC$GET_ARRAY 
:TYPESPEC$MAKE_PROC :TYPESPEC$NICEFY :TYPESPEC$U :TYPESPEC$IS_ATYPE :GT_REF 
:TYPESPEC$MAKE_TYPE :TYPESPEC$MAKE_STRING :TYPESPEC$MAKE_CHAR 
:TYPESPEC$MAKE_NULL :TYPESPEC$MAKE_INT :TYPESPEC$MAKE_ARRAY :TYPESPEC$MAKE_BOOL 
:EXPR$GET_TYPE :IN_SYSTEM ARRAY$PREDICT STRING$SUBSTR :TYPESPEC$GET_ATYPE 
:CONST$D :TYPESPEC$UPDATE :TYPESPEC$SIMILAR :TYPESPEC$GET_ONEOF 
:TYPESPEC$GET_RECORD :TYPESPEC$GET_DUTYPE :TYPESPEC$SET_TYPE :TYPESPEC$GET_TYPE 
:BPUTSUC :BPUTI :BPUTC :BPUTS :ERR1 STRING$REST INT$MOD :TYPESPEC$DWN 
ARRAY$EXTENDH :IDN$GET_STRING :STRINGID$VALUE :NAME$EQUAL :TYPESPEC$DN :EXPR$U 
:IDN$FAKE_VAR :IDN$IS_CHANGED :IDN$CLEAR_CHANGE :IDN$IS_MARKED ARRAY$BOTTOM 
:IDN$SET_CHANGE NEWARR :IDN$GET_TYPE :DU$GET_UNIQUE :NAME$D :EXPR$D :IDN$GET_LBL
 :IDN$SET_LBL :DECL$LINENO :DECL$D :STMT$LINENO :STMT$D ARRAY$STORE ARRAY$FILL 
:TYPESPEC$EQUAL ARRAY$SIZE :TYPESPEC$GET_PROC :IDN$GETSTRING ARRAY$FETCH 
ARRAY$LOW ARRAY$HIGH DONE "cluster " "$" T "retsulc " "" "," ";						"
 "proc" "$rtnc $none" "corp " "proc " ";				" 
"Bad statement to cg_stmt" "tbad" "$catch " "$uncatch " "(er)," "$except " 
"Oneup fed to cg_invoke" "Recget fed to cg_invoke" "Recput fed to cg_invoke" 
"massn [" "store" "put_" "Invalid left-hand-side of assignment" "$loop" "$iff" 
"$then $go " "$fi" "$pool" "$label " "$ift" "$then" "$else" "signal " 
"Number of return values does not match declaration." "$rtn rr" "$mrtn " "$for "
 "int_from_to_by" "int_from_by" "$rof " "$tagcase " "$tag [" "$tag []" 
"$etagcase " "caselcl" "$if" "$elf" "$test" "$test
$then
$else" "$test
$then
$elf" 
"equal" "lt" "gt" "bool$not" "xcall " "Identifier not a valid selector: " "add" 
"sub" "mul" "div" "power" "and" "or" "concat" "mod" "not" "minus" "fill" "get_" 
"fetch" "Illegal expression to cg_expr" "(er)" "Got an undec in cg_idn" "int$" 
"string$" "char$" "bool$" "proc$" "null$" "Bad typespec given to cg_clucall" 
"call [" ![!] "cons" "[" "]" "Oneof$make_* objects are not implemented" 
"Record$get_* objects are not implemented" 
"Record$put_* objects are not implemented" "pdesc " "typarg [" "typreg rr," 
"link " "(lr)" "args [" "assn rr" "tbool+" "true" "false" "tchar+" "tint+" 
"$null" "string " "$nulls" "$zero" "$one" "$two" "$true" "$false" "$nil" "$type"
 ";" "]
" "assn " "(er),rr
" "assn rr," "(er)
" "call " ".
" "icall " "args [rr]
" 
"cvtup rr
" "cvtdown rr
" "ttype(tint)" "ttype(tbool)" "ttype(tchar)" 
"ttype(tstr)" "ttype(tnull)" "ttype(tany)" "ttype(tbad)" "ttype" 
"Bad type to tg_type" "cpdesc " "edesc " "tdesc " "ptdesc " "record" "oneof" 
"sdesc " "Bad constant to tg_const" "traw" "rtdesc " "rtdesc [" 
"Illegal expression to tg_expr" "Bad identifier to tg_idn" 
"Illegal expression given to gt_expr" 
"Illegal procedure object given to gt_invoke" 
"Type not a procedure type: gt_call" "Tag " " undefined" not_array 
"Attempt to perform array fetch on non-array" "Bad record operation: " 
"Type of externally declared identifier unknown: " "
 gt_idn" "similar" 
"similar1" "equiv" "copy" "decode" "copy1" "encode" 
"Encode operation returns nothing" "size" "index" "indexs" "indexc" "rest" 
"substr" "ac2s" "append" "c2s" "s2ac" "cn" "i2c" "c2i" "odd" "create" "new" 
"predict" "fill_copy" "high" "low" "Unrecognized operation '" "' on type " 
"Bad const to GT_CONST" "c$" "s$" "v$" "l" "t$" "p$" 
"Parameter not found in id2pmtype!" "No type in curtype for " "0" "-" "." "\\" 
not_ascii :INT]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,:CG_MODULE PGLUE ![715827882 -22906492246 
-22906492246 -22906492246 -22906492246 -17179869185 -1 -1 -1 -1 -1 -1 -1 -1 -1 
-1 -67108864 0 0!]>> 


<SET PROCLIST <CONS :CG_CLUSTER .PROCLIST>> 

<SETG :CG_CLUSTER %<RSUBR-ENTRY '[:CG_MODULE :CG_CLUSTER #DECL ("VALUE" ATOM ANY
<VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX>> STRING "OPTIONAL" ANY)] 82>> 

<SET PROCLIST <CONS :CG_CLUPARMS .PROCLIST>> 

<SETG :CG_CLUPARMS %<RSUBR-ENTRY '[:CG_MODULE :CG_CLUPARMS #DECL ("VALUE" <LIST 
[2 STRING]> ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 353>> 

<SETG :CG_CLUPARMS$TYPE (:STRING :STRING)> 

<SET PROCLIST <CONS :CG_PROC .PROCLIST>> 

<SETG :CG_PROC %<RSUBR-ENTRY '[:CG_MODULE :CG_PROC #DECL ("VALUE" ATOM ANY <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX>> STRING <OR ATOM FALSE> 
"OPTIONAL" ANY)] 556>> 

<SET PROCLIST <CONS :CG_ARGSTUFF .PROCLIST>> 

<SETG :CG_ARGSTUFF %<RSUBR-ENTRY '[:CG_MODULE :CG_ARGSTUFF #DECL ("VALUE" <LIST 
[2 STRING]> ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <OR 
ATOM FALSE> "OPTIONAL" ANY)] 777>> 

<SETG :CG_ARGSTUFF$TYPE (:STRING :STRING)> 

<SET PROCLIST <CONS :CG_RTNTYPES .PROCLIST>> 

<SETG :CG_RTNTYPES %<RSUBR-ENTRY '[:CG_MODULE :CG_RTNTYPES #DECL ("VALUE" ATOM 
ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <OR ATOM FALSE> 
"OPTIONAL" ANY)] 997>> 

<SET PROCLIST <CONS :CG_STMT .PROCLIST>> 

<SETG :CG_STMT %<RSUBR-ENTRY '[:CG_MODULE :CG_STMT #DECL ("VALUE" ATOM ANY ANY 
"OPTIONAL" ANY)] 1112>> 

<SET PROCLIST <CONS :CG_EXCEPTSTMT .PROCLIST>> 

<SETG :CG_EXCEPTSTMT %<RSUBR-ENTRY '[:CG_MODULE :CG_EXCEPTSTMT #DECL ("VALUE" 
ATOM ANY <VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> "OPTIONAL" ANY)] 1342>> 

<SET PROCLIST <CONS :CG_BODY .PROCLIST>> 

<SETG :CG_BODY %<RSUBR-ENTRY '[:CG_MODULE :CG_BODY #DECL ("VALUE" ATOM ANY <
VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 1415>> 

<SET PROCLIST <CONS :CG_DECL .PROCLIST>> 

<SETG :CG_DECL %<RSUBR-ENTRY '[:CG_MODULE :CG_DECL #DECL ("VALUE" ATOM ANY ANY 
"OPTIONAL" ANY)] 1527>> 

<SET PROCLIST <CONS :CG_NORMDECL .PROCLIST>> 

<SETG :CG_NORMDECL %<RSUBR-ENTRY '[:CG_MODULE :CG_NORMDECL #DECL ("VALUE" ATOM 
ANY <VECTOR <LIST FIX ANY> <VECTOR UVECTOR FIX FIX FIX> ANY> "OPTIONAL" ANY)] 
1637>> 

<SET PROCLIST <CONS :CG_EXCEPTDECL .PROCLIST>> 

<SETG :CG_EXCEPTDECL %<RSUBR-ENTRY '[:CG_MODULE :CG_EXCEPTDECL #DECL ("VALUE" 
ATOM ANY <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> "OPTIONAL" ANY)] 1803>> 

<SET PROCLIST <CONS :CG_HANDLERLIST .PROCLIST>> 

<SETG :CG_HANDLERLIST %<RSUBR-ENTRY '[:CG_MODULE :CG_HANDLERLIST #DECL ("VALUE" 
ATOM ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 1876>> 

<SET PROCLIST <CONS :CG_VAR .PROCLIST>> 

<SETG :CG_VAR %<RSUBR-ENTRY '[:CG_MODULE :CG_VAR #DECL ("VALUE" STRING ANY ANY 
"OPTIONAL" ANY)] 2147>> 

<SETG :CG_VAR$TYPE :STRING> 

<SET PROCLIST <CONS :CG_PROC_LBL .PROCLIST>> 

<SETG :CG_PROC_LBL %<RSUBR-ENTRY '[:CG_MODULE :CG_PROC_LBL #DECL ("VALUE" STRING
ANY ANY "OPTIONAL" ANY)] 2191>> 

<SETG :CG_PROC_LBL$TYPE :STRING> 

"***** CLU COMPILER 2.14 ***** 3/18/77 10:00 *****" 

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

<SET PROCLIST <CONS :CG_INVOKE .PROCLIST>> 

<SETG :CG_INVOKE %<RSUBR-ENTRY '[:CG_MODULE :CG_INVOKE #DECL ("VALUE" ATOM ANY <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> "OPTIONAL" ANY)] 2244>> 

<SET PROCLIST <CONS :CG_MASSN .PROCLIST>> 

<SETG :CG_MASSN %<RSUBR-ENTRY '[:CG_MODULE :CG_MASSN #DECL ("VALUE" ATOM ANY <
VECTOR <VECTOR UVECTOR FIX FIX FIX> VECTOR> "OPTIONAL" ANY)] 2441>> 

<SET PROCLIST <CONS :CG_ASSN .PROCLIST>> 

<SETG :CG_ASSN %<RSUBR-ENTRY '[:CG_MODULE :CG_ASSN #DECL ("VALUE" ATOM ANY <
VECTOR ANY ANY> "OPTIONAL" ANY)] 2551>> 

<SET PROCLIST <CONS :CG_WHILEST .PROCLIST>> 

<SETG :CG_WHILEST %<RSUBR-ENTRY '[:CG_MODULE :CG_WHILEST #DECL ("VALUE" ATOM ANY
<VECTOR ANY ANY> "OPTIONAL" ANY)] 2726>> 

<SET PROCLIST <CONS :CG_REPEATST .PROCLIST>> 

<SETG :CG_REPEATST %<RSUBR-ENTRY '[:CG_MODULE :CG_REPEATST #DECL ("VALUE" ATOM 
ANY <VECTOR ANY ANY> "OPTIONAL" ANY)] 2804>> 

<SET PROCLIST <CONS :CG_IFST .PROCLIST>> 

<SETG :CG_IFST %<RSUBR-ENTRY '[:CG_MODULE :CG_IFST #DECL ("VALUE" ATOM ANY <
VECTOR ANY ANY ANY> "OPTIONAL" ANY)] 2882>> 

<SET PROCLIST <CONS :CG_SIGSTMT .PROCLIST>> 

<SETG :CG_SIGSTMT %<RSUBR-ENTRY '[:CG_MODULE :CG_SIGSTMT #DECL ("VALUE" ATOM ANY
<VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> "OPTIONAL" ANY)] 2955>> 

<SET PROCLIST <CONS :CG_RTN .PROCLIST>> 

<SETG :CG_RTN %<RSUBR-ENTRY '[:CG_MODULE :CG_RTN #DECL ("VALUE" ATOM ANY <VECTOR
UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 3032>> 

<SET PROCLIST <CONS :CG_FORST .PROCLIST>> 

<SETG :CG_FORST %<RSUBR-ENTRY '[:CG_MODULE :CG_FORST #DECL ("VALUE" ATOM ANY <
VECTOR ANY <LIST FIX ANY> <LIST FIX ANY> <LIST FIX ANY> ANY ANY ANY> <OR ATOM 
FALSE> "OPTIONAL" ANY)] 3223>> 

<SET PROCLIST <CONS :CG_TAGST .PROCLIST>> 

<SETG :CG_TAGST %<RSUBR-ENTRY '[:CG_MODULE :CG_TAGST #DECL ("VALUE" ATOM ANY <
VECTOR <VECTOR UVECTOR FIX FIX FIX> <LIST FIX ANY> ANY> "OPTIONAL" ANY)] 3493>> 

<SET PROCLIST <CONS :CG_CASEST .PROCLIST>> 

<SETG :CG_CASEST %<RSUBR-ENTRY '[:CG_MODULE :CG_CASEST #DECL ("VALUE" ATOM ANY <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY <LIST FIX ANY>> "OPTIONAL" ANY)] 3791>> 

<SET PROCLIST <CONS :CG_TRIGLIST .PROCLIST>> 

<SETG :CG_TRIGLIST %<RSUBR-ENTRY '[:CG_MODULE :CG_TRIGLIST #DECL ("VALUE" ATOM 
ANY <VECTOR UVECTOR FIX FIX FIX> ANY "OPTIONAL" ANY)] 4027>> 

<SET PROCLIST <CONS :CG_APPLY .PROCLIST>> 

<SETG :CG_APPLY %<RSUBR-ENTRY '[:CG_MODULE :CG_APPLY #DECL ("VALUE" ATOM ANY ANY
<VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 4254>> 

<SET PROCLIST <CONS :CG_SEL .PROCLIST>> 

<SETG :CG_SEL %<RSUBR-ENTRY '[:CG_MODULE :CG_SEL #DECL ("VALUE" FIX ANY ANY ANY 
"OPTIONAL" ANY)] 4330>> 

<SETG :CG_SEL$TYPE :INT> 

"***** CLU COMPILER 2.14 ***** 3/24/77 09:55 *****" 

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

<SET PROCLIST <CONS :CG_EXPR .PROCLIST>> 

<SETG :CG_EXPR %<RSUBR-ENTRY '[:CG_MODULE :CG_EXPR #DECL ("VALUE" ATOM ANY ANY <
OR ATOM FALSE> "OPTIONAL" ANY)] 4468>> 

<SET PROCLIST <CONS :CG_BINEXP .PROCLIST>> 

<SETG :CG_BINEXP %<RSUBR-ENTRY '[:CG_MODULE :CG_BINEXP #DECL ("VALUE" ATOM ANY 
STRING <VECTOR ANY ANY> "OPTIONAL" ANY)] 5014>> 

<SET PROCLIST <CONS :CG_EXPRLIST .PROCLIST>> 

<SETG :CG_EXPRLIST %<RSUBR-ENTRY '[:CG_MODULE :CG_EXPRLIST #DECL ("VALUE" ATOM 
ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 5084>> 

<SET PROCLIST <CONS :CG_NOTBIN .PROCLIST>> 

<SETG :CG_NOTBIN %<RSUBR-ENTRY '[:CG_MODULE :CG_NOTBIN #DECL ("VALUE" ATOM ANY 
STRING <VECTOR ANY ANY> "OPTIONAL" ANY)] 5156>> 

<SET PROCLIST <CONS :CG_CONDEXP .PROCLIST>> 

<SETG :CG_CONDEXP %<RSUBR-ENTRY '[:CG_MODULE :CG_CONDEXP #DECL ("VALUE" ATOM ANY
<VECTOR ANY ANY ANY> "OPTIONAL" ANY)] 5201>> 

<SET PROCLIST <CONS :CG_IDN .PROCLIST>> 

<SETG :CG_IDN %<RSUBR-ENTRY '[:CG_MODULE :CG_IDN #DECL ("VALUE" ATOM ANY ANY <OR
ATOM FALSE> "OPTIONAL" ANY)] 5268>> 

<SET PROCLIST <CONS :CG_CLUCALL .PROCLIST>> 

<SETG :CG_CLUCALL %<RSUBR-ENTRY '[:CG_MODULE :CG_CLUCALL #DECL ("VALUE" ATOM ANY
ANY STRING <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 5381>> 

<SET PROCLIST <CONS :CG_CALL .PROCLIST>> 

<SETG :CG_CALL %<RSUBR-ENTRY '[:CG_MODULE :CG_CALL #DECL ("VALUE" ATOM ANY 
STRING <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 5618>> 

<SET PROCLIST <CONS :CG_PTCALL .PROCLIST>> 

<SETG :CG_PTCALL %<RSUBR-ENTRY '[:CG_MODULE :CG_PTCALL #DECL ("VALUE" ATOM ANY 
STRING <VECTOR UVECTOR FIX FIX FIX> ANY "OPTIONAL" ANY)] 5662>> 

<SET PROCLIST <CONS :CG_PT_CALL .PROCLIST>> 

<SETG :CG_PT_CALL %<RSUBR-ENTRY '[:CG_MODULE :CG_PT_CALL #DECL ("VALUE" ATOM ANY
STRING FIX ANY "OPTIONAL" ANY)] 5710>> 

<SET PROCLIST <CONS :CG_DU .PROCLIST>> 

<SETG :CG_DU %<RSUBR-ENTRY '[:CG_MODULE :CG_DU #DECL ("VALUE" ATOM ANY ANY <OR 
ATOM FALSE> "OPTIONAL" ANY)] 5766>> 

<SET PROCLIST <CONS :CG_RECCON .PROCLIST>> 

<SETG :CG_RECCON %<RSUBR-ENTRY '[:CG_MODULE :CG_RECCON #DECL ("VALUE" ATOM ANY <
VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 5810>> 

<SET PROCLIST <CONS :CG_ARRCON .PROCLIST>> 

<SETG :CG_ARRCON %<RSUBR-ENTRY '[:CG_MODULE :CG_ARRCON #DECL ("VALUE" ATOM ANY <
VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> "OPTIONAL" ANY)] 6127>> 

<SET PROCLIST <CONS :CG_OP .PROCLIST>> 

<SETG :CG_OP %<RSUBR-ENTRY '[:CG_MODULE :CG_OP #DECL ("VALUE" ATOM ANY <VECTOR 
ANY ANY> <OR ATOM FALSE> "OPTIONAL" ANY)] 6197>> 

<SET PROCLIST <CONS :CG_ONEUP .PROCLIST>> 

<SETG :CG_ONEUP %<RSUBR-ENTRY '[:CG_MODULE :CG_ONEUP #DECL ("VALUE" ATOM ANY FIX
"OPTIONAL" ANY)] 6351>> 

<SET PROCLIST <CONS :CG_RECGET .PROCLIST>> 

<SETG :CG_RECGET %<RSUBR-ENTRY '[:CG_MODULE :CG_RECGET #DECL ("VALUE" ATOM ANY 
FIX "OPTIONAL" ANY)] 6387>> 

<SET PROCLIST <CONS :CG_RECPUT .PROCLIST>> 

<SETG :CG_RECPUT %<RSUBR-ENTRY '[:CG_MODULE :CG_RECPUT #DECL ("VALUE" ATOM ANY 
FIX "OPTIONAL" ANY)] 6423>> 

<SET PROCLIST <CONS :CG_PDESC .PROCLIST>> 

<SETG :CG_PDESC %<RSUBR-ENTRY '[:CG_MODULE :CG_PDESC #DECL ("VALUE" ATOM ANY 
STRING <OR ATOM FALSE> "OPTIONAL" ANY)] 6459>> 

<SET PROCLIST <CONS :CG_TDESC .PROCLIST>> 

<SETG :CG_TDESC %<RSUBR-ENTRY '[:CG_MODULE :CG_TDESC #DECL ("VALUE" ATOM ANY 
STRING <OR ATOM FALSE> "OPTIONAL" ANY)] 6515>> 

"***** CLU COMPILER 2.14 ***** 2/4/77 10:55 *****" 

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

<SET PROCLIST <CONS :CG_CONST .PROCLIST>> 

<SETG :CG_CONST %<RSUBR-ENTRY '[:CG_MODULE :CG_CONST #DECL ("VALUE" STRING ANY 
STRING "OPTIONAL" ANY)] 6566>> 

<SETG :CG_CONST$TYPE :STRING> 

<SET PROCLIST <CONS :CG_VALUE .PROCLIST>> 

<SETG :CG_VALUE %<RSUBR-ENTRY '[:CG_MODULE :CG_VALUE #DECL ("VALUE" ATOM STRING 
<OR ATOM FALSE> "OPTIONAL" ANY)] 6616>> 

<SET PROCLIST <CONS :CG_BOOLCON .PROCLIST>> 

<SETG :CG_BOOLCON %<RSUBR-ENTRY '[:CG_MODULE :CG_BOOLCON #DECL ("VALUE" STRING <
OR ATOM FALSE> "OPTIONAL" ANY)] 6667>> 

<SETG :CG_BOOLCON$TYPE :STRING> 

<SET PROCLIST <CONS :CG_CHARCON .PROCLIST>> 

<SETG :CG_CHARCON %<RSUBR-ENTRY '[:CG_MODULE :CG_CHARCON #DECL ("VALUE" STRING 
CHARACTER "OPTIONAL" ANY)] 6709>> 

<SETG :CG_CHARCON$TYPE :STRING> 

<SET PROCLIST <CONS :CG_STRINGCON .PROCLIST>> 

<SETG :CG_STRINGCON %<RSUBR-ENTRY '[:CG_MODULE :CG_STRINGCON #DECL ("VALUE" 
STRING STRING <OR ATOM FALSE> "OPTIONAL" ANY)] 6747>> 

<SETG :CG_STRINGCON$TYPE :STRING> 

<SET PROCLIST <CONS :CG_INTCON .PROCLIST>> 

<SETG :CG_INTCON %<RSUBR-ENTRY '[:CG_MODULE :CG_INTCON #DECL ("VALUE" STRING FIX
"OPTIONAL" ANY)] 6781>> 

<SETG :CG_INTCON$TYPE :STRING> 

<SET PROCLIST <CONS :CG_NULLCON .PROCLIST>> 

<SETG :CG_NULLCON %<RSUBR-ENTRY '[:CG_MODULE :CG_NULLCON #DECL ("VALUE" STRING 
"OPTIONAL" ANY)] 6819>> 

<SETG :CG_NULLCON$TYPE :STRING> 

<SET PROCLIST <CONS :CG_STRLIT .PROCLIST>> 

<SETG :CG_STRLIT %<RSUBR-ENTRY '[:CG_MODULE :CG_STRLIT #DECL ("VALUE" STRING ANY
STRING <OR ATOM FALSE> "OPTIONAL" ANY)] 6850>> 

<SETG :CG_STRLIT$TYPE :STRING> 

<SET PROCLIST <CONS :CG_STRING .PROCLIST>> 

<SETG :CG_STRING %<RSUBR-ENTRY '[:CG_MODULE :CG_STRING #DECL ("VALUE" STRING ANY
STRING "OPTIONAL" ANY)] 7019>> 

<SETG :CG_STRING$TYPE :STRING> 

<SET PROCLIST <CONS :CG_CHAR .PROCLIST>> 

<SETG :CG_CHAR %<RSUBR-ENTRY '[:CG_MODULE :CG_CHAR #DECL ("VALUE" STRING ANY 
CHARACTER "OPTIONAL" ANY)] 7195>> 

<SETG :CG_CHAR$TYPE :STRING> 

<SET PROCLIST <CONS :CG_INT .PROCLIST>> 

<SETG :CG_INT %<RSUBR-ENTRY '[:CG_MODULE :CG_INT #DECL ("VALUE" STRING ANY FIX 
"OPTIONAL" ANY)] 7357>> 

<SETG :CG_INT$TYPE :STRING> 

<SET PROCLIST <CONS :CG_BOOL .PROCLIST>> 

<SETG :CG_BOOL %<RSUBR-ENTRY '[:CG_MODULE :CG_BOOL #DECL ("VALUE" STRING <OR 
ATOM FALSE> "OPTIONAL" ANY)] 7538>> 

<SETG :CG_BOOL$TYPE :STRING> 

<SET PROCLIST <CONS :CG_NULL .PROCLIST>> 

<SETG :CG_NULL %<RSUBR-ENTRY '[:CG_MODULE :CG_NULL #DECL ("VALUE" STRING 
"OPTIONAL" ANY)] 7574>> 

<SETG :CG_NULL$TYPE :STRING> 

<SET PROCLIST <CONS :CG_IS_PARM .PROCLIST>> 

<SETG :CG_IS_PARM %<RSUBR-ENTRY '[:CG_MODULE :CG_IS_PARM #DECL ("VALUE" <OR ATOM
FALSE> ANY "OPTIONAL" ANY)] 7605>> 

<SETG :CG_IS_PARM$TYPE :BOOL> 

<SET PROCLIST <CONS :CG_IS_FAKE .PROCLIST>> 

<SETG :CG_IS_FAKE %<RSUBR-ENTRY '[:CG_MODULE :CG_IS_FAKE #DECL ("VALUE" <OR ATOM
FALSE> ANY "OPTIONAL" ANY)] 7673>> 

<SETG :CG_IS_FAKE$TYPE :BOOL> 

<SET PROCLIST <CONS :CG_NOT_NULL .PROCLIST>> 

<SETG :CG_NOT_NULL %<RSUBR-ENTRY '[:CG_MODULE :CG_NOT_NULL #DECL ("VALUE" <OR 
ATOM FALSE> ANY "OPTIONAL" ANY)] 7732>> 

<SETG :CG_NOT_NULL$TYPE :BOOL> 

<SET PROCLIST <CONS :OOPS .PROCLIST>> 

<SETG :OOPS %<RSUBR-ENTRY '[:CG_MODULE :OOPS #DECL ("VALUE" ATOM ANY STRING 
"OPTIONAL" ANY)] 7801>> 

"***** CLU COMPILER 2.14 ***** 3/18/77 10:13 *****" 

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

<SET PROCLIST <CONS :EM$S .PROCLIST>> 

<SETG :EM$S %<RSUBR-ENTRY '[:CG_MODULE :EM$S #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 7849>> 

<PUTPROP :EM S ,:EM$S> 

<SET PROCLIST <CONS :EM$SC .PROCLIST>> 

<SETG :EM$SC %<RSUBR-ENTRY '[:CG_MODULE :EM$SC #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 7883>> 

<PUTPROP :EM SC ,:EM$SC> 

<SET PROCLIST <CONS :EM$SN .PROCLIST>> 

<SETG :EM$SN %<RSUBR-ENTRY '[:CG_MODULE :EM$SN #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 7921>> 

<PUTPROP :EM SN ,:EM$SN> 

<SET PROCLIST <CONS :EM$C .PROCLIST>> 

<SETG :EM$C %<RSUBR-ENTRY '[:CG_MODULE :EM$C #DECL ("VALUE" ATOM "OPTIONAL" ANY)
] 7959>> 

<PUTPROP :EM C ,:EM$C> 

<SET PROCLIST <CONS :EM$LB .PROCLIST>> 

<SETG :EM$LB %<RSUBR-ENTRY '[:CG_MODULE :EM$LB #DECL ("VALUE" ATOM "OPTIONAL" 
ANY)] 7994>> 

<PUTPROP :EM LB ,:EM$LB> 

<SET PROCLIST <CONS :EM$RB .PROCLIST>> 

<SETG :EM$RB %<RSUBR-ENTRY '[:CG_MODULE :EM$RB #DECL ("VALUE" ATOM "OPTIONAL" 
ANY)] 8029>> 

<PUTPROP :EM RB ,:EM$RB> 

<SET PROCLIST <CONS :EM$RN .PROCLIST>> 

<SETG :EM$RN %<RSUBR-ENTRY '[:CG_MODULE :EM$RN #DECL ("VALUE" ATOM "OPTIONAL" 
ANY)] 8064>> 

<PUTPROP :EM RN ,:EM$RN> 

<SET PROCLIST <CONS :EM$NL .PROCLIST>> 

<SETG :EM$NL %<RSUBR-ENTRY '[:CG_MODULE :EM$NL #DECL ("VALUE" ATOM "OPTIONAL" 
ANY)] 8098>> 

<PUTPROP :EM NL ,:EM$NL> 

<SET PROCLIST <CONS :EM$D .PROCLIST>> 

<SETG :EM$D %<RSUBR-ENTRY '[:CG_MODULE :EM$D #DECL ("VALUE" ATOM STRING STRING 
STRING STRING "OPTIONAL" ANY)] 8133>> 

<PUTPROP :EM D ,:EM$D> 

<SET PROCLIST <CONS :EM$V .PROCLIST>> 

<SETG :EM$V %<RSUBR-ENTRY '[:CG_MODULE :EM$V #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8187>> 

<PUTPROP :EM V ,:EM$V> 

<SET PROCLIST <CONS :EM$AV .PROCLIST>> 

<SETG :EM$AV %<RSUBR-ENTRY '[:CG_MODULE :EM$AV #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8224>> 

<PUTPROP :EM AV ,:EM$AV> 

<SET PROCLIST <CONS :EM$VV .PROCLIST>> 

<SETG :EM$VV %<RSUBR-ENTRY '[:CG_MODULE :EM$VV #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8264>> 

<PUTPROP :EM VV ,:EM$VV> 

<SET PROCLIST <CONS :EM$VN .PROCLIST>> 

<SETG :EM$VN %<RSUBR-ENTRY '[:CG_MODULE :EM$VN #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8304>> 

<PUTPROP :EM VN ,:EM$VN> 

<SET PROCLIST <CONS :EM$VC .PROCLIST>> 

<SETG :EM$VC %<RSUBR-ENTRY '[:CG_MODULE :EM$VC #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8341>> 

<PUTPROP :EM VC ,:EM$VC> 

<SET PROCLIST <CONS :EM$CC .PROCLIST>> 

<SETG :EM$CC %<RSUBR-ENTRY '[:CG_MODULE :EM$CC #DECL ("VALUE" ATOM STRING FIX 
"OPTIONAL" ANY)] 8378>> 

<PUTPROP :EM CC ,:EM$CC> 

<SET PROCLIST <CONS :EM$IC .PROCLIST>> 

<SETG :EM$IC %<RSUBR-ENTRY '[:CG_MODULE :EM$IC #DECL ("VALUE" ATOM STRING FIX 
"OPTIONAL" ANY)] 8425>> 

<PUTPROP :EM IC ,:EM$IC> 

<SET PROCLIST <CONS :EM$P .PROCLIST>> 

<SETG :EM$P %<RSUBR-ENTRY '[:CG_MODULE :EM$P #DECL ("VALUE" ATOM "OPTIONAL" ANY)
] 8472>> 

<PUTPROP :EM P ,:EM$P> 

<SET PROCLIST <CONS :EM$K .PROCLIST>> 

<SETG :EM$K %<RSUBR-ENTRY '[:CG_MODULE :EM$K #DECL ("VALUE" ATOM FIX "OPTIONAL" 
ANY)] 8506>> 

<PUTPROP :EM K ,:EM$K> 

<SET PROCLIST <CONS :EM$KN .PROCLIST>> 

<SETG :EM$KN %<RSUBR-ENTRY '[:CG_MODULE :EM$KN #DECL ("VALUE" ATOM FIX 
"OPTIONAL" ANY)] 8544>> 

<PUTPROP :EM KN ,:EM$KN> 

<SET PROCLIST <CONS :EM$LNK .PROCLIST>> 

<SETG :EM$LNK %<RSUBR-ENTRY '[:CG_MODULE :EM$LNK #DECL ("VALUE" ATOM STRING 
STRING STRING "OPTIONAL" ANY)] 8581>> 

<PUTPROP :EM LNK ,:EM$LNK> 

<SET PROCLIST <CONS :EM$U .PROCLIST>> 

<SETG :EM$U %<RSUBR-ENTRY '[:CG_MODULE :EM$U #DECL ("VALUE" ATOM "OPTIONAL" ANY)
] 8629>> 

<PUTPROP :EM U ,:EM$U> 

<SET PROCLIST <CONS :EM$DWN .PROCLIST>> 

<SETG :EM$DWN %<RSUBR-ENTRY '[:CG_MODULE :EM$DWN #DECL ("VALUE" ATOM "OPTIONAL" 
ANY)] 8663>> 

<PUTPROP :EM DWN ,:EM$DWN> 

<SET PROCLIST <CONS :EM$SU .PROCLIST>> 

<SETG :EM$SU %<RSUBR-ENTRY '[:CG_MODULE :EM$SU #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8697>> 

<PUTPROP :EM SU ,:EM$SU> 

<SET PROCLIST <CONS :EM$SUC .PROCLIST>> 

<SETG :EM$SUC %<RSUBR-ENTRY '[:CG_MODULE :EM$SUC #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8731>> 

<PUTPROP :EM SUC ,:EM$SUC> 

<SET PROCLIST <CONS :EM$SUN .PROCLIST>> 

<SETG :EM$SUN %<RSUBR-ENTRY '[:CG_MODULE :EM$SUN #DECL ("VALUE" ATOM STRING 
"OPTIONAL" ANY)] 8769>> 

<PUTPROP :EM SUN ,:EM$SUN> 

<SETG :EM (:EM)> 

"***** CLU COMPILER 2.14 ***** 3/14/77 20:11 *****" 

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

<SET PROCLIST <CONS :TG_TYPE .PROCLIST>> 

<SETG :TG_TYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_TYPE #DECL ("VALUE" STRING ANY ANY
"OPTIONAL" ANY)] 8807>> 

<SETG :TG_TYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_PMTYPE .PROCLIST>> 

<SETG :TG_PMTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_PMTYPE #DECL ("VALUE" STRING ANY
STRING FIX "OPTIONAL" ANY)] 8986>> 

<SETG :TG_PMTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_EXTYPE .PROCLIST>> 

<SETG :TG_EXTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_EXTYPE #DECL ("VALUE" STRING ANY
ANY STRING "OPTIONAL" ANY)] 9037>> 

<SETG :TG_EXTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_TYPELIST .PROCLIST>> 

<SETG :TG_TYPELIST %<RSUBR-ENTRY '[:CG_MODULE :TG_TYPELIST #DECL ("VALUE" STRING
ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 9088>> 

<SETG :TG_TYPELIST$TYPE :STRING> 

<SET PROCLIST <CONS :TG_DUTYPE .PROCLIST>> 

<SETG :TG_DUTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_DUTYPE #DECL ("VALUE" STRING ANY
ANY "OPTIONAL" ANY)] 9181>> 

<SETG :TG_DUTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_PROCTYPE .PROCLIST>> 

<SETG :TG_PROCTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_PROCTYPE #DECL ("VALUE" STRING
ANY ANY "OPTIONAL" ANY)] 9271>> 

<SETG :TG_PROCTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_RECORDTYPE .PROCLIST>> 

<SETG :TG_RECORDTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_RECORDTYPE #DECL ("VALUE" 
STRING ANY ANY "OPTIONAL" ANY)] 9378>> 

<SETG :TG_RECORDTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_ONEOFTYPE .PROCLIST>> 

<SETG :TG_ONEOFTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_ONEOFTYPE #DECL ("VALUE" 
STRING ANY ANY "OPTIONAL" ANY)] 9447>> 

<SETG :TG_ONEOFTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_SELTYPE .PROCLIST>> 

<SETG :TG_SELTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_SELTYPE #DECL ("VALUE" STRING 
ANY STRING <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 9516>> 

<SETG :TG_SELTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_CANON .PROCLIST>> 

<SETG :TG_CANON %<RSUBR-ENTRY '[:CG_MODULE :TG_CANON #DECL ("VALUE" STRING ANY <
VECTOR UVECTOR FIX FIX FIX> FIX "OPTIONAL" ANY)] 9657>> 

<SETG :TG_CANON$TYPE :STRING> 

<SET PROCLIST <CONS :TG_CONSTLIST .PROCLIST>> 

<SETG :TG_CONSTLIST %<RSUBR-ENTRY '[:CG_MODULE :TG_CONSTLIST #DECL ("VALUE" 
STRING ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 9803>> 

<SETG :TG_CONSTLIST$TYPE :STRING> 

<SET PROCLIST <CONS :TG_CONST .PROCLIST>> 

<SETG :TG_CONST %<RSUBR-ENTRY '[:CG_MODULE :TG_CONST #DECL ("VALUE" STRING ANY 
ANY "OPTIONAL" ANY)] 9896>> 

<SETG :TG_CONST$TYPE :STRING> 

<SET PROCLIST <CONS :TG_ATYPE .PROCLIST>> 

<SETG :TG_ATYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_ATYPE #DECL ("VALUE" STRING ANY 
ANY "OPTIONAL" ANY)] 10015>> 

<SETG :TG_ATYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_RTNTYPE .PROCLIST>> 

<SETG :TG_RTNTYPE %<RSUBR-ENTRY '[:CG_MODULE :TG_RTNTYPE #DECL ("VALUE" STRING 
ANY <VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> "OPTIONAL" ANY)] 10168>> 

<SETG :TG_RTNTYPE$TYPE :STRING> 

<SET PROCLIST <CONS :TG_EXPRLIST .PROCLIST>> 

<SETG :TG_EXPRLIST %<RSUBR-ENTRY '[:CG_MODULE :TG_EXPRLIST #DECL ("VALUE" STRING
ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 10276>> 

<SETG :TG_EXPRLIST$TYPE :STRING> 

<SET PROCLIST <CONS :TG_EXPR .PROCLIST>> 

<SETG :TG_EXPR %<RSUBR-ENTRY '[:CG_MODULE :TG_EXPR #DECL ("VALUE" STRING ANY ANY
"OPTIONAL" ANY)] 10369>> 

<SETG :TG_EXPR$TYPE :STRING> 

<SET PROCLIST <CONS :TG_ERRORLIST .PROCLIST>> 

<SETG :TG_ERRORLIST %<RSUBR-ENTRY '[:CG_MODULE :TG_ERRORLIST #DECL ("VALUE" 
STRING ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 10492>> 

<SETG :TG_ERRORLIST$TYPE :STRING> 

<SET PROCLIST <CONS :TG_IDN .PROCLIST>> 

<SETG :TG_IDN %<RSUBR-ENTRY '[:CG_MODULE :TG_IDN #DECL ("VALUE" STRING ANY ANY 
"OPTIONAL" ANY)] 10600>> 

<SETG :TG_IDN$TYPE :STRING> 

"***** CLU COMPILER 2.14 ***** 3/24/77 10:01 *****" 

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

<SET PROCLIST <CONS :GT_EXPRLIST .PROCLIST>> 

<SETG :GT_EXPRLIST %<RSUBR-ENTRY '[:CG_MODULE :GT_EXPRLIST #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> ANY <VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 
10679>> 

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

<SET PROCLIST <CONS :GT_EXPR .PROCLIST>> 

<SETG :GT_EXPR %<RSUBR-ENTRY '[:CG_MODULE :GT_EXPR #DECL ("VALUE" ANY ANY ANY 
"OPTIONAL" ANY)] 10767>> 

<SETG :GT_EXPR$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_BINEXP .PROCLIST>> 

<SETG :GT_BINEXP %<RSUBR-ENTRY '[:CG_MODULE :GT_BINEXP #DECL ("VALUE" ANY ANY 
ANY ANY "OPTIONAL" ANY)] 11043>> 

<SETG :GT_BINEXP$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_RECCON .PROCLIST>> 

<SETG :GT_RECCON %<RSUBR-ENTRY '[:CG_MODULE :GT_RECCON #DECL ("VALUE" ANY ANY <
VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 11115>> 

<SETG :GT_RECCON$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_ARRCON .PROCLIST>> 

<SETG :GT_ARRCON %<RSUBR-ENTRY '[:CG_MODULE :GT_ARRCON #DECL ("VALUE" ANY ANY <
VECTOR ANY <VECTOR UVECTOR FIX FIX FIX>> "OPTIONAL" ANY)] 11238>> 

<SETG :GT_ARRCON$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_FILL .PROCLIST>> 

<SETG :GT_FILL %<RSUBR-ENTRY '[:CG_MODULE :GT_FILL #DECL ("VALUE" ANY ANY <
VECTOR VECTOR ANY> "OPTIONAL" ANY)] 11279>> 

<SETG :GT_FILL$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_OP .PROCLIST>> 

<SETG :GT_OP %<RSUBR-ENTRY '[:CG_MODULE :GT_OP #DECL ("VALUE" ANY ANY <VECTOR 
ANY ANY> "OPTIONAL" ANY)] 11317>> 

<SETG :GT_OP$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_INVOKE .PROCLIST>> 

<SETG :GT_INVOKE %<RSUBR-ENTRY '[:CG_MODULE :GT_INVOKE #DECL ("VALUE" ANY ANY <
VECTOR <VECTOR UVECTOR FIX FIX FIX> ANY> "OPTIONAL" ANY)] 11379>> 

<SETG :GT_INVOKE$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_CALL .PROCLIST>> 

<SETG :GT_CALL %<RSUBR-ENTRY '[:CG_MODULE :GT_CALL #DECL ("VALUE" ANY ANY ANY 
"OPTIONAL" ANY)] 11503>> 

<SETG :GT_CALL$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_SEL .PROCLIST>> 

<SETG :GT_SEL %<RSUBR-ENTRY '[:CG_MODULE :GT_SEL #DECL ("VALUE" ANY ANY <VECTOR 
ANY ANY> "OPTIONAL" ANY)] 11584>> 

<SETG :GT_SEL$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_TAG .PROCLIST>> 

<SETG :GT_TAG %<RSUBR-ENTRY '[:CG_MODULE :GT_TAG #DECL ("VALUE" ANY ANY ANY ANY 
"OPTIONAL" ANY)] 11627>> 

<SETG :GT_TAG$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_REF .PROCLIST>> 

<SETG :GT_REF %<RSUBR-ENTRY '[:CG_MODULE :GT_REF #DECL ("VALUE" ANY ANY <VECTOR 
ANY ANY> "OPTIONAL" ANY)] 11770>> 

<SETG :GT_REF$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_GET_TAG .PROCLIST>> 

<SETG :GT_GET_TAG %<RSUBR-ENTRY '[:CG_MODULE :GT_GET_TAG #DECL ("VALUE" ANY ANY 
STRING "OPTIONAL" ANY)] 11849>> 

<SETG :GT_GET_TAG$TYPE :NAME> 

<SET PROCLIST <CONS :GT_IDN .PROCLIST>> 

<SETG :GT_IDN %<RSUBR-ENTRY '[:CG_MODULE :GT_IDN #DECL ("VALUE" ANY ANY ANY 
"OPTIONAL" ANY)] 11943>> 

<SETG :GT_IDN$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_IDNCALL .PROCLIST>> 

<SETG :GT_IDNCALL %<RSUBR-ENTRY '[:CG_MODULE :GT_IDNCALL #DECL ("VALUE" ANY ANY 
ANY "OPTIONAL" ANY)] 12049>> 

<SETG :GT_IDNCALL$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_DOLLAR .PROCLIST>> 

<SETG :GT_DOLLAR %<RSUBR-ENTRY '[:CG_MODULE :GT_DOLLAR #DECL ("VALUE" ANY ANY 
ANY "OPTIONAL" ANY)] 12159>> 

<SETG :GT_DOLLAR$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_OPCALL .PROCLIST>> 

<SETG :GT_OPCALL %<RSUBR-ENTRY '[:CG_MODULE :GT_OPCALL #DECL ("VALUE" ANY ANY <
VECTOR ANY ANY> "OPTIONAL" ANY)] 12261>> 

<SETG :GT_OPCALL$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_STRINGCALL .PROCLIST>> 

<SETG :GT_STRINGCALL %<RSUBR-ENTRY '[:CG_MODULE :GT_STRINGCALL #DECL ("VALUE" 
ANY ANY ANY STRING "OPTIONAL" ANY)] 12301>> 

<SETG :GT_STRINGCALL$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_EMPTY .PROCLIST>> 

<SETG :GT_EMPTY %<RSUBR-ENTRY '[:CG_MODULE :GT_EMPTY #DECL ("VALUE" ANY 
"OPTIONAL" ANY)] 12791>> 

<SETG :GT_EMPTY$TYPE :TYPESPEC> 

<SET PROCLIST <CONS :GT_CONST .PROCLIST>> 

<SETG :GT_CONST %<RSUBR-ENTRY '[:CG_MODULE :GT_CONST #DECL ("VALUE" ANY ANY ANY 
"OPTIONAL" ANY)] 12821>> 

<SETG :GT_CONST$TYPE :TYPESPEC> 

"***** CLU COMPILER 2.14 ***** 3/5/77 10:37 *****" 

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

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

<SETG :ZEN$CREATE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$CREATE #DECL ("VALUE" ANY 
"OPTIONAL" ANY)] 12903>> 

<SETG :ZEN$CREATE$TYPE :ZEN> 

<PUTPROP :ZEN CREATE ,:ZEN$CREATE> 

<SET PROCLIST <CONS :ZEN$NEW_MODULE .PROCLIST>> 

<SETG :ZEN$NEW_MODULE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEW_MODULE #DECL ("VALUE" 
ATOM <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> ANY STRING 
"OPTIONAL" ANY)] 13121>> 

<PUTPROP :ZEN NEW_MODULE ,:ZEN$NEW_MODULE> 

<SET PROCLIST <CONS :ZEN$PUT_STMT .PROCLIST>> 

<SETG :ZEN$PUT_STMT %<RSUBR-ENTRY '[:CG_MODULE :ZEN$PUT_STMT #DECL ("VALUE" ATOM
<VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX ANY 
ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX FIX FIX
> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> ANY "OPTIONAL" ANY)] 13231
>> 

<PUTPROP :ZEN PUT_STMT ,:ZEN$PUT_STMT> 

<SET PROCLIST <CONS :ZEN$GET_STMT .PROCLIST>> 

<SETG :ZEN$GET_STMT %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_STMT #DECL ("VALUE" ANY 
<VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX ANY 
ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX FIX FIX
> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)] 13267>> 

<SETG :ZEN$GET_STMT$TYPE :STMT> 

<PUTPROP :ZEN GET_STMT ,:ZEN$GET_STMT> 

<SET PROCLIST <CONS :ZEN$GET_LINENO .PROCLIST>> 

<SETG :ZEN$GET_LINENO %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_LINENO #DECL ("VALUE" 
FIX <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13299>> 

<SETG :ZEN$GET_LINENO$TYPE :INT> 

<PUTPROP :ZEN GET_LINENO ,:ZEN$GET_LINENO> 

<SET PROCLIST <CONS :ZEN$ABSTRACT_TYPE .PROCLIST>> 

<SETG :ZEN$ABSTRACT_TYPE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$ABSTRACT_TYPE #DECL (
"VALUE" ANY <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX
> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13333>> 

<SETG :ZEN$ABSTRACT_TYPE$TYPE :TYPESPEC> 

<PUTPROP :ZEN ABSTRACT_TYPE ,:ZEN$ABSTRACT_TYPE> 

<SET PROCLIST <CONS :ZEN$CONCRETE_TYPE .PROCLIST>> 

<SETG :ZEN$CONCRETE_TYPE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$CONCRETE_TYPE #DECL (
"VALUE" ANY <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX
> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13365>> 

<SETG :ZEN$CONCRETE_TYPE$TYPE :TYPESPEC> 

<PUTPROP :ZEN CONCRETE_TYPE ,:ZEN$CONCRETE_TYPE> 

<SET PROCLIST <CONS :ZEN$MODULE_NAME .PROCLIST>> 

<SETG :ZEN$MODULE_NAME %<RSUBR-ENTRY '[:CG_MODULE :ZEN$MODULE_NAME #DECL (
"VALUE" STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> 
"OPTIONAL" ANY)] 13397>> 

<SETG :ZEN$MODULE_NAME$TYPE :STRING> 

<PUTPROP :ZEN MODULE_NAME ,:ZEN$MODULE_NAME> 

<SET PROCLIST <CONS :ZEN$NEXT_CONST .PROCLIST>> 

<SETG :ZEN$NEXT_CONST %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEXT_CONST #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13429>> 

<SETG :ZEN$NEXT_CONST$TYPE :STRING> 

<PUTPROP :ZEN NEXT_CONST ,:ZEN$NEXT_CONST> 

<SET PROCLIST <CONS :ZEN$NEXT_STRING .PROCLIST>> 

<SETG :ZEN$NEXT_STRING %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEXT_STRING #DECL (
"VALUE" STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> 
"OPTIONAL" ANY)] 13471>> 

<SETG :ZEN$NEXT_STRING$TYPE :STRING> 

<PUTPROP :ZEN NEXT_STRING ,:ZEN$NEXT_STRING> 

<SET PROCLIST <CONS :ZEN$NEXT_VAR .PROCLIST>> 

<SETG :ZEN$NEXT_VAR %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEXT_VAR #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13513>> 

<SETG :ZEN$NEXT_VAR$TYPE :STRING> 

<PUTPROP :ZEN NEXT_VAR ,:ZEN$NEXT_VAR> 

<SET PROCLIST <CONS :ZEN$NEXT_LABEL .PROCLIST>> 

<SETG :ZEN$NEXT_LABEL %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEXT_LABEL #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13555>> 

<SETG :ZEN$NEXT_LABEL$TYPE :STRING> 

<PUTPROP :ZEN NEXT_LABEL ,:ZEN$NEXT_LABEL> 

<SET PROCLIST <CONS :ZEN$NEXT_TYPE .PROCLIST>> 

<SETG :ZEN$NEXT_TYPE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEXT_TYPE #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13597>> 

<SETG :ZEN$NEXT_TYPE$TYPE :STRING> 

<PUTPROP :ZEN NEXT_TYPE ,:ZEN$NEXT_TYPE> 

<SET PROCLIST <CONS :ZEN$NEXT_PROC .PROCLIST>> 

<SETG :ZEN$NEXT_PROC %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEXT_PROC #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13639>> 

<SETG :ZEN$NEXT_PROC$TYPE :STRING> 

<PUTPROP :ZEN NEXT_PROC ,:ZEN$NEXT_PROC> 

<SET PROCLIST <CONS :ZEN$ADD_HEAD .PROCLIST>> 

<SETG :ZEN$ADD_HEAD %<RSUBR-ENTRY '[:CG_MODULE :ZEN$ADD_HEAD #DECL ("VALUE" ATOM
<VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX ANY 
ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX FIX FIX
> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> STRING "OPTIONAL" ANY)] 
13681>> 

<PUTPROP :ZEN ADD_HEAD ,:ZEN$ADD_HEAD> 

<SET PROCLIST <CONS :ZEN$NEXT_HEAD .PROCLIST>> 

<SETG :ZEN$NEXT_HEAD %<RSUBR-ENTRY '[:CG_MODULE :ZEN$NEXT_HEAD #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13718>> 

<SETG :ZEN$NEXT_HEAD$TYPE :STRING> 

<PUTPROP :ZEN NEXT_HEAD ,:ZEN$NEXT_HEAD> 

<SET PROCLIST <CONS :ZEN$STILL_HEADS .PROCLIST>> 

<SETG :ZEN$STILL_HEADS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$STILL_HEADS #DECL (
"VALUE" <OR ATOM FALSE> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR
FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> 
"OPTIONAL" ANY)] 13751>> 

<SETG :ZEN$STILL_HEADS$TYPE :BOOL> 

<PUTPROP :ZEN STILL_HEADS ,:ZEN$STILL_HEADS> 

<SET PROCLIST <CONS :ZEN$ADD_VAR .PROCLIST>> 

<SETG :ZEN$ADD_VAR %<RSUBR-ENTRY '[:CG_MODULE :ZEN$ADD_VAR #DECL ("VALUE" ATOM <
VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX 
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX
FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> STRING STRING STRING 
"OPTIONAL" ANY)] 13790>> 

<PUTPROP :ZEN ADD_VAR ,:ZEN$ADD_VAR> 

<SET PROCLIST <CONS :ZEN$GET_VARS .PROCLIST>> 

<SETG :ZEN$GET_VARS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_VARS #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13875>> 

<SETG :ZEN$GET_VARS$TYPE :STRING> 

<PUTPROP :ZEN GET_VARS ,:ZEN$GET_VARS> 

<SET PROCLIST <CONS :ZEN$GET_VINITS .PROCLIST>> 

<SETG :ZEN$GET_VINITS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_VINITS #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13908>> 

<SETG :ZEN$GET_VINITS$TYPE :STRING> 

<PUTPROP :ZEN GET_VINITS ,:ZEN$GET_VINITS> 

<SET PROCLIST <CONS :ZEN$GET_VNAMES .PROCLIST>> 

<SETG :ZEN$GET_VNAMES %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_VNAMES #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
13941>> 

<SETG :ZEN$GET_VNAMES$TYPE :STRING> 

<PUTPROP :ZEN GET_VNAMES ,:ZEN$GET_VNAMES> 

<SET PROCLIST <CONS :ZEN$ADD_PMTYPE .PROCLIST>> 

<SETG :ZEN$ADD_PMTYPE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$ADD_PMTYPE #DECL ("VALUE" 
ATOM <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> ANY STRING 
"OPTIONAL" ANY)] 13974>> 

<PUTPROP :ZEN ADD_PMTYPE ,:ZEN$ADD_PMTYPE> 

<SET PROCLIST <CONS :ZEN$PM2PMTYPE .PROCLIST>> 

<SETG :ZEN$PM2PMTYPE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$PM2PMTYPE #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> FIX "OPTIONAL" 
ANY)] 14017>> 

<SETG :ZEN$PM2PMTYPE$TYPE :STRING> 

<PUTPROP :ZEN PM2PMTYPE ,:ZEN$PM2PMTYPE> 

<SET PROCLIST <CONS :ZEN$ID2PMTYPE .PROCLIST>> 

<SETG :ZEN$ID2PMTYPE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$ID2PMTYPE #DECL ("VALUE" 
STRING <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> ANY "OPTIONAL" 
ANY)] 14054>> 

<SETG :ZEN$ID2PMTYPE$TYPE :STRING> 

<PUTPROP :ZEN ID2PMTYPE ,:ZEN$ID2PMTYPE> 

<SET PROCLIST <CONS :ZEN$GET_RECORDS .PROCLIST>> 

<SETG :ZEN$GET_RECORDS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_RECORDS #DECL (
"VALUE" <VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> 
FIX STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14151>> 

<SETG :ZEN$GET_RECORDS$TYPE (:ARRAY (:ARRAY :TYPESPEC))> 

<PUTPROP :ZEN GET_RECORDS ,:ZEN$GET_RECORDS> 

<SET PROCLIST <CONS :ZEN$GET_ONEOFS .PROCLIST>> 

<SETG :ZEN$GET_ONEOFS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_ONEOFS #DECL ("VALUE" 
<VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14183>> 

<SETG :ZEN$GET_ONEOFS$TYPE (:ARRAY (:ARRAY :TYPESPEC))> 

<PUTPROP :ZEN GET_ONEOFS ,:ZEN$GET_ONEOFS> 

<SET PROCLIST <CONS :ZEN$GET_DUS .PROCLIST>> 

<SETG :ZEN$GET_DUS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_DUS #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14215>> 

<SETG :ZEN$GET_DUS$TYPE (:ARRAY (:ARRAY :TYPESPEC))> 

<PUTPROP :ZEN GET_DUS ,:ZEN$GET_DUS> 

<SET PROCLIST <CONS :ZEN$GET_PROCS .PROCLIST>> 

<SETG :ZEN$GET_PROCS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_PROCS #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14247>> 

<SETG :ZEN$GET_PROCS$TYPE (:ARRAY (:ARRAY :TYPESPEC))> 

<PUTPROP :ZEN GET_PROCS ,:ZEN$GET_PROCS> 

<SET PROCLIST <CONS :ZEN$GET_ATYPES .PROCLIST>> 

<SETG :ZEN$GET_ATYPES %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_ATYPES #DECL ("VALUE" 
<VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14279>> 

<SETG :ZEN$GET_ATYPES$TYPE (:ARRAY (:ARRAY :TYPESPEC))> 

<PUTPROP :ZEN GET_ATYPES ,:ZEN$GET_ATYPES> 

<SET PROCLIST <CONS :ZEN$GET_CVT_ARRAY .PROCLIST>> 

<SETG :ZEN$GET_CVT_ARRAY %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_CVT_ARRAY #DECL (
"VALUE" <VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> 
FIX STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14311>> 

<SETG :ZEN$GET_CVT_ARRAY$TYPE (:ARRAY :BOOL)> 

<PUTPROP :ZEN GET_CVT_ARRAY ,:ZEN$GET_CVT_ARRAY> 

<SET PROCLIST <CONS :ZEN$SET_CVT_ARRAY .PROCLIST>> 

<SETG :ZEN$SET_CVT_ARRAY %<RSUBR-ENTRY '[:CG_MODULE :ZEN$SET_CVT_ARRAY #DECL (
"VALUE" ATOM <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> 
<VECTOR UVECTOR FIX FIX FIX> "OPTIONAL" ANY)] 14343>> 

<PUTPROP :ZEN SET_CVT_ARRAY ,:ZEN$SET_CVT_ARRAY> 

<SET PROCLIST <CONS :ZEN$PARMSP .PROCLIST>> 

<SETG :ZEN$PARMSP %<RSUBR-ENTRY '[:CG_MODULE :ZEN$PARMSP #DECL ("VALUE" <OR ATOM
FALSE> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX
ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX 
FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> "OPTIONAL" ANY)]
14377>> 

<SETG :ZEN$PARMSP$TYPE :BOOL> 

<PUTPROP :ZEN PARMSP ,:ZEN$PARMSP> 

<SET PROCLIST <CONS :ZEN$PUSHTAG .PROCLIST>> 

<SETG :ZEN$PUSHTAG %<RSUBR-ENTRY '[:CG_MODULE :ZEN$PUSHTAG #DECL ("VALUE" ATOM <
VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX 
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX
FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> ANY ANY "OPTIONAL" ANY)] 
14416>> 

<PUTPROP :ZEN PUSHTAG ,:ZEN$PUSHTAG> 

<SET PROCLIST <CONS :ZEN$POPTAG .PROCLIST>> 

<SETG :ZEN$POPTAG %<RSUBR-ENTRY '[:CG_MODULE :ZEN$POPTAG #DECL ("VALUE" ATOM <
VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX 
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX
FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> ANY "OPTIONAL" ANY)] 14462
>> 

<PUTPROP :ZEN POPTAG ,:ZEN$POPTAG> 

<SET PROCLIST <CONS :ZEN$CURTYPE .PROCLIST>> 

<SETG :ZEN$CURTYPE %<RSUBR-ENTRY '[:CG_MODULE :ZEN$CURTYPE #DECL ("VALUE" ANY <
VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY
<VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX 
FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX STRING <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX
FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <
VECTOR UVECTOR FIX FIX FIX> STRING STRING STRING FIX> ANY "OPTIONAL" ANY)] 14568
>> 

<SETG :ZEN$CURTYPE$TYPE :TYPESPEC> 

<PUTPROP :ZEN CURTYPE ,:ZEN$CURTYPE> 

<SET PROCLIST <CONS :ZEN$GET_STRLITS .PROCLIST>> 

<SETG :ZEN$GET_STRLITS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_STRLITS #DECL (
"VALUE" <VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> 
FIX STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14685>> 

<SETG :ZEN$GET_STRLITS$TYPE (:ARRAY (:ARRAY R$4341$2$0))> 

<PUTPROP :ZEN GET_STRLITS ,:ZEN$GET_STRLITS> 

<SET PROCLIST <CONS :ZEN$GET_STRINGS .PROCLIST>> 

<SETG :ZEN$GET_STRINGS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_STRINGS #DECL (
"VALUE" <VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <
VECTOR UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> 
FIX STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14717>> 

<SETG :ZEN$GET_STRINGS$TYPE (:ARRAY (:ARRAY R$4341$2$0))> 

<PUTPROP :ZEN GET_STRINGS ,:ZEN$GET_STRINGS> 

<SET PROCLIST <CONS :ZEN$GET_CHARS .PROCLIST>> 

<SETG :ZEN$GET_CHARS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_CHARS #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14749>> 

<SETG :ZEN$GET_CHARS$TYPE (:ARRAY (:ARRAY R$4341$2$1))> 

<PUTPROP :ZEN GET_CHARS ,:ZEN$GET_CHARS> 

<SET PROCLIST <CONS :ZEN$GET_INTS .PROCLIST>> 

<SETG :ZEN$GET_INTS %<RSUBR-ENTRY '[:CG_MODULE :ZEN$GET_INTS #DECL ("VALUE" <
VECTOR UVECTOR FIX FIX FIX> <VECTOR ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR 
UVECTOR FIX FIX FIX> FIX ANY ANY <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR 
FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX 
STRING <VECTOR UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR 
UVECTOR FIX FIX FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX 
FIX> <VECTOR UVECTOR FIX FIX FIX> FIX <VECTOR UVECTOR FIX FIX FIX> STRING STRING
STRING FIX> "OPTIONAL" ANY)] 14781>> 

<SETG :ZEN$GET_INTS$TYPE (:ARRAY (:ARRAY R$4341$2$1))> 

<PUTPROP :ZEN GET_INTS ,:ZEN$GET_INTS> 

<SETG :ZEN (:ZEN)> 

<SETG R$4341$2$0 '(:RECORD :STRING :STRING)> 

<SETG R$4341$2$1 '(:RECORD :INT :STRING)> 

"***** CLU COMPILER 2.13 ***** 10/27/76 22:16:49 *****" 

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

<SET PROCLIST <CONS :FIXB .PROCLIST>> 

<SETG :FIXB %<RSUBR-ENTRY '[:CG_MODULE :FIXB #DECL ("VALUE" STRING STRING 
"OPTIONAL" ANY)] 14813>> 

<SETG :FIXB$TYPE :STRING> 

<SET PROCLIST <CONS :I2S .PROCLIST>> 

<SETG :I2S %<RSUBR-ENTRY '[:CG_MODULE :I2S #DECL ("VALUE" STRING FIX "OPTIONAL" 
ANY)] 14872>> 

<SETG :I2S$TYPE :STRING> 

<SET PROCLIST <CONS :I2SP .PROCLIST>> 

<SETG :I2SP %<RSUBR-ENTRY '[:CG_MODULE :I2SP #DECL ("VALUE" STRING FIX 
"OPTIONAL" ANY)] 14976>> 

<SETG :I2SP$TYPE :STRING> 

<SET PROCLIST <CONS :ESCAPES2OCTAL .PROCLIST>> 

<SETG :ESCAPES2OCTAL %<RSUBR-ENTRY '[:CG_MODULE :ESCAPES2OCTAL #DECL ("VALUE" 
STRING STRING <OR ATOM FALSE> "OPTIONAL" ANY)] 15014>> 

<SETG :ESCAPES2OCTAL$TYPE :STRING> 

<SET PROCLIST <CONS :ASCII2S .PROCLIST>> 

<SETG :ASCII2S %<RSUBR-ENTRY '[:CG_MODULE :ASCII2S #DECL ("VALUE" STRING FIX 
"OPTIONAL" ANY)] 15168>> 

<SETG :ASCII2S$TYPE :STRING> 
