3 <ENTRY VMESS ANA-MESS ADDVMESS>
5 <USE "NPRINT" "COMPDEC">
7 <DEFINE VMESS ("TUPLE" MSG)
12 <COND (<TYPE? .O STRING> <PRINC .O>) (ELSE <PRIN1 .O>)>>
17 #DECL ((L) <LIST ANY [REST NODE LIST]>)
18 <REPEAT ((LL <REST .L>))
19 #DECL ((LL) <LIST [REST NODE LIST]>)
20 <COND (<EMPTY? .LL> <RETURN>)>
24 <COND (<TYPE? .O NODE> <NODE-COMPLAIN .O>)
25 (<TYPE? .O STRING> <PRINC .O>)
29 <NODE-COMPLAIN <1 .LL>>
30 <SET LL <REST .LL 2>>>>
32 <DEFINE ADDVMESS (N L "AUX" LL)
33 #DECL ((N) NODE (L) LIST (VERBOSE) <LIST [REST NODE LIST]>)
34 <COND (<SET LL <MEMQ .N .VERBOSE>>
35 <PUTREST <REST <SET LL <2 .LL>> <- <LENGTH .LL> -1>> .L>)
37 <SET VERBOSE <REST <PUTREST .VERBOSE (.N .L)> 2>>)>>