;; Macintosh HD:lisp:db:data:group1 
(PROG1 (SETF GROUP.868 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.868 'NAME) "Environmental Defense Fund") (SETF (SLOT-VALUE GROUP.868 'ISSUES) (LIST 'ENVIRONMENT 'CONSERVATION 'SMOKING-BAN)) (SETF (SLOT-VALUE GROUP.868 'STANCES) (LIST (INIT-STANCE '(CLEAN-AIR PRO B ENVIRONMENTAL-DEFENSE-FUND GROUP)) (INIT-STANCE '(DEREGULATION CON B ENVIRONMENTAL-DEFENSE-FUND GROUP)) (INIT-STANCE '(ECOLOGY PRO B ENVIRONMENTAL-DEFENSE-FUND GROUP)) (INIT-STANCE '(ACID-RAIN-CONTROL PRO B ENVIRONMENTAL-DEFENSE-FUND GROUP)) (INIT-STANCE '(CLEAN-WATER PRO B ENVIRONMENTAL-DEFENSE-FUND GROUP)))) (SETF (SLOT-VALUE GROUP.868 'ENGLISH) "the Environmental Defense Fund") (SETF (SLOT-VALUE GROUP.868 'ENGLISH-SHORT) "EDF") (SETF (SLOT-VALUE GROUP.868 'SYNONYMS) (LIST 'ENVIRONMENTAL-DEFENSE-FUND)) (SETF (SLOT-VALUE GROUP.868 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.868 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.868 'DATE-OPEN) (LIST->DATE '(9 25 1988))) (SETF (SLOT-VALUE GROUP.868 'SYMBOL) 'GROUP.868))
(INSERT-ITEM GROUP GROUP.868)
(DEFVAR GROUP.3136)
(PROG1 (SETF GROUP.3136 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3136 'NAME) "Environmental Protection Agency") (SETF (SLOT-VALUE GROUP.3136 'ISSUES) (LIST 'ENVIRONMENT)) (SETF (SLOT-VALUE GROUP.3136 'ENGLISH) "the Environmental Protection Agency") (SETF (SLOT-VALUE GROUP.3136 'ENGLISH-SHORT) "EPA") (SETF (SLOT-VALUE GROUP.3136 'SYNONYMS) (LIST 'EPA)) (SETF (SLOT-VALUE GROUP.3136 'NORM) (INIT-RELATION '(EPA PRO C GROUP.3136 GROUP))) (SETF (SLOT-VALUE GROUP.3136 'ISA) (LIST 'US-AGENCY)) (SETF (SLOT-VALUE GROUP.3136 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3136 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3136 'SYMBOL) 'GROUP.3136))
(INSERT-ITEM GROUP GROUP.3136)
(DEFVAR GROUP.1601)
(PROG1 (SETF GROUP.1601 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1601 'NAME) "Ethnic") (SETF (SLOT-VALUE GROUP.1601 'STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B ETHNIC GROUP)) (INIT-STANCE '(OPEN-HOUSING PRO B ETHNIC GROUP)) (INIT-STANCE '(AFFIRMATIVE-ACTION PRO B ETHNIC GROUP)) (INIT-STANCE '(RACISM CON B ETHNIC GROUP)))) (SETF (SLOT-VALUE GROUP.1601 'ENGLISH) "ethnics") (SETF (SLOT-VALUE GROUP.1601 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.1601 'ISA) (LIST 'MINORITY)) (SETF (SLOT-VALUE GROUP.1601 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1601 'DATE-OPEN) (LIST->DATE '(8 26 1988))) (SETF (SLOT-VALUE GROUP.1601 'SYMBOL) 'GROUP.1601))
(INSERT-ITEM GROUP GROUP.1601)
(DEFVAR GROUP.172)
(PROG1 (SETF GROUP.172 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.172 'NAME) "Evangelicals") (SETF (SLOT-VALUE GROUP.172 'ISSUES) (LIST 'ABORTION 'CREATIONISM)) (SETF (SLOT-VALUE GROUP.172 'STANCES) (LIST (INIT-STANCE '(ABORTION CON B EVANGELICALS GROUP)) (INIT-STANCE '(CREATIONISM PRO B EVANGELICALS GROUP)))) (SETF (SLOT-VALUE GROUP.172 'ENGLISH) "evangelicals") (SETF (SLOT-VALUE GROUP.172 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.172 'ISA) (LIST 'CHRISTIANS)) (SETF (SLOT-VALUE GROUP.172 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.172 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.172 'SYMBOL) 'GROUP.172))
(INSERT-ITEM GROUP GROUP.172)
(DEFVAR GROUP.2407)
(PROG1 (SETF GROUP.2407 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2407 'NAME) "Farming") (SETF (SLOT-VALUE GROUP.2407 'ISSUES) (LIST 'AGRICULTURE)) (SETF (SLOT-VALUE GROUP.2407 'STANCES) (LIST (INIT-STANCE '(FARM PRO B FARMING GROUP)))) (SETF (SLOT-VALUE GROUP.2407 'ENGLISH) "the farming community") (SETF (SLOT-VALUE GROUP.2407 'NORM) (INIT-RELATION '(FARMING PRO C GROUP.2407 GROUP))) (SETF (SLOT-VALUE GROUP.2407 'ISA) (LIST 'INDUSTRY)) (SETF (SLOT-VALUE GROUP.2407 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2407 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2407 'SYMBOL) 'GROUP.2407))
(INSERT-ITEM GROUP GROUP.2407)
(DEFVAR GROUP.2426)
(PROG1 (SETF GROUP.2426 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2426 'NAME) "Fishing Industry") (SETF (SLOT-VALUE GROUP.2426 'ENGLISH) "the fishing industry") (SETF (SLOT-VALUE GROUP.2426 'SYNONYMS) (LIST 'FISHING)) (SETF (SLOT-VALUE GROUP.2426 'NORM) (INIT-RELATION '(FISHING PRO C GROUP.2426 GROUP))) (SETF (SLOT-VALUE GROUP.2426 'ISA) (LIST 'INDUSTRY)) (SETF (SLOT-VALUE GROUP.2426 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2426 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2426 'SYMBOL) 'GROUP.2426))
(INSERT-ITEM GROUP GROUP.2426)
(DEFVAR GROUP.3130)
(PROG1 (SETF GROUP.3130 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3130 'NAME) "Foreign Groups") (SETF (SLOT-VALUE GROUP.3130 'ENGLISH) "foreign groups") (SETF (SLOT-VALUE GROUP.3130 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.3130 'SYNONYMS) (LIST 'FOREIGN)) (SETF (SLOT-VALUE GROUP.3130 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.3130 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3130 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3130 'SYMBOL) 'GROUP.3130))
(INSERT-ITEM GROUP GROUP.3130)
(DEFVAR GROUP.2416)
(PROG1 (SETF GROUP.2416 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.2416 'NAME) "Friends") (SETF (SLOT-VALUE GROUP.2416 'ENGLISH) "friends") (SETF (SLOT-VALUE GROUP.2416 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.2416 'SYNONYMS) (LIST 'FRIEND)) (SETF (SLOT-VALUE GROUP.2416 'NORM) (INIT-RELATION '(FRIENDS PRO B GROUP.2416 GROUP))) (SETF (SLOT-VALUE GROUP.2416 'ISA) (LIST 'SUPPORTER)) (SETF (SLOT-VALUE GROUP.2416 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.2416 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE GROUP.2416 'SYMBOL) 'GROUP.2416))
(INSERT-ITEM GROUP GROUP.2416)
(DEFVAR GROUP.157)
(PROG1 (SETF GROUP.157 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.157 'NAME) "Gays") (SETF (SLOT-VALUE GROUP.157 'ISSUES) (LIST 'AIDS)) (SETF (SLOT-VALUE GROUP.157 'STANCES) (LIST (INIT-STANCE '(AIDS PRO B GAYS GROUP)) (INIT-STANCE '(CIVIL-RIGHTS PRO B GAYS GROUP)))) (SETF (SLOT-VALUE GROUP.157 'ENGLISH) "homosexuals") (SETF (SLOT-VALUE GROUP.157 'ENGLISH-SHORT) "gays") (SETF (SLOT-VALUE GROUP.157 'PRO-ENGLISH) "the legimate rights of gays") (SETF (SLOT-VALUE GROUP.157 'CON-ENGLISH) "immoral homosexuals") (SETF (SLOT-VALUE GROUP.157 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.157 'SYNONYMS) (LIST 'LESBIANS 'HOMOSEXUALS)) (SETF (SLOT-VALUE GROUP.157 'NORM) (INIT-RELATION '(GAYS CON C GROUP.157 GROUP))) (SETF (SLOT-VALUE GROUP.157 'ISA) (LIST 'MINORITY)) (SETF (SLOT-VALUE GROUP.157 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.157 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.157 'SYMBOL) 'GROUP.157))
(INSERT-ITEM GROUP GROUP.157)
(DEFVAR GROUP.696)
(PROG1 (SETF GROUP.696 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.696 'NAME) "Generic Group") (SETF (SLOT-VALUE GROUP.696 'SYNONYMS) (LIST 'GROUP)) (SETF (SLOT-VALUE GROUP.696 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.696 'DATE-OPEN) (LIST->DATE '(1 31 1989))) (SETF (SLOT-VALUE GROUP.696 'SYMBOL) 'GROUP.696))
(INSERT-ITEM GROUP GROUP.696)
(DEFVAR GROUP.170)
(PROG1 (SETF GROUP.170 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.170 'NAME) "Handicapped") (SETF (SLOT-VALUE GROUP.170 'ISSUES) (LIST 'CIVIL-RIGHTS)) (SETF (SLOT-VALUE GROUP.170 'STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B HANDICAPPED GROUP)))) (SETF (SLOT-VALUE GROUP.170 'ENGLISH) "physically challenged Americans") (SETF (SLOT-VALUE GROUP.170 'ENGLISH-SHORT) "the handicapped") (SETF (SLOT-VALUE GROUP.170 'PRO-ENGLISH) "the legitimate rights and concerns of the handicapped") (SETF (SLOT-VALUE GROUP.170 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.170 'NORM) (INIT-RELATION '(HANDICAPPED PRO C GROUP.170 GROUP))) (SETF (SLOT-VALUE GROUP.170 'ISA) (LIST 'MINORITY)) (SETF (SLOT-VALUE GROUP.170 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.170 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.170 'SYMBOL) 'GROUP.170))
(INSERT-ITEM GROUP GROUP.170)
(DEFVAR GROUP.161)
(PROG1 (SETF GROUP.161 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.161 'NAME) "Hawks") (SETF (SLOT-VALUE GROUP.161 'ISSUES) (LIST 'CONTRA-AID)) (SETF (SLOT-VALUE GROUP.161 'STANCES) (LIST (INIT-STANCE '(CONTRA-AID PRO B HAWKS GROUP)) (INIT-STANCE '(WEAPONS PRO B HAWKS GROUP)) (INIT-STANCE '(DEFENSE PRO B HAWKS GROUP)))) (SETF (SLOT-VALUE GROUP.161 'ENGLISH) "hawks") (SETF (SLOT-VALUE GROUP.161 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.161 'NORM) (INIT-RELATION '(HAWKS CON C GROUP.161 GROUP))) (SETF (SLOT-VALUE GROUP.161 'ISA) (LIST 'LOBBY)) (SETF (SLOT-VALUE GROUP.161 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.161 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.161 'SYMBOL) 'GROUP.161))
(INSERT-ITEM GROUP GROUP.161)
(DEFVAR GROUP.167)
(PROG1 (SETF GROUP.167 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.167 'NAME) "Hispanics") (SETF (SLOT-VALUE GROUP.167 'ISSUES) (LIST 'CIVIL-RIGHTS)) (SETF (SLOT-VALUE GROUP.167 'STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B HISPANICS GROUP)) (INIT-STANCE '(RACISM CON B HISPANICS GROUP)))) (SETF (SLOT-VALUE GROUP.167 'ENGLISH) "Hispanic-Americans") (SETF (SLOT-VALUE GROUP.167 'ENGLISH-SHORT) "hispanics") (SETF (SLOT-VALUE GROUP.167 'NUMBER) 'PLUR) (SETF (SLOT-VALUE GROUP.167 'ISA) (LIST 'ETHNIC)) (SETF (SLOT-VALUE GROUP.167 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.167 'DATE-OPEN) (LIST->DATE '(8 25 1988))) (SETF (SLOT-VALUE GROUP.167 'SYMBOL) 'GROUP.167))
(INSERT-ITEM GROUP GROUP.167)
(DEFVAR GROUP.3172)
(PROG1 (SETF GROUP.3172 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3172 'NAME) "House Administration Committee") (SETF (SLOT-VALUE GROUP.3172 'ISSUES) (LIST 'CAMPAIGN-FINANCE)) (SETF (SLOT-VALUE GROUP.3172 'SYNONYMS) (LIST 'HOUSE-ADMINISTRATION)) (SETF (SLOT-VALUE GROUP.3172 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3172 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3172 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3172 'SYMBOL) 'GROUP.3172))
(INSERT-ITEM GROUP GROUP.3172)
(DEFVAR GROUP.3170)
(PROG1 (SETF GROUP.3170 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3170 'NAME) "House Agriculture Committee") (SETF (SLOT-VALUE GROUP.3170 'ISSUES) (LIST 'FARM)) (SETF (SLOT-VALUE GROUP.3170 'SYNONYMS) (LIST 'HOUSE-AGRICULTURE)) (SETF (SLOT-VALUE GROUP.3170 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3170 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3170 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3170 'SYMBOL) 'GROUP.3170))
(INSERT-ITEM GROUP GROUP.3170)
(DEFVAR GROUP.3162)
(PROG1 (SETF GROUP.3162 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3162 'NAME) "House Appropriations Committee") (SETF (SLOT-VALUE GROUP.3162 'SYNONYMS) (LIST 'HOUSE-APPROPRIATIONS)) (SETF (SLOT-VALUE GROUP.3162 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3162 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3162 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3162 'SYMBOL) 'GROUP.3162))
(INSERT-ITEM GROUP GROUP.3162)
(DEFVAR GROUP.3169)
(PROG1 (SETF GROUP.3169 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3169 'NAME) "House Armed Services Committee") (SETF (SLOT-VALUE GROUP.3169 'ISSUES) (LIST 'DEFENSE)) (SETF (SLOT-VALUE GROUP.3169 'SYNONYMS) (LIST 'HOUSE-ARMED-SERVICES)) (SETF (SLOT-VALUE GROUP.3169 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3169 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3169 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3169 'SYMBOL) 'GROUP.3169))
(INSERT-ITEM GROUP GROUP.3169)
(DEFVAR GROUP.3171)
(PROG1 (SETF GROUP.3171 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3171 'NAME) "House Banking, Finance, and Urban Affairs") (SETF (SLOT-VALUE GROUP.3171 'ISSUES) (LIST 'BANKING)) (SETF (SLOT-VALUE GROUP.3171 'SYNONYMS) (LIST 'HOUSE-BANKING)) (SETF (SLOT-VALUE GROUP.3171 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3171 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3171 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3171 'SYMBOL) 'GROUP.3171))
(INSERT-ITEM GROUP GROUP.3171)
(DEFVAR GROUP.3159)
(PROG1 (SETF GROUP.3159 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3159 'NAME) "House Budget Committee") (SETF (SLOT-VALUE GROUP.3159 'SYNONYMS) (LIST 'HOUSE-BUDGET)) (SETF (SLOT-VALUE GROUP.3159 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3159 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3159 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3159 'SYMBOL) 'GROUP.3159))
(INSERT-ITEM GROUP GROUP.3159)
(DEFVAR GROUP.3176)
(PROG1 (SETF GROUP.3176 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3176 'NAME) "House Democratic Caucus") (SETF (SLOT-VALUE GROUP.3176 'SYNONYMS) (LIST 'HOUSE-DEMOCRATIC-CAUCUS)) (SETF (SLOT-VALUE GROUP.3176 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3176 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3176 'DATE-OPEN) (LIST->DATE '(9 6 1988))) (SETF (SLOT-VALUE GROUP.3176 'SYMBOL) 'GROUP.3176))
(INSERT-ITEM GROUP GROUP.3176)
(DEFVAR GROUP.1080)
(PROG1 (SETF GROUP.1080 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1080 'NAME) "House District of Columbia Committee") (SETF (SLOT-VALUE GROUP.1080 'SYNONYMS) (LIST 'HOUSE-DC)) (SETF (SLOT-VALUE GROUP.1080 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1080 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1080 'DATE-OPEN) (LIST->DATE '(9 19 1989))) (SETF (SLOT-VALUE GROUP.1080 'SYMBOL) 'GROUP.1080))
(INSERT-ITEM GROUP GROUP.1080)
(DEFVAR GROUP.3166)
(PROG1 (SETF GROUP.3166 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3166 'NAME) "House Education and Labor Committee") (SETF (SLOT-VALUE GROUP.3166 'ISSUES) (LIST 'EDUCATION)) (SETF (SLOT-VALUE GROUP.3166 'SYNONYMS) (LIST 'HOUSE-EDUCATION)) (SETF (SLOT-VALUE GROUP.3166 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3166 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3166 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3166 'SYMBOL) 'GROUP.3166))
(INSERT-ITEM GROUP GROUP.3166)
(DEFVAR GROUP.3161)
(PROG1 (SETF GROUP.3161 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3161 'NAME) "House Energy and Commerce Committee") (SETF (SLOT-VALUE GROUP.3161 'SYNONYMS) (LIST 'HOUSE-ENERGY)) (SETF (SLOT-VALUE GROUP.3161 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3161 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3161 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3161 'SYMBOL) 'GROUP.3161))
(INSERT-ITEM GROUP GROUP.3161)
(DEFVAR GROUP.3167)
(PROG1 (SETF GROUP.3167 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3167 'NAME) "House Foreign Affairs Committee") (SETF (SLOT-VALUE GROUP.3167 'ISSUES) (LIST 'FOREIGN)) (SETF (SLOT-VALUE GROUP.3167 'SYNONYMS) (LIST 'HOUSE-FOREIGN)) (SETF (SLOT-VALUE GROUP.3167 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3167 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3167 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3167 'SYMBOL) 'GROUP.3167))
(INSERT-ITEM GROUP GROUP.3167)
(DEFVAR GROUP.1057)
(PROG1 (SETF GROUP.1057 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1057 'NAME) "House Government Operations Committee") (SETF (SLOT-VALUE GROUP.1057 'SYNONYMS) (LIST 'HOUSE-GOVERNMENT-OPERATIONS)) (SETF (SLOT-VALUE GROUP.1057 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1057 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1057 'DATE-OPEN) (LIST->DATE '(9 19 1989))) (SETF (SLOT-VALUE GROUP.1057 'SYMBOL) 'GROUP.1057))
(INSERT-ITEM GROUP GROUP.1057)
(DEFVAR GROUP.3165)
(PROG1 (SETF GROUP.3165 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3165 'NAME) "House Interior Committee") (SETF (SLOT-VALUE GROUP.3165 'SYNONYMS) (LIST 'HOUSE-INTERIOR)) (SETF (SLOT-VALUE GROUP.3165 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3165 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3165 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3165 'SYMBOL) 'GROUP.3165))
(INSERT-ITEM GROUP GROUP.3165)
(DEFVAR GROUP.3164)
(PROG1 (SETF GROUP.3164 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3164 'NAME) "House Judiciary Committee") (SETF (SLOT-VALUE GROUP.3164 'ISSUES) (LIST 'ABORTION 'PRAYER 'DEATH-PENALTY 'GUN-CONTROL 'LAW-AND-ORDER 'BUSING)) (SETF (SLOT-VALUE GROUP.3164 'SYNONYMS) (LIST 'HOUSE-JUDICIARY)) (SETF (SLOT-VALUE GROUP.3164 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3164 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3164 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3164 'SYMBOL) 'GROUP.3164))
(INSERT-ITEM GROUP GROUP.3164)
(DEFVAR GROUP.3173)
(PROG1 (SETF GROUP.3173 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3173 'NAME) "House Majority Leader") (SETF (SLOT-VALUE GROUP.3173 'SYNONYMS) (LIST 'HOUSE-MAJORITY-LEADER)) (SETF (SLOT-VALUE GROUP.3173 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3173 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3173 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3173 'SYMBOL) 'GROUP.3173))
(INSERT-ITEM GROUP GROUP.3173)
(DEFVAR GROUP.3174)
(PROG1 (SETF GROUP.3174 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3174 'NAME) "House Majority Whip") (SETF (SLOT-VALUE GROUP.3174 'SYNONYMS) (LIST 'HOUSE-MAJORITY-WHIP)) (SETF (SLOT-VALUE GROUP.3174 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3174 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3174 'DATE-OPEN) (LIST->DATE '(9 6 1988))) (SETF (SLOT-VALUE GROUP.3174 'SYMBOL) 'GROUP.3174))
(INSERT-ITEM GROUP GROUP.3174)
(DEFVAR GROUP.1070)
(PROG1 (SETF GROUP.1070 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1070 'NAME) "House Merchant Marine and Fisheries Committee") (SETF (SLOT-VALUE GROUP.1070 'ISSUES) (LIST 'FISHING 'BOATING)) (SETF (SLOT-VALUE GROUP.1070 'SYNONYMS) (LIST 'HOUSE-MERCHANT-MARINE)) (SETF (SLOT-VALUE GROUP.1070 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1070 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1070 'DATE-OPEN) (LIST->DATE '(9 19 1989))) (SETF (SLOT-VALUE GROUP.1070 'SYMBOL) 'GROUP.1070))
(INSERT-ITEM GROUP GROUP.1070)
(DEFVAR GROUP.3175)
(PROG1 (SETF GROUP.3175 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3175 'NAME) "House Minority Leader") (SETF (SLOT-VALUE GROUP.3175 'SYNONYMS) (LIST 'HOUSE-MINORITY-LEADER)) (SETF (SLOT-VALUE GROUP.3175 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3175 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3175 'DATE-OPEN) (LIST->DATE '(9 6 1988))) (SETF (SLOT-VALUE GROUP.3175 'SYMBOL) 'GROUP.3175))
(INSERT-ITEM GROUP GROUP.3175)
(DEFVAR GROUP.1083)
(PROG1 (SETF GROUP.1083 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.1083 'NAME) "House Permanent Select Committee on Intelligence") (SETF (SLOT-VALUE GROUP.1083 'ISSUES) (LIST 'INTELLIGENCE)) (SETF (SLOT-VALUE GROUP.1083 'SYNONYMS) (LIST 'HOUSE-INTELLIGENCE)) (SETF (SLOT-VALUE GROUP.1083 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.1083 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.1083 'DATE-OPEN) (LIST->DATE '(9 19 1989))) (SETF (SLOT-VALUE GROUP.1083 'SYMBOL) 'GROUP.1083))
(INSERT-ITEM GROUP GROUP.1083)
(DEFVAR GROUP.3168)
(PROG1 (SETF GROUP.3168 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3168 'NAME) "House Public Works and Transportation") (SETF (SLOT-VALUE GROUP.3168 'ISSUES) (LIST 'PUBLIC-WORKS 'TRANSPORTATION)) (SETF (SLOT-VALUE GROUP.3168 'SYNONYMS) (LIST 'HOUSE-PUBLIC-WORKS)) (SETF (SLOT-VALUE GROUP.3168 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3168 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3168 'DATE-OPEN) (LIST->DATE '(9 5 1988))) (SETF (SLOT-VALUE GROUP.3168 'SYMBOL) 'GROUP.3168))
(INSERT-ITEM GROUP GROUP.3168)
(DEFVAR GROUP.3177)
(PROG1 (SETF GROUP.3177 (MAKE-INSTANCE 'GROUP)) (SETF (SLOT-VALUE GROUP.3177 'NAME) "House Republican Policy Caucus") (SETF (SLOT-VALUE GROUP.3177 'SYNONYMS) (LIST 'HOUSE-REPUBLICAN-CAUCUS)) (SETF (SLOT-VALUE GROUP.3177 'ISA) (LIST 'HOUSE)) (SETF (SLOT-VALUE GROUP.3177 'STATUS) "Active") (SETF (SLOT-VALUE GROUP.3177 'DATE-OPEN) (LIST->DATE '(9 6 1988))) (SETF (SLOT-VALUE GROUP.3177 'SYMBOL) 'GROUP.3177))

(INSERT-ITEM GROUP GROUP.3177)