;; Macintosh HD:lisp:db:data:group2 
(DEFVAR GROUP.3163)
(PROG1 (SETF GROUP.3163 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3163 'NAME) "House Rules Committee") (SETF (SLOT-VALUE GROUP.3163 'SYNONYMS) (LIST 'HOUSE-RULES)) (SETF (SLOT-VALUE GROUP.3163 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3163 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3163 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3163 'SYMBOL) 'GROUP.3163))
(INSERT-ITEM GROUP GROUP.3163)
(DEFVAR GROUP.1071)
(PROG1 (SETF GROUP.1071 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1071 'NAME) "House Science Space and Technology Committee") (SETF (SLOT-VALUE GROUP.1071 'ISSUES) (LIST 'SCIENCE 'SPACE 'TECHNOLOGY)) (SETF (SLOT-VALUE GROUP.1071 'SYNONYMS) (LIST 'HOUSE-SCIENCE)) (SETF (SLOT-VALUE GROUP.1071 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1071 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1071 'DATE-OPEN) (LIST->DATE '(9 19 1989))) (SETF (SLOT-VALUE GROUP.1071 'SYMBOL) 'GROUP.1071))
(INSERT-ITEM GROUP GROUP.1071)
(DEFVAR GROUP.1072)
(PROG1 (SETF GROUP.1072 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1072 'NAME) "House Select Committee on Aging") (SETF (SLOT-VALUE GROUP.1072 'ISSUES) (LIST 'AGING 'ELDERLY)) (SETF (SLOT-VALUE GROUP.1072 'SYNONYMS) (LIST 'HOUSE-AGING)) (SETF (SLOT-VALUE GROUP.1072 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1072 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1072 'DATE-OPEN) (LIST->DATE '(9 19 1989))) (SETF (SLOT-VALUE GROUP.1072 'SYMBOL) 'GROUP.1072))
(INSERT-ITEM GROUP GROUP.1072)
(DEFVAR GROUP.1085)
(PROG1 (SETF GROUP.1085 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1085 'NAME) "House Small Business Committee") (SETF (SLOT-VALUE GROUP.1085 'ISSUES) (LIST 'BUSINESS)) (SETF (SLOT-VALUE GROUP.1085 'SYNONYMS) (LIST 'HOUSE-SMALL-BUSINESS)) (SETF (SLOT-VALUE GROUP.1085 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1085 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1085 'DATE-OPEN) (LIST->DATE '(9 19 1989))) (SETF (SLOT-VALUE GROUP.1085 'SYMBOL) 'GROUP.1085))
(INSERT-ITEM GROUP GROUP.1085)
(DEFVAR GROUP.1015)
(PROG1 (SETF GROUP.1015 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1015 'NAME) "House Veterans Affairs Committee") (SETF (SLOT-VALUE GROUP.1015 'ISSUES) (LIST 'VETERANS)) (SETF (SLOT-VALUE GROUP.1015 'SYNONYMS) (LIST 'HOUSE-VETERANS-AFFAIRS)) (SETF (SLOT-VALUE GROUP.1015 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1015 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1015 'DATE-OPEN) (LIST->DATE '(2 18 1989))) (SETF (SLOT-VALUE GROUP.1015 'SYMBOL) 'GROUP.1015))
(INSERT-ITEM GROUP GROUP.1015)
(DEFVAR GROUP.3160)
(PROG1 (SETF GROUP.3160 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3160 'NAME) "House Ways and Means Committee") (SETF (SLOT-VALUE GROUP.3160 'ISSUES) (LIST 'TAXES 'TRADE)) (SETF (SLOT-VALUE GROUP.3160 'SYNONYMS) (LIST 'HOUSE-WAYS)) (SETF (SLOT-VALUE GROUP.3160 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3160 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3160 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3160 'SYMBOL) 'GROUP.3160))
(INSERT-ITEM GROUP GROUP.3160)
(DEFVAR GROUP.2425)
(PROG1 (SETF GROUP.2425 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2425 'NAME) "Insurance Industry") (SETF (SLOT-VALUE GROUP.2425 'ISSUES) (LIST 'DEREGULATION)) (SETF (SLOT-VALUE GROUP.2425 'STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B INSURANCE GROUP)))) (SETF (SLOT-VALUE GROUP.2425 'ENGLISH) "the insurance industry") (SETF (SLOT-VALUE GROUP.2425 'SYNONYMS) (LIST 'INSURANCE)) (SETF (SLOT-VALUE GROUP.2425 'NORM) (INIT-RELATION '(INSURANCE CON C GROUP.2425 GROUP))) (SETF (SLOT-VALUE GROUP.2425 'ISA) (LIST 'INDUSTRY)) (SETF (SLOT-VALUE GROUP.2425 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2425 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2425 'SYMBOL) 'GROUP.2425))
(INSERT-ITEM GROUP GROUP.2425)
(DEFVAR GROUP.2583)
(PROG1 (SETF GROUP.2583 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2583 'NAME) "International Monetary Fund") (SETF (SLOT-VALUE GROUP.2583 'ISSUES) (LIST 'THIRD-WORLD-DEBT)) (SETF (SLOT-VALUE GROUP.2583 'ENGLISH) "the International Monetary Fund") (SETF (SLOT-VALUE GROUP.2583 'ENGLISH-SHORT) "the IMF") (SETF (SLOT-VALUE GROUP.2583 'SYNONYMS) (LIST 'IMF)) (SETF (SLOT-VALUE GROUP.2583 'NORM) (INIT-RELATION '(IMF PRO C GROUP.2583 GROUP))) (SETF (SLOT-VALUE GROUP.2583 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2583 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE GROUP.2583 'SYMBOL) 'GROUP.2583))
(INSERT-ITEM GROUP GROUP.2583)
(DEFVAR GROUP.2580)
(PROG1 (SETF GROUP.2580 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2580 'NAME) "International Red Cross") (SETF (SLOT-VALUE GROUP.2580 'ENGLISH-SHORT) "the Red Cross") (SETF (SLOT-VALUE GROUP.2580 'SYNONYMS) (LIST 'RED-CROSS)) (SETF (SLOT-VALUE GROUP.2580 'NORM) (INIT-RELATION '(RED-CROSS PRO C GROUP.2580 GROUP))) (SETF (SLOT-VALUE GROUP.2580 'ISA) (LIST 'RELIEF-AGENCY)) (SETF (SLOT-VALUE GROUP.2580 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2580 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE GROUP.2580 'SYMBOL) 'GROUP.2580))
(INSERT-ITEM GROUP GROUP.2580)
(DEFVAR GROUP.165)
(PROG1 (SETF GROUP.165 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.165 'NAME) "Jews") (SETF (SLOT-VALUE GROUP.165 'ISSUES) (LIST 'ISRAEL 'ANTI-SEMITISM)) (SETF (SLOT-VALUE GROUP.165 'STANCES) (LIST (INIT-STANCE '(ISRAEL PRO B JEWS GROUP)) (INIT-STANCE '(ANTI-SEMITISM CON B JEWS GROUP)) (INIT-STANCE '(SOVIET-JEWS PRO B JEWS GROUP)) (INIT-STANCE '(RACISM CON B JEWS GROUP)) (INIT-STANCE '(PRAYER CON B JEWS GROUP)))) (SETF (SLOT-VALUE GROUP.165 'ENGLISH) "Jewish Americans") (SETF (SLOT-VALUE GROUP.165 'ENGLISH-SHORT) "Jews") (SETF (SLOT-VALUE GROUP.165 'PRO-ENGLISH) "the legitimate rights and concerns of Jewish Americans") (SETF (SLOT-VALUE GROUP.165 'CON-ENGLISH) "the narrow pro-Israel Jewish interests") (SETF (SLOT-VALUE GROUP.165 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.165 'SYNONYMS) (LIST 'JEW 'JEWISH)) (SETF (SLOT-VALUE GROUP.165 'ISA) (LIST 'RELIGION)) (SETF (SLOT-VALUE GROUP.165 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.165 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.165 'SYMBOL) 'GROUP.165))
(INSERT-ITEM GROUP GROUP.165)
(DEFVAR GROUP.2413)
(PROG1 (SETF GROUP.2413 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2413 'NAME) "Journalists") (SETF (SLOT-VALUE GROUP.2413 'STANCES) (LIST (INIT-STANCE '(CIVIL-LIBERTIES PRO B JOURNALIST GROUP)))) (SETF (SLOT-VALUE GROUP.2413 'ENGLISH) "journalists") (SETF (SLOT-VALUE GROUP.2413 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.2413 'NORM) (INIT-RELATION '(JOURNALIST PRO C GROUP.2413 GROUP))) (SETF (SLOT-VALUE GROUP.2413 'ISA) (LIST 'MEDIA)) (SETF (SLOT-VALUE GROUP.2413 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2413 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2413 'SYMBOL) 'GROUP.2413))
(INSERT-ITEM GROUP GROUP.2413)
(DEFVAR GROUP.160)
(PROG1 (SETF GROUP.160 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.160 'NAME) "Labor Unions") (SETF (SLOT-VALUE GROUP.160 'ISSUES) (LIST 'HEALTH-CARE 'SOCIAL-SECURITY)) (SETF (SLOT-VALUE GROUP.160 'STANCES) (LIST (INIT-STANCE '(LABOR PRO B LABOR GROUP)) (INIT-STANCE '(HEALTH PRO B LABOR GROUP)) (INIT-STANCE '(SOCIAL-SECURITY PRO B LABOR GROUP)) (INIT-STANCE '(PLANT-CLOSING PRO B LABOR GROUP)) (INIT-STANCE '(SAFETY PRO B LABOR GROUP)))) (SETF (SLOT-VALUE GROUP.160 'ENGLISH) "labor unions") (SETF (SLOT-VALUE GROUP.160 'ENGLISH-SHORT) "unions") (SETF (SLOT-VALUE GROUP.160 'PRO-ENGLISH) "hardworking union members") (SETF (SLOT-VALUE GROUP.160 'CON-ENGLISH) "labor bosses") (SETF (SLOT-VALUE GROUP.160 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.160 'SYNONYMS) (LIST 'LABOR 'UNIONS 'UNION)) (SETF (SLOT-VALUE GROUP.160 'NORM) (INIT-RELATION '(LABOR CON C GROUP.160 GROUP))) (SETF (SLOT-VALUE GROUP.160 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.160 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.160 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.160 'SYMBOL) 'GROUP.160) (SETF (SLOT-VALUE GROUP.160 'KEYWORDS) (LIST 'NEA 'AFLCIO 'TEAMSTERS)))
(INSERT-ITEM GROUP GROUP.160)
(DEFVAR GROUP.3056)
(PROG1 (SETF GROUP.3056 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3056 'NAME) "League of Conservation Voters") (SETF (SLOT-VALUE GROUP.3056 'ISSUES) (LIST 'ENVIRONMENT 'CONSERVATION)) (SETF (SLOT-VALUE GROUP.3056 'STANCES) (LIST (INIT-STANCE '(ENERGY PRO B LCV GROUP)) (INIT-STANCE '(ENVIRONMENT PRO B LCV GROUP)) (INIT-STANCE '(CLEAN-WATER PRO B LCV GROUP)) (INIT-STANCE '(CLEAN-AIR PRO B LCV GROUP)) (INIT-STANCE '(SUPERFUND PRO B LCV GROUP)) (INIT-STANCE '(CLINCH-RIVER CON B LCV GROUP)))) (SETF (SLOT-VALUE GROUP.3056 'ENGLISH) "the League of Conservation Voters") (SETF (SLOT-VALUE GROUP.3056 'ENGLISH-SHORT) "the LCV") (SETF (SLOT-VALUE GROUP.3056 'SYNONYMS) (LIST 'LCV)) (SETF (SLOT-VALUE GROUP.3056 'NORM) (INIT-RELATION '(LCV PRO C GROUP.3056 GROUP))) (SETF (SLOT-VALUE GROUP.3056 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.3056 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3056 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE GROUP.3056 'SYMBOL) 'GROUP.3056))
(INSERT-ITEM GROUP GROUP.3056)
(DEFVAR GROUP.3219)
(PROG1 (SETF GROUP.3219 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3219 'NAME) "League of Women Voters") (SETF (SLOT-VALUE GROUP.3219 'ENGLISH) "the League of Women Voters") (SETF (SLOT-VALUE GROUP.3219 'ENGLISH-SHORT) "LWV") (SETF (SLOT-VALUE GROUP.3219 'SYNONYMS) (LIST 'LWV)) (SETF (SLOT-VALUE GROUP.3219 'NORM) (INIT-RELATION '(LWV PRO C GROUP.3219 GROUP))) (SETF (SLOT-VALUE GROUP.3219 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.3219 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3219 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE GROUP.3219 'SYMBOL) 'GROUP.3219))
(INSERT-ITEM GROUP GROUP.3219)
(DEFVAR GROUP.1406)
(PROG1 (SETF GROUP.1406 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1406 'NAME) "Legal Services") (SETF (SLOT-VALUE GROUP.1406 'ISSUES) (LIST 'JUSTICE)) (SETF (SLOT-VALUE GROUP.1406 'STANCES) (LIST (INIT-STANCE '(CIVIL-LIBERTIES PRO B LEGAL-AID GROUP)) (INIT-STANCE '(POVERTY PRO B LEGAL-AID GROUP)))) (SETF (SLOT-VALUE GROUP.1406 'ENGLISH) "Legal Services") (SETF (SLOT-VALUE GROUP.1406 'PRO-ENGLISH) "Legal Service's pursuit of justice for the poor") (SETF (SLOT-VALUE GROUP.1406 'CON-ENGLISH) "the liberal agenda of Legal Services") (SETF (SLOT-VALUE GROUP.1406 'SYNONYMS) (LIST 'LEGAL-AID 'LEGAL-SERVICES)) (SETF (SLOT-VALUE GROUP.1406 'NORM) (INIT-RELATION '(LEGAL-AID CON C GROUP.1406 GROUP))) (SETF (SLOT-VALUE GROUP.1406 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.1406 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1406 'DATE-OPEN) (LIST->DATE '(11 1 1988))) (SETF (SLOT-VALUE GROUP.1406 'SYMBOL) 'GROUP.1406))
(INSERT-ITEM GROUP GROUP.1406)
(DEFVAR GROUP.3052)
(PROG1 (SETF GROUP.3052 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3052 'NAME) "Lobbyist") (SETF (SLOT-VALUE GROUP.3052 'ENGLISH) "lobbyists") (SETF (SLOT-VALUE GROUP.3052 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.3052 'SYNONYMS) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.3052 'NORM) (INIT-RELATION '(LOBBYIST CON C GROUP.3052 GROUP))) (SETF (SLOT-VALUE GROUP.3052 'ISA) (LIST 'GROUP)) (SETF (SLOT-VALUE GROUP.3052 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3052 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE GROUP.3052 'SYMBOL) 'GROUP.3052))
(INSERT-ITEM GROUP GROUP.3052)
(DEFVAR GROUP.2422)
(PROG1 (SETF GROUP.2422 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2422 'NAME) "Mining Industry") (SETF (SLOT-VALUE GROUP.2422 'STANCES) (LIST (INIT-STANCE '(ENVIRONMENT CON B MINING GROUP)))) (SETF (SLOT-VALUE GROUP.2422 'ENGLISH) "the mining industry") (SETF (SLOT-VALUE GROUP.2422 'SYNONYMS) (LIST 'MINING 'MINERALS)) (SETF (SLOT-VALUE GROUP.2422 'NORM) (INIT-RELATION '(MINING PRO C GROUP.2422 GROUP))) (SETF (SLOT-VALUE GROUP.2422 'ISA) (LIST 'INDUSTRY)) (SETF (SLOT-VALUE GROUP.2422 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2422 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2422 'SYMBOL) 'GROUP.2422))
(INSERT-ITEM GROUP GROUP.2422)
(DEFVAR GROUP.2996)
(PROG1 (SETF GROUP.2996 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2996 'NAME) "Minority Groups") (SETF (SLOT-VALUE GROUP.2996 'STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B MINORITY GROUP)) (INIT-STANCE '(OPEN-HOUSING PRO B MINORITY GROUP)) (INIT-STANCE '(AFFIRMATIVE-ACTION PRO B MINORITY GROUP)) (INIT-STANCE '(RACISM CON B MINORITY GROUP)))) (SETF (SLOT-VALUE GROUP.2996 'ENGLISH) "minority groups") (SETF (SLOT-VALUE GROUP.2996 'ENGLISH-SHORT) "minorities") (SETF (SLOT-VALUE GROUP.2996 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.2996 'SYNONYMS) (LIST 'MINORITY)) (SETF (SLOT-VALUE GROUP.2996 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.2996 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2996 'DATE-OPEN) (LIST->DATE '(8 26 1988))) (SETF (SLOT-VALUE GROUP.2996 'SYMBOL) 'GROUP.2996))
(INSERT-ITEM GROUP GROUP.2996)
(DEFVAR GROUP.2410)
(PROG1 (SETF GROUP.2410 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2410 'NAME) "Municipal Officials") (SETF (SLOT-VALUE GROUP.2410 'ISSUES) (LIST 'POVERTY 'HOUSING 'BOND-TAXATION)) (SETF (SLOT-VALUE GROUP.2410 'STANCES) (LIST (INIT-STANCE '(POVERTY PRO B MUNICIPALITIES GROUP)) (INIT-STANCE '(HOUSING PRO B MUNICIPALITIES GROUP)) (INIT-STANCE '(LAW-AND-ORDER PRO B MUNICIPALITIES GROUP)))) (SETF (SLOT-VALUE GROUP.2410 'ENGLISH) "municipalities") (SETF (SLOT-VALUE GROUP.2410 'ENGLISH-SHORT) "cities") (SETF (SLOT-VALUE GROUP.2410 'PRO-ENGLISH) "our great urban centers") (SETF (SLOT-VALUE GROUP.2410 'CON-ENGLISH) "crime-infested cities") (SETF (SLOT-VALUE GROUP.2410 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.2410 'SYNONYMS) (LIST 'MUNICIPALITIES)) (SETF (SLOT-VALUE GROUP.2410 'NORM) (INIT-RELATION '(MUNICIPALITIES PRO C GROUP.2410 GROUP))) (SETF (SLOT-VALUE GROUP.2410 'ISA) (LIST 'STATE-AND-LOCAL)) (SETF (SLOT-VALUE GROUP.2410 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2410 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2410 'SYMBOL) 'GROUP.2410))
(INSERT-ITEM GROUP GROUP.2410)
(DEFVAR GROUP.174)
(PROG1 (SETF GROUP.174 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.174 'NAME) "National Association for the Advancement of Colored People") (SETF (SLOT-VALUE GROUP.174 'ISSUES) (LIST 'CIVIL-RIGHTS)) (SETF (SLOT-VALUE GROUP.174 'ENGLISH) "the NAACP") (SETF (SLOT-VALUE GROUP.174 'ENGLISH-SHORT) "the NAACP") (SETF (SLOT-VALUE GROUP.174 'PRO-ENGLISH) "the NAACP's courageous pursuit of civil rights") (SETF (SLOT-VALUE GROUP.174 'CON-ENGLISH) "the narrow special interest agenda of the NAACP") (SETF (SLOT-VALUE GROUP.174 'SYNONYMS) (LIST 'NAACP)) (SETF (SLOT-VALUE GROUP.174 'NORM) (INIT-RELATION '(NAACP PRO C GROUP.174 GROUP))) (SETF (SLOT-VALUE GROUP.174 'ISA) (LIST 'BLACKS)) (SETF (SLOT-VALUE GROUP.174 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.174 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.174 'SYMBOL) 'GROUP.174))
(INSERT-ITEM GROUP GROUP.174)
(DEFVAR GROUP.456)
(PROG1 (SETF GROUP.456 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.456 'NAME) "National Education Association") (SETF (SLOT-VALUE GROUP.456 'ISSUES) (LIST 'EDUCATION 'CHILD-CARE 'HEALTH)) (SETF (SLOT-VALUE GROUP.456 'STANCES) (LIST (INIT-STANCE '(EDUCATION PRO B NEA GROUP)) (INIT-STANCE '(LABOR PRO B NEA GROUP)) (INIT-STANCE '(CHILD-CARE PRO B NEA GROUP)) (INIT-STANCE '(HEALTH PRO C NEA GROUP)))) (SETF (SLOT-VALUE GROUP.456 'ENGLISH) "the National Education Association") (SETF (SLOT-VALUE GROUP.456 'ENGLISH-SHORT) "the NEA") (SETF (SLOT-VALUE GROUP.456 'SYNONYMS) (LIST 'NEA)) (SETF (SLOT-VALUE GROUP.456 'NORM) (INIT-RELATION '(NEA PRO C GROUP.456 GROUP))) (SETF (SLOT-VALUE GROUP.456 'ISA) (LIST 'LABOR)) (SETF (SLOT-VALUE GROUP.456 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.456 'DATE-OPEN) (LIST->DATE '(5 29 1990))) (SETF (SLOT-VALUE GROUP.456 'SYMBOL) 'GROUP.456))
(INSERT-ITEM GROUP GROUP.456)
(DEFVAR GROUP.2994)
(PROG1 (SETF GROUP.2994 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2994 'NAME) "National Organization of Women") (SETF (SLOT-VALUE GROUP.2994 'ENGLISH) "the National Organization of Women") (SETF (SLOT-VALUE GROUP.2994 'ENGLISH-SHORT) "NOW") (SETF (SLOT-VALUE GROUP.2994 'PRO-ENGLISH) "NOW's defense of the basic rights of women") (SETF (SLOT-VALUE GROUP.2994 'CON-ENGLISH) "NOW's radical feminist agenda") (SETF (SLOT-VALUE GROUP.2994 'SYNONYMS) (LIST 'NOW)) (SETF (SLOT-VALUE GROUP.2994 'NORM) (INIT-RELATION '(NOW CON C GROUP.2994 GROUP))) (SETF (SLOT-VALUE GROUP.2994 'ISA) (LIST 'WOMEN)) (SETF (SLOT-VALUE GROUP.2994 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2994 'DATE-OPEN) (LIST->DATE '(8 26 1988))) (SETF (SLOT-VALUE GROUP.2994 'SYMBOL) 'GROUP.2994))
(INSERT-ITEM GROUP GROUP.2994)
(DEFVAR GROUP.173)
(PROG1 (SETF GROUP.173 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.173 'NAME) "National Rifle Association") (SETF (SLOT-VALUE GROUP.173 'ISSUES) (LIST 'GUN-CONTROL)) (SETF (SLOT-VALUE GROUP.173 'STANCES) (LIST (INIT-STANCE '(GUN-CONTROL CON A NRA GROUP)) (INIT-STANCE '(BILL-OF-RIGHTS PRO B NRA GROUP)))) (SETF (SLOT-VALUE GROUP.173 'ENGLISH) "the National Rifle Association") (SETF (SLOT-VALUE GROUP.173 'ENGLISH-SHORT) "the NRA") (SETF (SLOT-VALUE GROUP.173 'PRO-ENGLISH) "the patriotic philosophy of the NRA") (SETF (SLOT-VALUE GROUP.173 'CON-ENGLISH) "the reactionary NRA gun lobby") (SETF (SLOT-VALUE GROUP.173 'SYNONYMS) (LIST 'NRA)) (SETF (SLOT-VALUE GROUP.173 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.173 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.173 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.173 'SYMBOL) 'GROUP.173))
(INSERT-ITEM GROUP GROUP.173)
(DEFVAR GROUP.3059)
(PROG1 (SETF GROUP.3059 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3059 'NAME) "National Security Index of the American Security Council") (SETF (SLOT-VALUE GROUP.3059 'ISSUES) (LIST 'FOREIGN 'DEFENSE 'WEAPONS)) (SETF (SLOT-VALUE GROUP.3059 'STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B NSI GROUP)) (INIT-STANCE '(MX PRO B NSI GROUP)) (INIT-STANCE '(B-1 PRO B NSI GROUP)) (INIT-STANCE '(EL-SALVADOR PRO B NSI GROUP)) (INIT-STANCE '(NUCLEAR-FREEZE CON C NSI GROUP)))) (SETF (SLOT-VALUE GROUP.3059 'ENGLISH) "the American Security Council") (SETF (SLOT-VALUE GROUP.3059 'ENGLISH-SHORT) "the NSI") (SETF (SLOT-VALUE GROUP.3059 'PRO-ENGLISH) "the sound defense posture of the NSI") (SETF (SLOT-VALUE GROUP.3059 'CON-ENGLISH) "the NSI as an example of the radical right") (SETF (SLOT-VALUE GROUP.3059 'SYNONYMS) (LIST 'NSI)) (SETF (SLOT-VALUE GROUP.3059 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.3059 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3059 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE GROUP.3059 'SYMBOL) 'GROUP.3059))
(INSERT-ITEM GROUP GROUP.3059)
(DEFVAR GROUP.3058)
(PROG1 (SETF GROUP.3058 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3058 'NAME) "National Taxpayers Union") (SETF (SLOT-VALUE GROUP.3058 'ISSUES) (LIST 'TAXES 'SPENDING 'WASTE)) (SETF (SLOT-VALUE GROUP.3058 'STANCES) (LIST (INIT-STANCE '(TAXES CON B NTU GROUP)) (INIT-STANCE '(TAX-REFORM PRO B NTU GROUP)))) (SETF (SLOT-VALUE GROUP.3058 'ENGLISH) "the National Taxpayers Union") (SETF (SLOT-VALUE GROUP.3058 'ENGLISH-SHORT) "the NTU") (SETF (SLOT-VALUE GROUP.3058 'PRO-ENGLISH) "the NTU -- the taxpayer's lobbyist") (SETF (SLOT-VALUE GROUP.3058 'SYNONYMS) (LIST 'NTU)) (SETF (SLOT-VALUE GROUP.3058 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.3058 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3058 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE GROUP.3058 'SYMBOL) 'GROUP.3058))
(INSERT-ITEM GROUP GROUP.3058)
(DEFVAR GROUP.168)
(PROG1 (SETF GROUP.168 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.168 'NAME) "Native Americans") (SETF (SLOT-VALUE GROUP.168 'ISSUES) (LIST 'CIVIL-RIGHTS)) (SETF (SLOT-VALUE GROUP.168 'ENGLISH) "native Americans") (SETF (SLOT-VALUE GROUP.168 'ENGLISH-SHORT) "indians") (SETF (SLOT-VALUE GROUP.168 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.168 'SYNONYMS) (LIST 'INDIANS)) (SETF (SLOT-VALUE GROUP.168 'ISA) (LIST 'ETHNIC)) (SETF (SLOT-VALUE GROUP.168 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.168 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.168 'SYMBOL) 'GROUP.168))
(INSERT-ITEM GROUP GROUP.168)
(DEFVAR GROUP.1914)
(PROG1 (SETF GROUP.1914 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1914 'NAME) "News Media") (SETF (SLOT-VALUE GROUP.1914 'ISSUES) (LIST 'FREEDOM-OF-THE-PRESS)) (SETF (SLOT-VALUE GROUP.1914 'ENGLISH) "the news media") (SETF (SLOT-VALUE GROUP.1914 'SYNONYMS) (LIST 'NEWS 'MEDIA)) (SETF (SLOT-VALUE GROUP.1914 'ISA) (LIST 'GROUP)) (SETF (SLOT-VALUE GROUP.1914 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1914 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.1914 'SYMBOL) 'GROUP.1914))
(INSERT-ITEM GROUP GROUP.1914)
(DEFVAR GROUP.2412)
(PROG1 (SETF GROUP.2412 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2412 'NAME) "Newspaper Editors") (SETF (SLOT-VALUE GROUP.2412 'ENGLISH) "newspaper editors") (SETF (SLOT-VALUE GROUP.2412 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.2412 'SYNONYMS) (LIST 'EDITOR)) (SETF (SLOT-VALUE GROUP.2412 'ISA) (LIST 'JOURNALIST)) (SETF (SLOT-VALUE GROUP.2412 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2412 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2412 'SYMBOL) 'GROUP.2412))
(INSERT-ITEM GROUP GROUP.2412)
(DEFVAR GROUP.1915)
(PROG1 (SETF GROUP.1915 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1915 'NAME) "Newspapers") (SETF (SLOT-VALUE GROUP.1915 'ENGLISH) "newspapers") (SETF (SLOT-VALUE GROUP.1915 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.1915 'ISA) (LIST 'MEDIA)) (SETF (SLOT-VALUE GROUP.1915 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1915 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.1915 'SYMBOL) 'GROUP.1915))
(INSERT-ITEM GROUP GROUP.1915)
(DEFVAR GROUP.2582)
(PROG1 (SETF GROUP.2582 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2582 'NAME) "Occupational Health and Safety Administration") (SETF (SLOT-VALUE GROUP.2582 'ISSUES) (LIST 'SAFETY 'HEALTH)) (SETF (SLOT-VALUE GROUP.2582 'ENGLISH) "the Occupational Health and Safety Administration") (SETF (SLOT-VALUE GROUP.2582 'ENGLISH-SHORT) "OSHA") (SETF (SLOT-VALUE GROUP.2582 'SYNONYMS) (LIST 'OSHA)) (SETF (SLOT-VALUE GROUP.2582 'NORM) (INIT-RELATION '(OSHA CON C GROUP.2582 GROUP))) (SETF (SLOT-VALUE GROUP.2582 'ISA) (LIST 'US-AGENCY)) (SETF (SLOT-VALUE GROUP.2582 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2582 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE GROUP.2582 'SYMBOL) 'GROUP.2582))
(INSERT-ITEM GROUP GROUP.2582)
(DEFVAR GROUP.2420)
(PROG1 (SETF GROUP.2420 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2420 'NAME) "Oil Industry") (SETF (SLOT-VALUE GROUP.2420 'STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B OIL GROUP)) (INIT-STANCE '(ENVIRONMENT CON B OIL GROUP)))) (SETF (SLOT-VALUE GROUP.2420 'ENGLISH) "the oil industry") (SETF (SLOT-VALUE GROUP.2420 'SYNONYMS) (LIST 'OIL)) (SETF (SLOT-VALUE GROUP.2420 'NORM) (INIT-RELATION '(OIL CON C GROUP.2420 GROUP))) (SETF (SLOT-VALUE GROUP.2420 'ISA) (LIST 'INDUSTRY)) (SETF (SLOT-VALUE GROUP.2420 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2420 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2420 'SYMBOL) 'GROUP.2420))
(INSERT-ITEM GROUP GROUP.2420)
(DEFVAR GROUP.2417)
(PROG1 (SETF GROUP.2417 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2417 'NAME) "Opponents") (SETF (SLOT-VALUE GROUP.2417 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.2417 'SYNONYMS) (LIST 'OPPONENT 'OPPOSITION)) (SETF (SLOT-VALUE GROUP.2417 'NORM) (INIT-RELATION '(OPPONENTS CON B GROUP.2417 GROUP))) (SETF (SLOT-VALUE GROUP.2417 'ISA) (LIST 'GROUP)) (SETF (SLOT-VALUE GROUP.2417 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2417 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2417 'SYMBOL) 'GROUP.2417))
(INSERT-ITEM GROUP GROUP.2417)
(DEFVAR GROUP.3131)
(PROG1 (SETF GROUP.3131 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3131 'NAME) "Palestine Liberation Organization") (SETF (SLOT-VALUE GROUP.3131 'STANCES) (LIST (INIT-STANCE '(ISRAEL CON B PLO GROUP)))) (SETF (SLOT-VALUE GROUP.3131 'ENGLISH) "the Palestine Liberation Organization") (SETF (SLOT-VALUE GROUP.3131 'ENGLISH-SHORT) "the PLO") (SETF (SLOT-VALUE GROUP.3131 'PRO-ENGLISH) "the PLO as a legitimate representative of the interests of Palestinians") (SETF (SLOT-VALUE GROUP.3131 'CON-ENGLISH) "the terrorist PLO") (SETF (SLOT-VALUE GROUP.3131 'SYNONYMS) (LIST 'PLO)) (SETF (SLOT-VALUE GROUP.3131 'NORM) (INIT-RELATION '(PLO CON B GROUP.3131 GROUP))) (SETF (SLOT-VALUE GROUP.3131 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE GROUP.3131 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3131 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3131 'SYMBOL) 'GROUP.3131))
(INSERT-ITEM GROUP GROUP.3131)
(DEFVAR GROUP.2414)

(PROG1 (SETF GROUP.2414 (MAKE-INSTANCE 'GROUP))
       (SETF (SLOT-VALUE GROUP.2414 'NAME) "Party Activists")
       (SETF (SLOT-VALUE GROUP.2414 'ENGLISH) "party activists")
       (SETF (SLOT-VALUE GROUP.2414 'NUMBER) 'PLUR)
       (SETF (SLOT-VALUE GROUP.2414 'SYNONYMS) (LIST 'POL 'POLS))
       (SETF (SLOT-VALUE GROUP.2414 'ISA) (LIST 'SUPPORTER))
       (SETF (SLOT-VALUE GROUP.2414 'STATUS) "Active")
       (SETF (SLOT-VALUE GROUP.2414 'DATE-OPEN) (LIST->DATE '(8 28 1988)))
       (SETF (SLOT-VALUE GROUP.2414 'SYMBOL) 'GROUP.2414))