4 <ENTRY VMESS ANA-MESS ADDVMESS COMPILE-ERROR COMPILE-LOSSAGE COMPILE-WARNING
5 COMPILE-NOTE COMPILE-ACTIVATION>
7 <USE "NPRINT" "COMPDEC">
9 <DEFINE VMESS ("TUPLE" MSG)
14 <COND (<TYPE? .O STRING> <PRINC .O>) (ELSE <PRIN1 .O>)>>
19 #DECL ((L) <LIST ANY [REST NODE LIST]>)
20 <REPEAT ((LL <REST .L>))
21 #DECL ((LL) <LIST [REST NODE LIST]>)
22 <COND (<EMPTY? .LL> <RETURN>)>
26 <COND (<TYPE? .O NODE> <NODE-COMPLAIN .O>)
27 (<TYPE? .O STRING> <PRINC .O>)
31 <NODE-COMPLAIN <1 .LL>>
32 <SET LL <REST .LL 2>>>>
34 <DEFINE ADDVMESS (N L "AUX" LL (V .VERBOSE))
35 #DECL ((N) NODE (L) LIST (V VERBOSE) <LIST [REST NODE LIST]>
37 <COND (<SET LL <MEMQ .N .V>>
38 <PUTREST <REST <SET LL <2 .LL>> <- <LENGTH .LL> -1>> .L>)
40 <SET VERBOSE <REST <PUTREST .V (.N .L)> 2>>)>>
43 <DEFINE COMPILE-ERROR ("TUPLE" X)
47 <COND (<TYPE? .IT STRING> <PRINC .IT>)
48 (<TYPE? .IT NODE> <NODE-COMPLAIN .IT>)
51 <COND (<AND <GASSIGNED? DEBUGSW> ,DEBUGSW> <ERROR>)>
52 <RETURN <> .COMPILE-ACTIVATION>>
54 <DEFINE COMPILE-LOSSAGE ("TUPLE" X)
55 <PRINC "*** LOSSAGE ">
58 <COND (<TYPE? .IT STRING> <PRINC .IT>)
59 (<TYPE? .IT NODE> <NODE-COMPLAIN .IT>)
62 <ERROR LOSSAGE!-ERRORS>>
64 <DEFINE COMPILE-WARNING ("TUPLE" X)
65 <PRINC "*** WARNING ">
68 <COND (<TYPE? .IT STRING> <PRINC .IT>)
69 (<TYPE? .IT NODE> <NODE-COMPLAIN .IT>)
75 <DEFINE COMPILE-NOTE ("TUPLE" X)
79 <COND (<TYPE? .IT STRING> <PRINC .IT>)
80 (<TYPE? .IT NODE> <NODE-COMPLAIN .IT>)