'<PCODE "PCOND">

<PACKAGE "PCOND"> 

<ENTRY PCOND> 

<SETG PCOND #MACRO ( %<RSUBR!- '[ %<PCODE!- "PCOND" 0> PCOND #DECL ("VALUE" FORM
"ARGS" LIST) COND-CODE]>)> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,PCOND PGLUE ![536870912!]>> 

<SETG COND-CODE  %<RSUBR!- '[ %<PCODE!- "PCOND" 36> COND-CODE #DECL ("VALUE" 
FORM LIST) COND T]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,COND-CODE PGLUE ![1006632960!]>> 


<ENDPACKAGE>