--* From PETEB%WATSON.vnet.ibm.com@yktvmv.watson.ibm.com  Wed Dec  1 21:29:39 1993
--* Received: from yktvmv.watson.ibm.com by leonardo.watson.ibm.com (AIX 3.2/UCB 5.64/4.03)
--*           id AA20395; Wed, 1 Dec 1993 21:29:39 -0500
--* X-External-Networks: yes
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 8457; Wed, 01 Dec 93 21:36:00 EST
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.PETEB.NOTE.VAGENT2.5907.Dec.01.21:35:59.-0500>
--*           for asbugs@watson; Wed, 01 Dec 93 21:36:00 -0500
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 5903; Wed, 1 Dec 1993 21:35:59 EST
--* Received: from pi.watson.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Wed, 01 Dec 93 21:35:58 EST
--* Received: by pi.watson.ibm.com (AIX 3.2/UCB 5.64/4.03)
--*           id AA18393; Wed, 1 Dec 1993 21:28:37 -0600
--* Date: Wed, 1 Dec 1993 21:28:37 -0600
--* From: pab@pi.watson.ibm.com
--* Message-Id: <9312020328.AA18393@pi.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [6] storage allocation error in macroexpansion [/u/pab/tmp/buggette.as][32.5]

--@ Fixed  by:  SSD   Fri Nov 11 14:09:46 EST 1994 
--@ Tested by:  none 
--@ Summary:    Bug no longer appears in v0-37-0. Probably fixed by other miscellaneous fixes to macex or abnorm. 


theExport ==> with;

-- V simple things
Test5(): () == {
	test(Boolean, (Integer has theExport {0:%} ), true, "T21");
	test(Boolean, (Character has theExport {space:%} ), true, "T22");
	test(Boolean, (Integer has theExport {<: (%,%)->%} ), true, "T23")
}