3 <ENTRY SYMTAB-PRINT AC-PRINT>
7 <DEFINE SYMTAB-PRINT (SYM "AUX" TT TEM (OUTCHAN .OUTCHAN))
10 <PRIN1 <NAME-SYM .SYM>>
12 <COND (<SET TT <INACS .SYM>>
14 <COND (<TYPE? <SET TEM <DATTYP .TT>> AC>
16 (<TYPE? .TEM ATOM> <PRIN1 .TEM>)
19 (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
21 <COND (<TYPE? <SET TEM <DATVAL .TT>> AC>
23 (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
27 <DEFINE AC-PRINT (AC "AUX" TT TEM (OUTCHAN .OUTCHAN))
32 <OR <ACLINK .AC> <DATUM-PRINT <ACLINK .AC>>>
33 <MAPF <> <FUNCTION (S)
35 <COND (<TYPE? .S SYMTAB> <PRIN1 <NAME-SYM .S>>)
36 (ELSE <PRIN1 <TYPE .S>>)>>
40 <DEFINE DATUM-PRINT (TT "AUX" TEM)
43 <COND (<TYPE? <SET TEM <DATTYP .TT>> AC>
45 (<TYPE? .TEM ATOM> <PRIN1 .TEM>)
48 (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
50 <COND (<TYPE? <SET TEM <DATVAL .TT>> AC>
52 (ELSE <ERROR LOSING-SYMTAB!-ERRORS>)>
54 <PRINTTYPE AC ,AC-PRINT>
56 <PRINTTYPE SYMTAB ,SYMTAB-PRINT>