;; Macintosh HD:lisp:db:data:member ;; list of command aliases. (SETF (db-aliases MEMBER) (list (list 'AR 'APPEND 'RELATIONS) (list 'ER 'EDIT 'RELATIONS) (list 'ANV 'APPEND 'NEW-VOTES) (list 'HL 'HEADERS 'LAST) (list 'HC 'HEADERS 'CURRENT) (list 'AC 'APPEND 'COMMITTEES) (list 'AV 'APPEND 'VOTES) (list 'SHOW 'DISPLAY) ) ) ;; Items for Database: MEMBER (defvar MEMBER.1032) (prog1 (setf MEMBER.1032 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1032 'NAME) "Daniel Kahikina Akaka") (setf (slot-value MEMBER.1032 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS '--) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CHILD-CARE 'FOR) ) ) (setf (slot-value MEMBER.1032 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1032 MEMBER))(init-relation '(ACLU PRO B MEMBER.1032 MEMBER))(init-relation '(COPE PRO B MEMBER.1032 MEMBER))(init-relation '(CFA PRO B MEMBER.1032 MEMBER))(init-relation '(LCV PRO C MEMBER.1032 MEMBER))(init-relation '(ACU CON C MEMBER.1032 MEMBER))(init-relation '(NTU CON C MEMBER.1032 MEMBER))(init-relation '(NSI CON C MEMBER.1032 MEMBER))(init-relation '(COC CON C MEMBER.1032 MEMBER))(init-relation '(CEI CON C MEMBER.1032 MEMBER))(init-relation '(AGRICULTURE PRO B MEMBER.1032 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1032 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1032 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1032 MEMBER))) ) (setf (slot-value MEMBER.1032 'DISTRICT) 'HI-2) (setf (slot-value MEMBER.1032 'TERM-START) "1976") (setf (slot-value MEMBER.1032 'TERM-END) "1990") (setf (slot-value MEMBER.1032 'PARTY) 'DEM) (setf (slot-value MEMBER.1032 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1032 'STATUS) "Active") (setf (slot-value MEMBER.1032 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1032 'SYMBOL) 'MEMBER.1032) ) (insert-item MEMBER MEMBER.1032) (defvar MEMBER.1063) (prog1 (setf MEMBER.1063 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1063 'NAME) "Les AuCoin") (setf (slot-value MEMBER.1063 'ENGLISH-SHORT) "AuCoin") (setf (slot-value MEMBER.1063 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS '--) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1063 'CREDO) (list (init-stance '(MX CON B MEMBER.1063 MEMBER)) (init-stance '(NUCLEAR-FREEZE PRO B MEMBER.1063 MEMBER)) (init-stance '(SPENDING CON B MEMBER.1063 MEMBER)) (init-stance '(ENVIRONMENT PRO B MEMBER.1063 MEMBER)) ) ) (setf (slot-value MEMBER.1063 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1063 MEMBER))(init-relation '(ACLU PRO B MEMBER.1063 MEMBER))(init-relation '(COPE PRO C MEMBER.1063 MEMBER))(init-relation '(CFA PRO C MEMBER.1063 MEMBER))(init-relation '(LCV PRO B MEMBER.1063 MEMBER))(init-relation '(ACU CON C MEMBER.1063 MEMBER))(init-relation '(NTU CON C MEMBER.1063 MEMBER))(init-relation '(NSI CON C MEMBER.1063 MEMBER))(init-relation '(COC PRO C MEMBER.1063 MEMBER))(init-relation '(ACA CON C MEMBER.1063 MEMBER))(init-relation '(CSFC CON C MEMBER.1063 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1063 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1063 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1063 MEMBER))) ) (setf (slot-value MEMBER.1063 'DISTRICT) 'OR-1) (setf (slot-value MEMBER.1063 'TERM-START) "1974") (setf (slot-value MEMBER.1063 'PARTY) 'DEM) (setf (slot-value MEMBER.1063 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1063 'STATUS) "Active") (setf (slot-value MEMBER.1063 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1063 'SYMBOL) 'MEMBER.1063) ) (insert-item MEMBER MEMBER.1063) (defvar MEMBER.1031) (prog1 (setf MEMBER.1031 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1031 'NAME) "Druie Douglas Barnard") (setf (slot-value MEMBER.1031 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1031 'RELATIONS) (list (init-relation '(ADA CON C MEMBER.1031 MEMBER))(init-relation '(ACLU CON B MEMBER.1031 MEMBER))(init-relation '(COPE CON C MEMBER.1031 MEMBER))(init-relation '(CFA CON C MEMBER.1031 MEMBER))(init-relation '(LCV CON C MEMBER.1031 MEMBER))(init-relation '(ACU PRO C MEMBER.1031 MEMBER))(init-relation '(NTU CON C MEMBER.1031 MEMBER))(init-relation '(NSI PRO B MEMBER.1031 MEMBER))(init-relation '(COC PRO C MEMBER.1031 MEMBER))(init-relation '(CEI CON C MEMBER.1031 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1031 MEMBER))) ) (setf (slot-value MEMBER.1031 'DISTRICT) 'GA-10) (setf (slot-value MEMBER.1031 'TERM-START) "1976") (setf (slot-value MEMBER.1031 'PARTY) 'DEM) (setf (slot-value MEMBER.1031 'COMMITTEES) (list 'HOUSE-BANKING) ) (setf (slot-value MEMBER.1031 'STATUS) "Active") (setf (slot-value MEMBER.1031 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1031 'SYMBOL) 'MEMBER.1031) ) (insert-item MEMBER MEMBER.1031) (defvar MEMBER.1030) (prog1 (setf MEMBER.1030 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1030 'NAME) "Charles Edward Bennett") (setf (slot-value MEMBER.1030 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1030 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1030 MEMBER))(init-relation '(COPE PRO C MEMBER.1030 MEMBER))(init-relation '(LCV PRO C MEMBER.1030 MEMBER))(init-relation '(ACU CON C MEMBER.1030 MEMBER))(init-relation '(NTU CON C MEMBER.1030 MEMBER))(init-relation '(CEI CON C MEMBER.1030 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1030 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1030 MEMBER))) ) (setf (slot-value MEMBER.1030 'DISTRICT) 'FL-3) (setf (slot-value MEMBER.1030 'TERM-START) "1948") (setf (slot-value MEMBER.1030 'PARTY) 'DEM) (setf (slot-value MEMBER.1030 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-MERCHANT-MARINE) ) (setf (slot-value MEMBER.1030 'STATUS) "Active") (setf (slot-value MEMBER.1030 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1030 'SYMBOL) 'MEMBER.1030) ) (insert-item MEMBER MEMBER.1030) (defvar MEMBER.1040) (prog1 (setf MEMBER.1040 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1040 'NAME) "Corinne Claiborne Lindy Boggs") (setf (slot-value MEMBER.1040 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1040 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL '--) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1040 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1040 MEMBER))(init-relation '(COPE PRO B MEMBER.1040 MEMBER))(init-relation '(CFA PRO B MEMBER.1040 MEMBER))(init-relation '(LCV PRO B MEMBER.1040 MEMBER))(init-relation '(ACU CON C MEMBER.1040 MEMBER))(init-relation '(NTU CON C MEMBER.1040 MEMBER))(init-relation '(NSI CON C MEMBER.1040 MEMBER))(init-relation '(COC CON C MEMBER.1040 MEMBER))(init-relation '(CEI CON B MEMBER.1040 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1040 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1040 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1040 MEMBER))) ) (setf (slot-value MEMBER.1040 'DISTRICT) 'LA-2) (setf (slot-value MEMBER.1040 'TERM-START) "1973") (setf (slot-value MEMBER.1040 'TERM-END) "1990") (setf (slot-value MEMBER.1040 'PARTY) 'DEM) (setf (slot-value MEMBER.1040 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1040 'STATUS) "Active") (setf (slot-value MEMBER.1040 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1040 'SYMBOL) 'MEMBER.1040) ) (insert-item MEMBER MEMBER.1040) (defvar MEMBER.1042) (prog1 (setf MEMBER.1042 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1042 'NAME) "Beverly Butcher Byron") (setf (slot-value MEMBER.1042 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1042 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1042 'RELATIONS) (list (init-relation '(ADA CON C MEMBER.1042 MEMBER))(init-relation '(ACLU CON C MEMBER.1042 MEMBER))(init-relation '(COPE PRO C MEMBER.1042 MEMBER))(init-relation '(ACU PRO B MEMBER.1042 MEMBER))(init-relation '(NSI PRO A MEMBER.1042 MEMBER))(init-relation '(COC PRO C MEMBER.1042 MEMBER))(init-relation '(CEI PRO C MEMBER.1042 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1042 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1042 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1042 MEMBER))) ) (setf (slot-value MEMBER.1042 'DISTRICT) 'MD-6) (setf (slot-value MEMBER.1042 'TERM-START) "1978") (setf (slot-value MEMBER.1042 'PARTY) 'DEM) (setf (slot-value MEMBER.1042 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-INTERIOR 'HOUSE-AGING) ) (setf (slot-value MEMBER.1042 'STATUS) "Active") (setf (slot-value MEMBER.1042 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1042 'SYMBOL) 'MEMBER.1042) ) (insert-item MEMBER MEMBER.1042) (defvar MEMBER.1029) (prog1 (setf MEMBER.1029 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1029 'NAME) "Thomas R. Carper") (setf (slot-value MEMBER.1029 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1029 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1029 MEMBER))(init-relation '(COPE PRO C MEMBER.1029 MEMBER))(init-relation '(ACU CON C MEMBER.1029 MEMBER))(init-relation '(NTU PRO C MEMBER.1029 MEMBER))(init-relation '(NSI CON C MEMBER.1029 MEMBER))(init-relation '(COC PRO C MEMBER.1029 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1029 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1029 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1029 MEMBER))) ) (setf (slot-value MEMBER.1029 'DISTRICT) 'DE-AL) (setf (slot-value MEMBER.1029 'TERM-START) "1982") (setf (slot-value MEMBER.1029 'PARTY) 'DEM) (setf (slot-value MEMBER.1029 'COMMITTEES) (list 'HOUSE-BANKING 'HOUSE-MERCHANT-MARINE) ) (setf (slot-value MEMBER.1029 'STATUS) "Active") (setf (slot-value MEMBER.1029 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1029 'SYMBOL) 'MEMBER.1029) ) (insert-item MEMBER MEMBER.1029) (defvar MEMBER.1047) (prog1 (setf MEMBER.1047 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1047 'NAME) "William Lacy Clay") (setf (slot-value MEMBER.1047 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI '--) (list 'AID-ANGOLA-REB '--) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1047 'ISSUES) (list 'LIBERAL) ) (setf (slot-value MEMBER.1047 'RELATIONS) (list (init-relation '(BLACKS PRO B MEMBER.1047 MEMBER))(init-relation '(ADA PRO A MEMBER.1047 MEMBER))(init-relation '(ACLU PRO A MEMBER.1047 MEMBER))(init-relation '(COPE PRO A MEMBER.1047 MEMBER))(init-relation '(CFA PRO B MEMBER.1047 MEMBER))(init-relation '(LCV PRO A MEMBER.1047 MEMBER))(init-relation '(ACU CON B MEMBER.1047 MEMBER))(init-relation '(NTU CON C MEMBER.1047 MEMBER))(init-relation '(NSI CON A MEMBER.1047 MEMBER))(init-relation '(COC CON B MEMBER.1047 MEMBER))(init-relation '(CEI CON A MEMBER.1047 MEMBER))(init-relation '(LABOR PRO A MEMBER.1047 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1047 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1047 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1047 MEMBER))) ) (setf (slot-value MEMBER.1047 'DISTRICT) 'MO-1) (setf (slot-value MEMBER.1047 'TERM-START) "1968") (setf (slot-value MEMBER.1047 'PARTY) 'DEM) (setf (slot-value MEMBER.1047 'COMMITTEES) (list 'HOUSE-EDUCATION 'HOUSE-ADMINISTRATION) ) (setf (slot-value MEMBER.1047 'STATUS) "Active") (setf (slot-value MEMBER.1047 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1047 'SYMBOL) 'MEMBER.1047) ) (insert-item MEMBER MEMBER.1047) (defvar MEMBER.1043) (prog1 (setf MEMBER.1043 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1043 'NAME) "Silvio Ottavio Conte") (setf (slot-value MEMBER.1043 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1043 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1043 MEMBER))(init-relation '(ACLU PRO C MEMBER.1043 MEMBER))(init-relation '(COPE PRO C MEMBER.1043 MEMBER))(init-relation '(CFA PRO A MEMBER.1043 MEMBER))(init-relation '(ACU CON C MEMBER.1043 MEMBER))(init-relation '(NTU CON C MEMBER.1043 MEMBER))(init-relation '(NSI CON A MEMBER.1043 MEMBER))(init-relation '(COC CON C MEMBER.1043 MEMBER))(init-relation '(CEI CON C MEMBER.1043 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1043 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1043 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1043 MEMBER))) ) (setf (slot-value MEMBER.1043 'DISTRICT) 'MA-1) (setf (slot-value MEMBER.1043 'TERM-START) "1958") (setf (slot-value MEMBER.1043 'TERM-END) "1990") (setf (slot-value MEMBER.1043 'PARTY) 'REP) (setf (slot-value MEMBER.1043 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1043 'STATUS) "Active") (setf (slot-value MEMBER.1043 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1043 'SYMBOL) 'MEMBER.1043) ) (insert-item MEMBER MEMBER.1043) (defvar MEMBER.641) (prog1 (setf MEMBER.641 (make-instance 'MEMBER)) (setf (slot-value MEMBER.641 'NAME) "James A. Courter") (setf (slot-value MEMBER.641 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS '--) (list 'LIMIT-IMPORTS 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.641 'RELATIONS) (list (init-relation '(ADA CON B MEMBER.641 MEMBER))(init-relation '(ACLU CON B MEMBER.641 MEMBER))(init-relation '(COPE CON B MEMBER.641 MEMBER))(init-relation '(LCV PRO C MEMBER.641 MEMBER))(init-relation '(ACU PRO B MEMBER.641 MEMBER))(init-relation '(NTU PRO C MEMBER.641 MEMBER))(init-relation '(NSI PRO A MEMBER.641 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.641 MEMBER))) ) (setf (slot-value MEMBER.641 'DISTRICT) 'NJ-12) (setf (slot-value MEMBER.641 'TERM-START) "1978") (setf (slot-value MEMBER.641 'TERM-END) "1990") (setf (slot-value MEMBER.641 'PARTY) 'REP) (setf (slot-value MEMBER.641 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-AGING) ) (setf (slot-value MEMBER.641 'STATUS) "Active") (setf (slot-value MEMBER.641 'DATE-OPEN) (list->date '(11 3 1989))) (setf (slot-value MEMBER.641 'SYMBOL) 'MEMBER.641) ) (insert-item MEMBER MEMBER.641) (defvar MEMBER.1033) (prog1 (setf MEMBER.1033 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1033 'NAME) "Larry E. Craig") (setf (slot-value MEMBER.1033 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.1033 'RELATIONS) (list (init-relation '(ADA CON B MEMBER.1033 MEMBER))(init-relation '(ACLU CON B MEMBER.1033 MEMBER))(init-relation '(COPE CON B MEMBER.1033 MEMBER))(init-relation '(CFA CON C MEMBER.1033 MEMBER))(init-relation '(LCV CON C MEMBER.1033 MEMBER))(init-relation '(ACU PRO B MEMBER.1033 MEMBER))(init-relation '(NSI PRO A MEMBER.1033 MEMBER))(init-relation '(COC PRO A MEMBER.1033 MEMBER))(init-relation '(CEI PRO B MEMBER.1033 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1033 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1033 MEMBER))) ) (setf (slot-value MEMBER.1033 'DISTRICT) 'ID-1) (setf (slot-value MEMBER.1033 'TERM-START) "1980") (setf (slot-value MEMBER.1033 'TERM-END) "1990") (setf (slot-value MEMBER.1033 'PARTY) 'REP) (setf (slot-value MEMBER.1033 'COMMITTEES) (list 'HOUSE-INTERIOR 'HOUSE-PUBLIC-WORKS) ) (setf (slot-value MEMBER.1033 'STATUS) "Active") (setf (slot-value MEMBER.1033 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1033 'SYMBOL) 'MEMBER.1033) ) (insert-item MEMBER MEMBER.1033) (defvar MEMBER.1023) (prog1 (setf MEMBER.1023 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1023 'NAME) "William Louis Dickinson") (setf (slot-value MEMBER.1023 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1023 'RELATIONS) (list (init-relation '(ADA CON B MEMBER.1023 MEMBER))(init-relation '(ACLU CON C MEMBER.1023 MEMBER))(init-relation '(COPE CON B MEMBER.1023 MEMBER))(init-relation '(CFA CON B MEMBER.1023 MEMBER))(init-relation '(LCV CON B MEMBER.1023 MEMBER))(init-relation '(ACU PRO B MEMBER.1023 MEMBER))(init-relation '(NTU PRO C MEMBER.1023 MEMBER))(init-relation '(NSI PRO A MEMBER.1023 MEMBER))(init-relation '(COC PRO B MEMBER.1023 MEMBER))(init-relation '(CEI PRO C MEMBER.1023 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1023 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1023 MEMBER))) ) (setf (slot-value MEMBER.1023 'DISTRICT) 'AL-2) (setf (slot-value MEMBER.1023 'TERM-START) "1964") (setf (slot-value MEMBER.1023 'PARTY) 'REP) (setf (slot-value MEMBER.1023 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-ADMINISTRATION) ) (setf (slot-value MEMBER.1023 'STATUS) "Active") (setf (slot-value MEMBER.1023 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1023 'SYMBOL) 'MEMBER.1023) ) (insert-item MEMBER MEMBER.1023) (defvar MEMBER.1044) (prog1 (setf MEMBER.1044 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1044 'NAME) "John D. Dingell") (setf (slot-value MEMBER.1044 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT '--) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1044 'CREDO) (list (init-stance '(GUN-CONTROL CON B MEMBER.1044 MEMBER)) (init-stance '(ENVIRONMENT PRO B MEMBER.1044 MEMBER)) (init-stance '(DEREGULATION PRO C MEMBER.1044 MEMBER)) (init-stance '(CLEAN-AIR CON B MEMBER.1044 MEMBER)) ) ) (setf (slot-value MEMBER.1044 'GROUPS) (list 'AUTOMOBILE) ) (setf (slot-value MEMBER.1044 'RELATIONS) (list (init-relation '(AUTO PRO A MEMBER.1044 MEMBER))(init-relation '(ADA PRO B MEMBER.1044 MEMBER))(init-relation '(COPE PRO A MEMBER.1044 MEMBER))(init-relation '(LCV PRO C MEMBER.1044 MEMBER))(init-relation '(ACU CON C MEMBER.1044 MEMBER))(init-relation '(NTU CON C MEMBER.1044 MEMBER))(init-relation '(NSI CON B MEMBER.1044 MEMBER))(init-relation '(COC CON B MEMBER.1044 MEMBER))(init-relation '(CEI CON B MEMBER.1044 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1044 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1044 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1044 MEMBER))) ) (setf (slot-value MEMBER.1044 'DISTRICT) 'MI-16) (setf (slot-value MEMBER.1044 'TERM-START) "1955") (setf (slot-value MEMBER.1044 'PARTY) 'DEM) (setf (slot-value MEMBER.1044 'COMMITTEES) (list 'HOUSE-ENERGY) ) (setf (slot-value MEMBER.1044 'STATUS) "Active") (setf (slot-value MEMBER.1044 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1044 'SYMBOL) 'MEMBER.1044) ) (insert-item MEMBER MEMBER.1044) (defvar MEMBER.1059) (prog1 (setf MEMBER.1059 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1059 'NAME) "Byron Leslie Dorgan") (setf (slot-value MEMBER.1059 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1059 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1059 MEMBER))(init-relation '(ACLU PRO B MEMBER.1059 MEMBER))(init-relation '(COPE PRO B MEMBER.1059 MEMBER))(init-relation '(ACU CON B MEMBER.1059 MEMBER))(init-relation '(NTU CON C MEMBER.1059 MEMBER))(init-relation '(NSI CON A MEMBER.1059 MEMBER))(init-relation '(COC CON C MEMBER.1059 MEMBER))(init-relation '(CEI CON C MEMBER.1059 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1059 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1059 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1059 MEMBER))) ) (setf (slot-value MEMBER.1059 'DISTRICT) 'ND-AL) (setf (slot-value MEMBER.1059 'TERM-START) "1980") (setf (slot-value MEMBER.1059 'PARTY) 'DEM) (setf (slot-value MEMBER.1059 'COMMITTEES) (list 'HOUSE-WAYS) ) (setf (slot-value MEMBER.1059 'STATUS) "Active") (setf (slot-value MEMBER.1059 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1059 'SYMBOL) 'MEMBER.1059) ) (insert-item MEMBER MEMBER.1059) (defvar MEMBER.1062) (prog1 (setf MEMBER.1062 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1062 'NAME) "Glenn English") (setf (slot-value MEMBER.1062 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1062 'RELATIONS) (list (init-relation '(ADA CON C MEMBER.1062 MEMBER))(init-relation '(ACLU CON C MEMBER.1062 MEMBER))(init-relation '(COPE CON C MEMBER.1062 MEMBER))(init-relation '(CFA CON C MEMBER.1062 MEMBER))(init-relation '(LCV CON C MEMBER.1062 MEMBER))(init-relation '(ACU PRO C MEMBER.1062 MEMBER))(init-relation '(NTU CON C MEMBER.1062 MEMBER))(init-relation '(NSI PRO A MEMBER.1062 MEMBER))(init-relation '(COC PRO B MEMBER.1062 MEMBER))(init-relation '(CEI CON C MEMBER.1062 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1062 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1062 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1062 MEMBER))) ) (setf (slot-value MEMBER.1062 'DISTRICT) 'OK-6) (setf (slot-value MEMBER.1062 'TERM-START) "1974") (setf (slot-value MEMBER.1062 'PARTY) 'DEM) (setf (slot-value MEMBER.1062 'COMMITTEES) (list 'HOUSE-AGRICULTURE 'HOUSE-GOVERNMENT-OPERATIONS) ) (setf (slot-value MEMBER.1062 'STATUS) "Active") (setf (slot-value MEMBER.1062 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1062 'SYMBOL) 'MEMBER.1062) ) (insert-item MEMBER MEMBER.1062) (defvar MEMBER.639) (prog1 (setf MEMBER.639 (make-instance 'MEMBER)) (setf (slot-value MEMBER.639 'NAME) "James J. Florio") (setf (slot-value MEMBER.639 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CHILD-CARE '--) ) ) (setf (slot-value MEMBER.639 'ISSUES) (list 'SUPERFUND) ) (setf (slot-value MEMBER.639 'CREDO) (list (init-stance '(TOXIC-WASTE PRO A MEMBER.639 MEMBER)) (init-stance '(ABORTION PRO C MEMBER.639 MEMBER)) ) ) (setf (slot-value MEMBER.639 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.639 MEMBER))(init-relation '(ACLU PRO C MEMBER.639 MEMBER))(init-relation '(COPE PRO A MEMBER.639 MEMBER))(init-relation '(CFA PRO A MEMBER.639 MEMBER))(init-relation '(LCV PRO B MEMBER.639 MEMBER))(init-relation '(ACU CON A MEMBER.639 MEMBER))(init-relation '(NTU CON B MEMBER.639 MEMBER))(init-relation '(NSI CON A MEMBER.639 MEMBER))(init-relation '(COC CON B MEMBER.639 MEMBER))(init-relation '(CEI CON B MEMBER.639 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.639 MEMBER))) ) (setf (slot-value MEMBER.639 'DISTRICT) 'NJ-1) (setf (slot-value MEMBER.639 'TERM-START) "1974") (setf (slot-value MEMBER.639 'TERM-END) "1990") (setf (slot-value MEMBER.639 'PARTY) 'DEM) (setf (slot-value MEMBER.639 'COMMITTEES) (list 'HOUSE-ENERGY 'HOUSE-VETERANS 'HOUSE-AGING) ) (setf (slot-value MEMBER.639 'STATUS) "Active") (setf (slot-value MEMBER.639 'DATE-OPEN) (list->date '(11 3 1989))) (setf (slot-value MEMBER.639 'SYMBOL) 'MEMBER.639) ) (insert-item MEMBER MEMBER.639) (defvar MEMBER.1178) (prog1 (setf MEMBER.1178 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1178 'NAME) "Thomas S. Foley") (setf (slot-value MEMBER.1178 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP '--) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CHILD-CARE '--) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1178 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1178 MEMBER))(init-relation '(ACLU PRO B MEMBER.1178 MEMBER))(init-relation '(ACU CON C MEMBER.1178 MEMBER))(init-relation '(NTU CON C MEMBER.1178 MEMBER))(init-relation '(NSI CON C MEMBER.1178 MEMBER))(init-relation '(COC CON C MEMBER.1178 MEMBER))(init-relation '(CEI CON C MEMBER.1178 MEMBER))(init-relation '(DEMOCRATS PRO B MEMBER.1178 MEMBER))(init-relation '(REPUBLICANS CON B MEMBER.1178 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1178 MEMBER))(init-relation '(NRA PRO A MEMBER.1178 MEMBER))) ) (setf (slot-value MEMBER.1178 'DISTRICT) 'WA-5) (setf (slot-value MEMBER.1178 'TERM-START) "1964") (setf (slot-value MEMBER.1178 'PARTY) 'DEM) (setf (slot-value MEMBER.1178 'COMMITTEES) (list 'SPEAKER) ) (setf (slot-value MEMBER.1178 'STATUS) "Active") (setf (slot-value MEMBER.1178 'DATE-OPEN) (list->date '(8 21 1989))) (setf (slot-value MEMBER.1178 'SYMBOL) 'MEMBER.1178) ) (insert-item MEMBER MEMBER.1178) (defvar MEMBER.1045) (prog1 (setf MEMBER.1045 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1045 'NAME) "Bill Frenzel") (setf (slot-value MEMBER.1045 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.1045 'ISSUES) (list 'TRADE) ) (setf (slot-value MEMBER.1045 'RELATIONS) (list (init-relation '(ADA CON C MEMBER.1045 MEMBER))(init-relation '(ACLU CON C MEMBER.1045 MEMBER))(init-relation '(COPE CON B MEMBER.1045 MEMBER))(init-relation '(CFA CON B MEMBER.1045 MEMBER))(init-relation '(LCV CON C MEMBER.1045 MEMBER))(init-relation '(NTU PRO B MEMBER.1045 MEMBER))(init-relation '(NSI PRO B MEMBER.1045 MEMBER))(init-relation '(COC PRO A MEMBER.1045 MEMBER))(init-relation '(CEI PRO B MEMBER.1045 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1045 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1045 MEMBER))) ) (setf (slot-value MEMBER.1045 'DISTRICT) 'MN-3) (setf (slot-value MEMBER.1045 'TERM-START) "1970") (setf (slot-value MEMBER.1045 'TERM-END) "1990") (setf (slot-value MEMBER.1045 'PARTY) 'REP) (setf (slot-value MEMBER.1045 'COMMITTEES) (list 'HOUSE-BUDGET 'HOUSE-ADMINISTRATION 'HOUSE-WAYS) ) (setf (slot-value MEMBER.1045 'STATUS) "Active") (setf (slot-value MEMBER.1045 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1045 'SYMBOL) 'MEMBER.1045) ) (insert-item MEMBER MEMBER.1045) (defvar MEMBER.897) (prog1 (setf MEMBER.897 (make-instance 'MEMBER)) (setf (slot-value MEMBER.897 'NAME) "Samuel Gejdenson") (setf (slot-value MEMBER.897 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'PLANT-CLOSING 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.897 'CREDO) (list (init-stance '(DEATH-PENALTY CON B MEMBER.897 MEMBER)) (init-stance '(TRIDENT-II-MISSILE CON C MEMBER.897 MEMBER)) (init-stance '(STEALTH PRO C MEMBER.897 MEMBER)) (init-stance '(B1 CON C MEMBER.897 MEMBER)) (init-stance '(HOUSING PRO C MEMBER.897 MEMBER)) (init-stance '(EDUCATION PRO C MEMBER.897 MEMBER)) (init-stance '(HEALTH-CARE PRO C MEMBER.897 MEMBER)) ) ) (setf (slot-value MEMBER.897 'GROUPS) (list 'ADA 'ACLU 'CFA) ) (setf (slot-value MEMBER.897 'RELATIONS) (list (init-relation '(LABOR PRO B MEMBER.897 MEMBER))(init-relation '(CFA PRO B MEMBER.897 MEMBER))(init-relation '(ACU CON B MEMBER.897 MEMBER))(init-relation '(NSI CON B MEMBER.897 MEMBER))(init-relation '(ADA PRO B MEMBER.897 MEMBER))(init-relation '(ACLU PRO B MEMBER.897 MEMBER))(init-relation '(COPE PRO B MEMBER.897 MEMBER))(init-relation '(LCV PRO B MEMBER.897 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.897 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.897 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.897 MEMBER))) ) (setf (slot-value MEMBER.897 'DISTRICT) 'CT-2) (setf (slot-value MEMBER.897 'TERM-START) "1980") (setf (slot-value MEMBER.897 'PARTY) 'DEM) (setf (slot-value MEMBER.897 'COMMITTEES) (list 'HOUSE-FOREIGN 'HOUSE-ADMINISTRATION 'HOUSE-INTERIOR) ) (setf (slot-value MEMBER.897 'STATUS) "Active") (setf (slot-value MEMBER.897 'DATE-OPEN) (list->date '(9 21 1988))) (setf (slot-value MEMBER.897 'SYMBOL) 'MEMBER.897) ) (insert-item MEMBER MEMBER.897) (defvar MEMBER.455) (prog1 (setf MEMBER.455 (make-instance 'MEMBER)) (setf (slot-value MEMBER.455 'NAME) "Richard A. Gephardt") (setf (slot-value MEMBER.455 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH '--) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'DEFENSE-AUTHORIZATION '--) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT '--) (list 'REFLAGGING-SHIPS '--) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.455 'ISSUES) (list 'TRADE 'FARM 'TAX-REFORM) ) (setf (slot-value MEMBER.455 'CREDO) (list (init-stance '(TAX-REFORM PRO B MEMBER.455 MEMBER)) (init-stance '(TRADE PRO B MEMBER.455 MEMBER)) (init-stance '(TRADE-RESTRICTIONS PRO B MEMBER.455 MEMBER)) (init-stance '(ABORTION PRO B MEMBER.455 MEMBER)) (init-stance '(FARM PRO B MEMBER.455 MEMBER)) ) ) (setf (slot-value MEMBER.455 'RELATIONS) (list (init-relation '(DEMOCRATS PRO B MEMBER.455 MEMBER))(init-relation '(ADA PRO B MEMBER.455 MEMBER))(init-relation '(ACLU PRO C MEMBER.455 MEMBER))(init-relation '(COPE PRO A MEMBER.455 MEMBER))(init-relation '(CFA PRO B MEMBER.455 MEMBER))(init-relation '(LCV PRO B MEMBER.455 MEMBER))(init-relation '(ACU CON A MEMBER.455 MEMBER))(init-relation '(NTU CON B MEMBER.455 MEMBER))(init-relation '(NSI CON B MEMBER.455 MEMBER))(init-relation '(COC CON B MEMBER.455 MEMBER))(init-relation '(CEI CON B MEMBER.455 MEMBER))(init-relation '(REPUBLICANS CON B MEMBER.455 MEMBER))(init-relation '(NEA PRO B MEMBER.455 MEMBER))) ) (setf (slot-value MEMBER.455 'DISTRICT) 'MO-3) (setf (slot-value MEMBER.455 'TERM-START) "1976") (setf (slot-value MEMBER.455 'PARTY) 'DEM) (setf (slot-value MEMBER.455 'COMMITTEES) (list 'MAJORITY-LEADER) ) (setf (slot-value MEMBER.455 'STATUS) "Active") (setf (slot-value MEMBER.455 'DATE-OPEN) (list->date '(5 29 1990))) (setf (slot-value MEMBER.455 'SYMBOL) 'MEMBER.455) ) (insert-item MEMBER MEMBER.455) (defvar MEMBER.3055) (prog1 (setf MEMBER.3055 (make-instance 'MEMBER)) (setf (slot-value MEMBER.3055 'NAME) "Newt Gingrich") (setf (slot-value MEMBER.3055 'VOTES) (list (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.3055 'CREDO) (list (init-stance '(DEREGULATION PRO B MEMBER.3055 MEMBER)) (init-stance '(SPENDING CON B MEMBER.3055 MEMBER)) (init-stance '(FREE-ENTERPRISE PRO B MEMBER.3055 MEMBER)) (init-stance '(TAXES CON B MEMBER.3055 MEMBER)) (init-stance '(DEFENSE-SPENDING PRO B MEMBER.3055 MEMBER)) (init-stance '(SDI PRO B MEMBER.3055 MEMBER)) ) ) (setf (slot-value MEMBER.3055 'GROUPS) (list 'REPUBLICANS) ) (setf (slot-value MEMBER.3055 'RELATIONS) (list (init-relation '(ADA CON C MEMBER.3055 MEMBER))(init-relation '(ACLU CON C MEMBER.3055 MEMBER))(init-relation '(COPE CON C MEMBER.3055 MEMBER))(init-relation '(CFA CON C MEMBER.3055 MEMBER))(init-relation '(ACU PRO C MEMBER.3055 MEMBER))(init-relation '(NSI PRO B MEMBER.3055 MEMBER))(init-relation '(COC PRO B MEMBER.3055 MEMBER))(init-relation '(NRA PRO C MEMBER.3055 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.3055 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.3055 MEMBER))) ) (setf (slot-value MEMBER.3055 'DISTRICT) 'GA-6) (setf (slot-value MEMBER.3055 'TERM-START) "1978") (setf (slot-value MEMBER.3055 'PARTY) 'REP) (setf (slot-value MEMBER.3055 'COMMITTEES) (list 'HOUSE-ADMINISTRATION 'HOUSE-PUBLIC-WORKS) ) (setf (slot-value MEMBER.3055 'STATUS) "Active") (setf (slot-value MEMBER.3055 'DATE-OPEN) (list->date '(5 4 1989))) (setf (slot-value MEMBER.3055 'SYMBOL) 'MEMBER.3055) ) (insert-item MEMBER MEMBER.3055) (defvar MEMBER.1038) (prog1 (setf MEMBER.1038 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1038 'NAME) "Daniel Robert Glickman") (setf (slot-value MEMBER.1038 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1038 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1038 MEMBER))(init-relation '(ACLU PRO B MEMBER.1038 MEMBER))(init-relation '(COPE PRO B MEMBER.1038 MEMBER))(init-relation '(CFA PRO C MEMBER.1038 MEMBER))(init-relation '(ACU CON C MEMBER.1038 MEMBER))(init-relation '(NTU CON C MEMBER.1038 MEMBER))(init-relation '(NSI CON B MEMBER.1038 MEMBER))(init-relation '(COC PRO C MEMBER.1038 MEMBER))(init-relation '(CEI CON C MEMBER.1038 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1038 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1038 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1038 MEMBER))) ) (setf (slot-value MEMBER.1038 'DISTRICT) 'KS-4) (setf (slot-value MEMBER.1038 'TERM-START) "1976") (setf (slot-value MEMBER.1038 'PARTY) 'DEM) (setf (slot-value MEMBER.1038 'COMMITTEES) (list 'HOUSE-AGRICULTURE 'HOUSE-JUDICIARY) ) (setf (slot-value MEMBER.1038 'STATUS) "Active") (setf (slot-value MEMBER.1038 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1038 'SYMBOL) 'MEMBER.1038) ) (insert-item MEMBER MEMBER.1038) (defvar MEMBER.1076) (prog1 (setf MEMBER.1076 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1076 'NAME) "Henry B. Gonzalez") (setf (slot-value MEMBER.1076 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1076 'ISSUES) (list 'HISPANICS) ) (setf (slot-value MEMBER.1076 'GROUPS) (list 'HISPANICS) ) (setf (slot-value MEMBER.1076 'RELATIONS) (list (init-relation '(ADA PRO A MEMBER.1076 MEMBER))(init-relation '(ACLU PRO A MEMBER.1076 MEMBER))(init-relation '(COPE PRO A MEMBER.1076 MEMBER))(init-relation '(CFA PRO B MEMBER.1076 MEMBER))(init-relation '(LCV PRO B MEMBER.1076 MEMBER))(init-relation '(ACU CON A MEMBER.1076 MEMBER))(init-relation '(NTU CON B MEMBER.1076 MEMBER))(init-relation '(NSI CON A MEMBER.1076 MEMBER))(init-relation '(COC CON B MEMBER.1076 MEMBER))(init-relation '(CEI CON A MEMBER.1076 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1076 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1076 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1076 MEMBER))) ) (setf (slot-value MEMBER.1076 'DISTRICT) 'TX-20) (setf (slot-value MEMBER.1076 'TERM-START) "1961") (setf (slot-value MEMBER.1076 'PARTY) 'DEM) (setf (slot-value MEMBER.1076 'COMMITTEES) (list 'HOUSE-BANKING) ) (setf (slot-value MEMBER.1076 'STATUS) "Active") (setf (slot-value MEMBER.1076 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1076 'SYMBOL) 'MEMBER.1076) ) (insert-item MEMBER MEMBER.1076) (defvar MEMBER.1068) (prog1 (setf MEMBER.1068 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1068 'NAME) "William H. Gray") (setf (slot-value MEMBER.1068 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT '--) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1068 'ISSUES) (list 'BLACKS 'FINANCE) ) (setf (slot-value MEMBER.1068 'GROUPS) (list 'BLACKS) ) (setf (slot-value MEMBER.1068 'RELATIONS) (list (init-relation '(ADA PRO A MEMBER.1068 MEMBER))(init-relation '(ACLU PRO A MEMBER.1068 MEMBER))(init-relation '(COPE PRO A MEMBER.1068 MEMBER))(init-relation '(LCV PRO B MEMBER.1068 MEMBER))(init-relation '(ACU CON A MEMBER.1068 MEMBER))(init-relation '(NTU CON B MEMBER.1068 MEMBER))(init-relation '(NSI CON A MEMBER.1068 MEMBER))(init-relation '(COC CON B MEMBER.1068 MEMBER))(init-relation '(CEI CON A MEMBER.1068 MEMBER))(init-relation '(DEMOCRATS PRO B MEMBER.1068 MEMBER))(init-relation '(REPUBLICANS CON B MEMBER.1068 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1068 MEMBER))) ) (setf (slot-value MEMBER.1068 'DISTRICT) 'PA-2) (setf (slot-value MEMBER.1068 'TERM-START) "1978") (setf (slot-value MEMBER.1068 'PARTY) 'DEM) (setf (slot-value MEMBER.1068 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1068 'STATUS) "Active") (setf (slot-value MEMBER.1068 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1068 'SYMBOL) 'MEMBER.1068) ) (insert-item MEMBER MEMBER.1068) (defvar MEMBER.1036) (prog1 (setf MEMBER.1036 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1036 'NAME) "Lee H. Hamilton") (setf (slot-value MEMBER.1036 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1036 'ISSUES) (list 'INTELLIGENCE) ) (setf (slot-value MEMBER.1036 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1036 MEMBER))(init-relation '(ACLU PRO B MEMBER.1036 MEMBER))(init-relation '(COPE PRO C MEMBER.1036 MEMBER))(init-relation '(CFA PRO B MEMBER.1036 MEMBER))(init-relation '(LCV PRO C MEMBER.1036 MEMBER))(init-relation '(ACU CON C MEMBER.1036 MEMBER))(init-relation '(NTU CON C MEMBER.1036 MEMBER))(init-relation '(NSI CON C MEMBER.1036 MEMBER))(init-relation '(COC PRO C MEMBER.1036 MEMBER))(init-relation '(CEI CON C MEMBER.1036 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1036 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1036 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1036 MEMBER))) ) (setf (slot-value MEMBER.1036 'DISTRICT) 'IN-9) (setf (slot-value MEMBER.1036 'TERM-START) "1964") (setf (slot-value MEMBER.1036 'PARTY) 'DEM) (setf (slot-value MEMBER.1036 'COMMITTEES) (list 'HOUSE-FOREIGN) ) (setf (slot-value MEMBER.1036 'STATUS) "Active") (setf (slot-value MEMBER.1036 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1036 'SYMBOL) 'MEMBER.1036) ) (insert-item MEMBER MEMBER.1036) (defvar MEMBER.1026) (prog1 (setf MEMBER.1026 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1026 'NAME) "John Paul Hammerschmidt") (setf (slot-value MEMBER.1026 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS '--) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1026 'RELATIONS) (list (init-relation '(ADA CON B MEMBER.1026 MEMBER))(init-relation '(ACLU CON A MEMBER.1026 MEMBER))(init-relation '(COPE CON B MEMBER.1026 MEMBER))(init-relation '(CFA CON B MEMBER.1026 MEMBER))(init-relation '(LCV CON B MEMBER.1026 MEMBER))(init-relation '(ACU PRO B MEMBER.1026 MEMBER))(init-relation '(NTU CON C MEMBER.1026 MEMBER))(init-relation '(NSI PRO A MEMBER.1026 MEMBER))(init-relation '(COC PRO B MEMBER.1026 MEMBER))(init-relation '(CEI PRO C MEMBER.1026 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1026 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1026 MEMBER))) ) (setf (slot-value MEMBER.1026 'DISTRICT) 'AR-3) (setf (slot-value MEMBER.1026 'TERM-START) "1966") (setf (slot-value MEMBER.1026 'PARTY) 'REP) (setf (slot-value MEMBER.1026 'COMMITTEES) (list 'HOUSE-PUBLIC-WORKS 'HOUSE-VETERANS-AFFAIRS) ) (setf (slot-value MEMBER.1026 'STATUS) "Active") (setf (slot-value MEMBER.1026 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1026 'SYMBOL) 'MEMBER.1026) ) (insert-item MEMBER MEMBER.1026) (defvar MEMBER.1077) (prog1 (setf MEMBER.1077 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1077 'NAME) "James V. Hansen") (setf (slot-value MEMBER.1077 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL '--) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM '--) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1077 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1077 MEMBER))(init-relation '(ACLU CON A MEMBER.1077 MEMBER))(init-relation '(COPE CON A MEMBER.1077 MEMBER))(init-relation '(CFA CON B MEMBER.1077 MEMBER))(init-relation '(LCV CON B MEMBER.1077 MEMBER))(init-relation '(ACU PRO A MEMBER.1077 MEMBER))(init-relation '(NSI PRO A MEMBER.1077 MEMBER))(init-relation '(COC PRO B MEMBER.1077 MEMBER))(init-relation '(CEI PRO B MEMBER.1077 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1077 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1077 MEMBER))) ) (setf (slot-value MEMBER.1077 'DISTRICT) 'UT-1) (setf (slot-value MEMBER.1077 'TERM-START) "1980") (setf (slot-value MEMBER.1077 'PARTY) 'REP) (setf (slot-value MEMBER.1077 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-INTERIOR) ) (setf (slot-value MEMBER.1077 'STATUS) "Active") (setf (slot-value MEMBER.1077 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1077 'SYMBOL) 'MEMBER.1077) ) (insert-item MEMBER MEMBER.1077) (defvar MEMBER.1027) (prog1 (setf MEMBER.1027 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1027 'NAME) "Augustus F. Hawkins") (setf (slot-value MEMBER.1027 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS '--) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1027 'GROUPS) (list 'BLACKS 'HISPANICS 'LABOR) ) (setf (slot-value MEMBER.1027 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1027 MEMBER))(init-relation '(ACLU PRO C MEMBER.1027 MEMBER))(init-relation '(COPE PRO A MEMBER.1027 MEMBER))(init-relation '(CFA PRO B MEMBER.1027 MEMBER))(init-relation '(LCV PRO C MEMBER.1027 MEMBER))(init-relation '(ACU CON A MEMBER.1027 MEMBER))(init-relation '(NTU CON B MEMBER.1027 MEMBER))(init-relation '(NSI CON A MEMBER.1027 MEMBER))(init-relation '(COC CON B MEMBER.1027 MEMBER))(init-relation '(CEI CON A MEMBER.1027 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1027 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1027 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1027 MEMBER))) ) (setf (slot-value MEMBER.1027 'DISTRICT) 'CA-29) (setf (slot-value MEMBER.1027 'TERM-START) "1962") (setf (slot-value MEMBER.1027 'TERM-END) "1990") (setf (slot-value MEMBER.1027 'PARTY) 'DEM) (setf (slot-value MEMBER.1027 'COMMITTEES) (list 'HOUSE-EDUCATION) ) (setf (slot-value MEMBER.1027 'STATUS) "Active") (setf (slot-value MEMBER.1027 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1027 'SYMBOL) 'MEMBER.1027) ) (insert-item MEMBER MEMBER.1027) (defvar MEMBER.1056) (prog1 (setf MEMBER.1056 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1056 'NAME) "Frank Horton") (setf (slot-value MEMBER.1056 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE '--) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT '--) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1056 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1056 MEMBER))(init-relation '(COPE PRO C MEMBER.1056 MEMBER))(init-relation '(LCV PRO C MEMBER.1056 MEMBER))(init-relation '(ACU CON B MEMBER.1056 MEMBER))(init-relation '(NTU CON C MEMBER.1056 MEMBER))(init-relation '(NSI CON C MEMBER.1056 MEMBER))(init-relation '(COC CON B MEMBER.1056 MEMBER))(init-relation '(CEI CON B MEMBER.1056 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1056 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1056 MEMBER))) ) (setf (slot-value MEMBER.1056 'DISTRICT) 'NY-29) (setf (slot-value MEMBER.1056 'TERM-START) "1962") (setf (slot-value MEMBER.1056 'PARTY) 'REP) (setf (slot-value MEMBER.1056 'COMMITTEES) (list 'HOUSE-GOVERNMENT-OPERATIONS) ) (setf (slot-value MEMBER.1056 'STATUS) "Active") (setf (slot-value MEMBER.1056 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1056 'SYMBOL) 'MEMBER.1056) ) (insert-item MEMBER MEMBER.1056) (defvar MEMBER.1016) (prog1 (setf MEMBER.1016 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1016 'NAME) "Nancy Lee Johnson") (setf (slot-value MEMBER.1016 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1016 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'PLANT-CLOSING 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE '--) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1016 'ISSUES) (list 'ELDERLY 'CHILD-CARE 'TRADE-RESTRICTIONS) ) (setf (slot-value MEMBER.1016 'CREDO) (list (init-stance '(ELDERLY PRO B MEMBER.1016 MEMBER)) (init-stance '(CHILD-CARE PRO B MEMBER.1016 MEMBER)) (init-stance '(TRADE-RESTRICTIONS PRO C MEMBER.1016 MEMBER)) ) ) (setf (slot-value MEMBER.1016 'GROUPS) (list 'COC 'DEFENSE) ) (setf (slot-value MEMBER.1016 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1016 MEMBER))(init-relation '(CFA CON C MEMBER.1016 MEMBER))(init-relation '(LCV PRO C MEMBER.1016 MEMBER))(init-relation '(COC PRO C MEMBER.1016 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1016 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1016 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1016 MEMBER))) ) (setf (slot-value MEMBER.1016 'DISTRICT) 'CT-6) (setf (slot-value MEMBER.1016 'TERM-START) "1982") (setf (slot-value MEMBER.1016 'PARTY) 'REP) (setf (slot-value MEMBER.1016 'COMMITTEES) (list 'HOUSE-BUDGET 'HOUSE-PUBLIC-WORKS) ) (setf (slot-value MEMBER.1016 'STATUS) "Active") (setf (slot-value MEMBER.1016 'DATE-OPEN) (list->date '(2 18 1989))) (setf (slot-value MEMBER.1016 'SYMBOL) 'MEMBER.1016) ) (insert-item MEMBER MEMBER.1016) (defvar MEMBER.1074) (prog1 (setf MEMBER.1074 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1074 'NAME) "Timothy Peter Johnson") (setf (slot-value MEMBER.1074 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1074 'RELATIONS) (list (init-relation '(DEMOCRATS PRO C MEMBER.1074 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1074 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1074 MEMBER))) ) (setf (slot-value MEMBER.1074 'DISTRICT) 'SD-AL) (setf (slot-value MEMBER.1074 'TERM-START) "1986") (setf (slot-value MEMBER.1074 'PARTY) 'DEM) (setf (slot-value MEMBER.1074 'COMMITTEES) (list 'HOUSE-AGRICULTURE 'HOUSE-VETERANS-AFFAIRS) ) (setf (slot-value MEMBER.1074 'STATUS) "Active") (setf (slot-value MEMBER.1074 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1074 'SYMBOL) 'MEMBER.1074) ) (insert-item MEMBER MEMBER.1074) (defvar MEMBER.1058) (prog1 (setf MEMBER.1058 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1058 'NAME) "Walter Berman Jones") (setf (slot-value MEMBER.1058 'VOTES) (list (list 'DEFENSE-AUTHORIZATION '--) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC '--) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1058 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1058 MEMBER))(init-relation '(COPE PRO C MEMBER.1058 MEMBER))(init-relation '(LCV CON C MEMBER.1058 MEMBER))(init-relation '(ACU CON B MEMBER.1058 MEMBER))(init-relation '(NTU CON B MEMBER.1058 MEMBER))(init-relation '(NSI CON A MEMBER.1058 MEMBER))(init-relation '(COC CON C MEMBER.1058 MEMBER))(init-relation '(CEI CON B MEMBER.1058 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1058 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1058 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1058 MEMBER))) ) (setf (slot-value MEMBER.1058 'DISTRICT) 'NC-1) (setf (slot-value MEMBER.1058 'TERM-START) "1966") (setf (slot-value MEMBER.1058 'PARTY) 'DEM) (setf (slot-value MEMBER.1058 'COMMITTEES) (list 'HOUSE-AGRICULTURE) ) (setf (slot-value MEMBER.1058 'STATUS) "Active") (setf (slot-value MEMBER.1058 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1058 'SYMBOL) 'MEMBER.1058) ) (insert-item MEMBER MEMBER.1058) (defvar MEMBER.1087) (prog1 (setf MEMBER.1087 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1087 'NAME) "Marcy Kaptur") (setf (slot-value MEMBER.1087 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1087 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1087 'GROUPS) (list 'WOMEN 'URBAN) ) (setf (slot-value MEMBER.1087 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1087 MEMBER))(init-relation '(ACLU PRO C MEMBER.1087 MEMBER))(init-relation '(COPE PRO A MEMBER.1087 MEMBER))(init-relation '(ACU CON A MEMBER.1087 MEMBER))(init-relation '(NTU CON B MEMBER.1087 MEMBER))(init-relation '(NSI CON A MEMBER.1087 MEMBER))(init-relation '(COC CON B MEMBER.1087 MEMBER))(init-relation '(CEI CON B MEMBER.1087 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1087 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1087 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1087 MEMBER))) ) (setf (slot-value MEMBER.1087 'DISTRICT) 'OH-9) (setf (slot-value MEMBER.1087 'TERM-START) "1982") (setf (slot-value MEMBER.1087 'PARTY) 'DEM) (setf (slot-value MEMBER.1087 'COMMITTEES) (list 'HOUSE-BANKING 'HOUSE-BUDGET) ) (setf (slot-value MEMBER.1087 'STATUS) "Active") (setf (slot-value MEMBER.1087 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1087 'SYMBOL) 'MEMBER.1087) ) (insert-item MEMBER MEMBER.1087) (defvar MEMBER.1082) (prog1 (setf MEMBER.1082 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1082 'NAME) "Robert William Kastenmeier") (setf (slot-value MEMBER.1082 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1082 'RELATIONS) (list (init-relation '(ADA PRO A MEMBER.1082 MEMBER))(init-relation '(ACLU PRO A MEMBER.1082 MEMBER))(init-relation '(COPE PRO A MEMBER.1082 MEMBER))(init-relation '(CFA PRO A MEMBER.1082 MEMBER))(init-relation '(LCV PRO A MEMBER.1082 MEMBER))(init-relation '(ACU CON A MEMBER.1082 MEMBER))(init-relation '(NTU CON B MEMBER.1082 MEMBER))(init-relation '(NSI CON A MEMBER.1082 MEMBER))(init-relation '(COC CON B MEMBER.1082 MEMBER))(init-relation '(CEI CON B MEMBER.1082 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1082 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1082 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1082 MEMBER))) ) (setf (slot-value MEMBER.1082 'DISTRICT) 'WI-2) (setf (slot-value MEMBER.1082 'TERM-START) "1958") (setf (slot-value MEMBER.1082 'TERM-END) "1990") (setf (slot-value MEMBER.1082 'PARTY) 'DEM) (setf (slot-value MEMBER.1082 'COMMITTEES) (list 'HOUSE-JUDICIARY 'HOUSE-INTELLIGENCE) ) (setf (slot-value MEMBER.1082 'STATUS) "Active") (setf (slot-value MEMBER.1082 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1082 'SYMBOL) 'MEMBER.1082) ) (insert-item MEMBER MEMBER.1082) (defvar MEMBER.709) (prog1 (setf MEMBER.709 (make-instance 'MEMBER)) (setf (slot-value MEMBER.709 'NAME) "Barbara Kennelly") (setf (slot-value MEMBER.709 'GENDER) 'FEMALE) (setf (slot-value MEMBER.709 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'PLANT-CLOSING 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.709 'ISSUES) (list 'DEFICIT 'MILITARY 'EDUCATION 'ELDERLY 'HEALTH-CARE) ) (setf (slot-value MEMBER.709 'CREDO) (list (init-stance '(WOMENS-RIGHTS PRO B MEMBER.709 MEMBER)) (init-stance '(CHILD-CARE PRO B MEMBER.709 MEMBER)) (init-stance '(DEFICIT CON B MEMBER.709 MEMBER)) (init-stance '(MILITARY PRO B MEMBER.709 MEMBER)) (init-stance '(EDUCATION PRO C MEMBER.709 MEMBER)) (init-stance '(ELDERLY PRO C MEMBER.709 MEMBER)) (init-stance '(HEALTH-CARE PRO C MEMBER.709 MEMBER)) ) ) (setf (slot-value MEMBER.709 'GROUPS) (list 'CFA 'ADA 'ACLU) ) (setf (slot-value MEMBER.709 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.709 MEMBER))(init-relation '(ACLU PRO B MEMBER.709 MEMBER))(init-relation '(COPE PRO B MEMBER.709 MEMBER))(init-relation '(CFA PRO B MEMBER.709 MEMBER))(init-relation '(LCV PRO B MEMBER.709 MEMBER))(init-relation '(ACU CON B MEMBER.709 MEMBER))(init-relation '(NTU CON C MEMBER.709 MEMBER))(init-relation '(NSI CON B MEMBER.709 MEMBER))(init-relation '(COC CON C MEMBER.709 MEMBER))(init-relation '(CEI CON C MEMBER.709 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.709 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.709 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.709 MEMBER))) ) (setf (slot-value MEMBER.709 'DISTRICT) 'CT-1) (setf (slot-value MEMBER.709 'TERM-START) "1982") (setf (slot-value MEMBER.709 'PARTY) 'DEM) (setf (slot-value MEMBER.709 'COMMITTEES) (list 'HOUSE-WAYS) ) (setf (slot-value MEMBER.709 'STATUS) "Active") (setf (slot-value MEMBER.709 'DATE-OPEN) (list->date '(9 21 1988))) (setf (slot-value MEMBER.709 'SYMBOL) 'MEMBER.709) ) (insert-item MEMBER MEMBER.709) (defvar MEMBER.1064) (prog1 (setf MEMBER.1064 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1064 'NAME) "Mickey Leland") (setf (slot-value MEMBER.1064 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT '--) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM '--) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CHILD-CARE '--) ) ) (setf (slot-value MEMBER.1064 'ISSUES) (list 'HUNGER 'ISRAEL) ) (setf (slot-value MEMBER.1064 'CREDO) (list (init-stance '(HUNGER PRO A MEMBER.1064 MEMBER)) (init-stance '(HOMELESS PRO A MEMBER.1064 MEMBER)) (init-stance '(HEALTH PRO B MEMBER.1064 MEMBER)) (init-stance '(HOUSING PRO B MEMBER.1064 MEMBER)) ) ) (setf (slot-value MEMBER.1064 'GROUPS) (list 'BLACKS 'POOR 'HISPANICS) ) (setf (slot-value MEMBER.1064 'RELATIONS) (list (init-relation '(ADA PRO A MEMBER.1064 MEMBER))(init-relation '(ACLU PRO A MEMBER.1064 MEMBER))(init-relation '(COPE PRO A MEMBER.1064 MEMBER))(init-relation '(CFA PRO B MEMBER.1064 MEMBER))(init-relation '(LCV PRO B MEMBER.1064 MEMBER))(init-relation '(ACU CON C MEMBER.1064 MEMBER))(init-relation '(NTU CON C MEMBER.1064 MEMBER))(init-relation '(NSI CON C MEMBER.1064 MEMBER))(init-relation '(COC CON C MEMBER.1064 MEMBER))(init-relation '(CEI CON C MEMBER.1064 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1064 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1064 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1064 MEMBER))) ) (setf (slot-value MEMBER.1064 'DISTRICT) 'TX-18) (setf (slot-value MEMBER.1064 'TERM-START) "1978") (setf (slot-value MEMBER.1064 'TERM-END) "1989") (setf (slot-value MEMBER.1064 'PARTY) 'DEM) (setf (slot-value MEMBER.1064 'COMMITTEES) (list 'HOUSE-ENERGY) ) (setf (slot-value MEMBER.1064 'STATUS) "Active") (setf (slot-value MEMBER.1064 'DATE-OPEN) (list->date '(8 21 1989))) (setf (slot-value MEMBER.1064 'SYMBOL) 'MEMBER.1064) ) (insert-item MEMBER MEMBER.1064) (defvar MEMBER.1048) (prog1 (setf MEMBER.1048 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1048 'NAME) "Ronald Charles Marlenee") (setf (slot-value MEMBER.1048 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1048 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1048 MEMBER))(init-relation '(ACLU CON A MEMBER.1048 MEMBER))(init-relation '(COPE CON B MEMBER.1048 MEMBER))(init-relation '(CFA CON A MEMBER.1048 MEMBER))(init-relation '(LCV CON B MEMBER.1048 MEMBER))(init-relation '(ACU PRO A MEMBER.1048 MEMBER))(init-relation '(NSI PRO A MEMBER.1048 MEMBER))(init-relation '(COC PRO B MEMBER.1048 MEMBER))(init-relation '(CEI PRO B MEMBER.1048 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1048 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1048 MEMBER))) ) (setf (slot-value MEMBER.1048 'DISTRICT) 'MT-2) (setf (slot-value MEMBER.1048 'TERM-START) "1976") (setf (slot-value MEMBER.1048 'PARTY) 'REP) (setf (slot-value MEMBER.1048 'COMMITTEES) (list 'HOUSE-AGRICULTURE 'HOUSE-INTERIOR) ) (setf (slot-value MEMBER.1048 'STATUS) "Active") (setf (slot-value MEMBER.1048 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1048 'SYMBOL) 'MEMBER.1048) ) (insert-item MEMBER MEMBER.1048) (defvar MEMBER.1067) (prog1 (setf MEMBER.1067 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1067 'NAME) "Joseph M. McDade") (setf (slot-value MEMBER.1067 'ENGLISH-SHORT) "McDade") (setf (slot-value MEMBER.1067 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS '--) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS '--) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC '--) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1067 'ISSUES) (list 'MODERATE) ) (setf (slot-value MEMBER.1067 'RELATIONS) (list (init-relation '(ADA CON C MEMBER.1067 MEMBER))(init-relation '(ACLU CON B MEMBER.1067 MEMBER))(init-relation '(COPE PRO C MEMBER.1067 MEMBER))(init-relation '(CFA PRO B MEMBER.1067 MEMBER))(init-relation '(LCV CON C MEMBER.1067 MEMBER))(init-relation '(ACU PRO C MEMBER.1067 MEMBER))(init-relation '(NTU CON C MEMBER.1067 MEMBER))(init-relation '(NSI PRO B MEMBER.1067 MEMBER))(init-relation '(COC CON C MEMBER.1067 MEMBER))(init-relation '(CEI CON B MEMBER.1067 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1067 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1067 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1067 MEMBER))) ) (setf (slot-value MEMBER.1067 'DISTRICT) 'PA-10) (setf (slot-value MEMBER.1067 'TERM-START) "1962") (setf (slot-value MEMBER.1067 'PARTY) 'REP) (setf (slot-value MEMBER.1067 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1067 'STATUS) "Active") (setf (slot-value MEMBER.1067 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1067 'SYMBOL) 'MEMBER.1067) ) (insert-item MEMBER MEMBER.1067) (defvar MEMBER.1034) (prog1 (setf MEMBER.1034 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1034 'NAME) "Robert H. Michel") (setf (slot-value MEMBER.1034 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS '--) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.1034 'GROUPS) (list 'REPUBLICANS) ) (setf (slot-value MEMBER.1034 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1034 MEMBER))(init-relation '(ACLU CON A MEMBER.1034 MEMBER))(init-relation '(COPE CON B MEMBER.1034 MEMBER))(init-relation '(CFA CON B MEMBER.1034 MEMBER))(init-relation '(LCV CON A MEMBER.1034 MEMBER))(init-relation '(ACU PRO B MEMBER.1034 MEMBER))(init-relation '(NTU PRO C MEMBER.1034 MEMBER))(init-relation '(NSI PRO A MEMBER.1034 MEMBER))(init-relation '(COC PRO B MEMBER.1034 MEMBER))(init-relation '(CEI PRO B MEMBER.1034 MEMBER))(init-relation '(DEMOCRATS CON B MEMBER.1034 MEMBER))(init-relation '(REPUBLICANS PRO B MEMBER.1034 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1034 MEMBER))) ) (setf (slot-value MEMBER.1034 'DISTRICT) 'IL-18) (setf (slot-value MEMBER.1034 'TERM-START) "1956") (setf (slot-value MEMBER.1034 'PARTY) 'REP) (setf (slot-value MEMBER.1034 'COMMITTEES) (list 'HOUSE-MINORITY-LEADER) ) (setf (slot-value MEMBER.1034 'STATUS) "Active") (setf (slot-value MEMBER.1034 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1034 'SYMBOL) 'MEMBER.1034) ) (insert-item MEMBER MEMBER.1034) (defvar MEMBER.1060) (prog1 (setf MEMBER.1060 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1060 'NAME) "Clarence E. Miller") (setf (slot-value MEMBER.1060 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1060 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1060 MEMBER))(init-relation '(COPE CON B MEMBER.1060 MEMBER))(init-relation '(CFA CON A MEMBER.1060 MEMBER))(init-relation '(LCV CON B MEMBER.1060 MEMBER))(init-relation '(ACU PRO B MEMBER.1060 MEMBER))(init-relation '(NSI PRO A MEMBER.1060 MEMBER))(init-relation '(COC PRO B MEMBER.1060 MEMBER))(init-relation '(CEI PRO C MEMBER.1060 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1060 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1060 MEMBER))) ) (setf (slot-value MEMBER.1060 'DISTRICT) 'OH-10) (setf (slot-value MEMBER.1060 'TERM-START) "1966") (setf (slot-value MEMBER.1060 'PARTY) 'REP) (setf (slot-value MEMBER.1060 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1060 'STATUS) "Active") (setf (slot-value MEMBER.1060 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1060 'SYMBOL) 'MEMBER.1060) ) (insert-item MEMBER MEMBER.1060) (defvar MEMBER.872) (prog1 (setf MEMBER.872 (make-instance 'MEMBER)) (setf (slot-value MEMBER.872 'NAME) "Bruce A. Morrison") (setf (slot-value MEMBER.872 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI '--) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'PLANT-CLOSING 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.872 'ISSUES) (list 'HOUSING 'ENVIRONMENT 'SOCIAL-SECURITY 'HEALTH-CARE 'BUDGET-DEFICIT) ) (setf (slot-value MEMBER.872 'CREDO) (list (init-stance '(DEATH-PENALTY CON A MEMBER.872 MEMBER)) (init-stance '(HOUSING PRO B MEMBER.872 MEMBER)) (init-stance '(ENVIRONMENT PRO B MEMBER.872 MEMBER)) (init-stance '(SOCIAL-SECURITY PRO B MEMBER.872 MEMBER)) (init-stance '(HEALTH-CARE PRO B MEMBER.872 MEMBER)) (init-stance '(BUDGET-DEFICIT CON B MEMBER.872 MEMBER)) (init-stance '(DRUGS PRO B MEMBER.872 MEMBER)) (init-stance '(GAY-RIGHTS PRO B MEMBER.872 MEMBER)) ) ) (setf (slot-value MEMBER.872 'GROUPS) (list 'LEGAL-SERVICES 'ACLU 'LABOR 'ADA) ) (setf (slot-value MEMBER.872 'RELATIONS) (list (init-relation '(LEGAL-SERVICES PRO A MEMBER.872 MEMBER))(init-relation '(ACLU PRO B MEMBER.872 MEMBER))(init-relation '(LABOR PRO B MEMBER.872 MEMBER))(init-relation '(ADA PRO C MEMBER.872 MEMBER))(init-relation '(NRA CON C MEMBER.872 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.872 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.872 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.872 MEMBER))) ) (setf (slot-value MEMBER.872 'STANCE-SORT-KEY) 'EQUITY) (setf (slot-value MEMBER.872 'DISTRICT) 'CT-3) (setf (slot-value MEMBER.872 'TERM-START) "1982") (setf (slot-value MEMBER.872 'TERM-END) "1990") (setf (slot-value MEMBER.872 'PARTY) 'DEM) (setf (slot-value MEMBER.872 'COMMITTEES) (list 'HOUSE-BANKING 'HOUSE-JUDICIARY) ) (setf (slot-value MEMBER.872 'STATUS) "Active") (setf (slot-value MEMBER.872 'DATE-OPEN) (list->date '(9 21 1988))) (setf (slot-value MEMBER.872 'SYMBOL) 'MEMBER.872) ) (insert-item MEMBER MEMBER.872) (defvar MEMBER.1039) (prog1 (setf MEMBER.1039 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1039 'NAME) "William Huston Natcher") (setf (slot-value MEMBER.1039 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1039 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1039 MEMBER))(init-relation '(COPE PRO B MEMBER.1039 MEMBER))(init-relation '(CFA PRO B MEMBER.1039 MEMBER))(init-relation '(LCV CON C MEMBER.1039 MEMBER))(init-relation '(ACU CON B MEMBER.1039 MEMBER))(init-relation '(NTU CON B MEMBER.1039 MEMBER))(init-relation '(NSI CON B MEMBER.1039 MEMBER))(init-relation '(COC CON B MEMBER.1039 MEMBER))(init-relation '(CEI CON A MEMBER.1039 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1039 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1039 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1039 MEMBER))) ) (setf (slot-value MEMBER.1039 'DISTRICT) 'KY-2) (setf (slot-value MEMBER.1039 'TERM-START) "1953") (setf (slot-value MEMBER.1039 'PARTY) 'DEM) (setf (slot-value MEMBER.1039 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1039 'STATUS) "Active") (setf (slot-value MEMBER.1039 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1039 'SYMBOL) 'MEMBER.1039) ) (insert-item MEMBER MEMBER.1039) (defvar MEMBER.1079) (prog1 (setf MEMBER.1079 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1079 'NAME) "Stan Parris") (setf (slot-value MEMBER.1079 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS '--) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.1079 'RELATIONS) (list (init-relation '(ADA CON B MEMBER.1079 MEMBER))(init-relation '(ACLU CON A MEMBER.1079 MEMBER))(init-relation '(COPE CON B MEMBER.1079 MEMBER))(init-relation '(CFA CON B MEMBER.1079 MEMBER))(init-relation '(LCV CON B MEMBER.1079 MEMBER))(init-relation '(ACU PRO B MEMBER.1079 MEMBER))(init-relation '(NTU CON C MEMBER.1079 MEMBER))(init-relation '(NSI PRO A MEMBER.1079 MEMBER))(init-relation '(COC PRO B MEMBER.1079 MEMBER))(init-relation '(CEI PRO C MEMBER.1079 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1079 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1079 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1079 MEMBER))) ) (setf (slot-value MEMBER.1079 'DISTRICT) 'VA-8) (setf (slot-value MEMBER.1079 'TERM-START) "1980") (setf (slot-value MEMBER.1079 'TERM-END) "1990") (setf (slot-value MEMBER.1079 'PARTY) 'REP) (setf (slot-value MEMBER.1079 'COMMITTEES) (list 'HOUSE-BANKING 'HOUSE-DC) ) (setf (slot-value MEMBER.1079 'STATUS) "Active") (setf (slot-value MEMBER.1079 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1079 'SYMBOL) 'MEMBER.1079) ) (insert-item MEMBER MEMBER.1079) (defvar MEMBER.1065) (prog1 (setf MEMBER.1065 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1065 'NAME) "Claude Denson Pepper") (setf (slot-value MEMBER.1065 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS '--) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP '--) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE '--) ) ) (setf (slot-value MEMBER.1065 'ISSUES) (list 'AGING) ) (setf (slot-value MEMBER.1065 'GROUPS) (list 'ELDERLY) ) (setf (slot-value MEMBER.1065 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1065 MEMBER))(init-relation '(ACLU PRO B MEMBER.1065 MEMBER))(init-relation '(COPE PRO A MEMBER.1065 MEMBER))(init-relation '(CFA PRO B MEMBER.1065 MEMBER))(init-relation '(LCV PRO C MEMBER.1065 MEMBER))(init-relation '(ACU CON B MEMBER.1065 MEMBER))(init-relation '(NTU CON B MEMBER.1065 MEMBER))(init-relation '(NSI PRO B MEMBER.1065 MEMBER))(init-relation '(COC CON B MEMBER.1065 MEMBER))(init-relation '(CEI CON A MEMBER.1065 MEMBER))(init-relation '(ELDERLY PRO A MEMBER.1065 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1065 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1065 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1065 MEMBER))) ) (setf (slot-value MEMBER.1065 'DISTRICT) 'FL-18) (setf (slot-value MEMBER.1065 'TERM-START) "1962") (setf (slot-value MEMBER.1065 'TERM-END) "1989") (setf (slot-value MEMBER.1065 'PARTY) 'DEM) (setf (slot-value MEMBER.1065 'COMMITTEES) (list 'HOUSE-RULES 'HOUSE-AGING) ) (setf (slot-value MEMBER.1065 'STATUS) "Active") (setf (slot-value MEMBER.1065 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1065 'SYMBOL) 'MEMBER.1065) ) (insert-item MEMBER MEMBER.1065) (defvar MEMBER.1075) (prog1 (setf MEMBER.1075 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1075 'NAME) "James Henry Quillen") (setf (slot-value MEMBER.1075 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS '--) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1075 'RELATIONS) (list (init-relation '(ADA CON B MEMBER.1075 MEMBER))(init-relation '(ACLU CON A MEMBER.1075 MEMBER))(init-relation '(COPE CON B MEMBER.1075 MEMBER))(init-relation '(CFA CON C MEMBER.1075 MEMBER))(init-relation '(LCV CON A MEMBER.1075 MEMBER))(init-relation '(ACU PRO B MEMBER.1075 MEMBER))(init-relation '(NTU CON B MEMBER.1075 MEMBER))(init-relation '(NSI PRO A MEMBER.1075 MEMBER))(init-relation '(COC PRO C MEMBER.1075 MEMBER))(init-relation '(CEI CON C MEMBER.1075 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1075 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1075 MEMBER))) ) (setf (slot-value MEMBER.1075 'DISTRICT) 'TN-1) (setf (slot-value MEMBER.1075 'TERM-START) "1962") (setf (slot-value MEMBER.1075 'PARTY) 'REP) (setf (slot-value MEMBER.1075 'COMMITTEES) (list 'HOUSE-RULES) ) (setf (slot-value MEMBER.1075 'STATUS) "Active") (setf (slot-value MEMBER.1075 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1075 'SYMBOL) 'MEMBER.1075) ) (insert-item MEMBER MEMBER.1075) (defvar MEMBER.1081) (prog1 (setf MEMBER.1081 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1081 'NAME) "Nick Joe Rahall") (setf (slot-value MEMBER.1081 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY '--) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1081 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1081 MEMBER))(init-relation '(COPE PRO B MEMBER.1081 MEMBER))(init-relation '(CFA PRO B MEMBER.1081 MEMBER))(init-relation '(LCV PRO C MEMBER.1081 MEMBER))(init-relation '(ACU CON A MEMBER.1081 MEMBER))(init-relation '(NTU CON B MEMBER.1081 MEMBER))(init-relation '(NSI CON A MEMBER.1081 MEMBER))(init-relation '(COC CON B MEMBER.1081 MEMBER))(init-relation '(CEI CON A MEMBER.1081 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1081 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1081 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1081 MEMBER))) ) (setf (slot-value MEMBER.1081 'DISTRICT) 'WV-4) (setf (slot-value MEMBER.1081 'TERM-START) "1976") (setf (slot-value MEMBER.1081 'PARTY) 'DEM) (setf (slot-value MEMBER.1081 'COMMITTEES) (list 'HOUSE-INTERIOR 'HOUSE-PUBLIC-WORKS) ) (setf (slot-value MEMBER.1081 'STATUS) "Active") (setf (slot-value MEMBER.1081 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1081 'SYMBOL) 'MEMBER.1081) ) (insert-item MEMBER MEMBER.1081) (defvar MEMBER.1053) (prog1 (setf MEMBER.1053 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1053 'NAME) "Robert A. Roe") (setf (slot-value MEMBER.1053 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB '--) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1053 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1053 MEMBER))(init-relation '(ACLU PRO C MEMBER.1053 MEMBER))(init-relation '(COPE PRO A MEMBER.1053 MEMBER))(init-relation '(CFA PRO B MEMBER.1053 MEMBER))(init-relation '(LCV PRO C MEMBER.1053 MEMBER))(init-relation '(ACU CON A MEMBER.1053 MEMBER))(init-relation '(NTU CON B MEMBER.1053 MEMBER))(init-relation '(NSI CON A MEMBER.1053 MEMBER))(init-relation '(COC CON B MEMBER.1053 MEMBER))(init-relation '(CEI CON B MEMBER.1053 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1053 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1053 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1053 MEMBER))) ) (setf (slot-value MEMBER.1053 'DISTRICT) 'NJ-8) (setf (slot-value MEMBER.1053 'TERM-START) "1969") (setf (slot-value MEMBER.1053 'PARTY) 'DEM) (setf (slot-value MEMBER.1053 'COMMITTEES) (list 'HOUSE-PUBLIC-WORKS) ) (setf (slot-value MEMBER.1053 'STATUS) "Active") (setf (slot-value MEMBER.1053 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1053 'SYMBOL) 'MEMBER.1053) ) (insert-item MEMBER MEMBER.1053) (defvar MEMBER.1035) (prog1 (setf MEMBER.1035 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1035 'NAME) "Dan Rostenkowski") (setf (slot-value MEMBER.1035 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS '--) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY '--) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL '--) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC '--) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1035 'ISSUES) (list 'TAXES) ) (setf (slot-value MEMBER.1035 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1035 MEMBER))(init-relation '(ACLU PRO C MEMBER.1035 MEMBER))(init-relation '(COPE PRO B MEMBER.1035 MEMBER))(init-relation '(LCV PRO A MEMBER.1035 MEMBER))(init-relation '(ACU CON B MEMBER.1035 MEMBER))(init-relation '(NTU CON B MEMBER.1035 MEMBER))(init-relation '(NSI CON A MEMBER.1035 MEMBER))(init-relation '(COC CON B MEMBER.1035 MEMBER))(init-relation '(CEI CON B MEMBER.1035 MEMBER))(init-relation '(DEMOCRATS PRO B MEMBER.1035 MEMBER))(init-relation '(REPUBLICANS CON B MEMBER.1035 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1035 MEMBER))) ) (setf (slot-value MEMBER.1035 'DISTRICT) 'IL-8) (setf (slot-value MEMBER.1035 'TERM-START) "1958") (setf (slot-value MEMBER.1035 'PARTY) 'DEM) (setf (slot-value MEMBER.1035 'COMMITTEES) (list 'HOUSE-WAYS) ) (setf (slot-value MEMBER.1035 'STATUS) "Active") (setf (slot-value MEMBER.1035 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1035 'SYMBOL) 'MEMBER.1035) ) (insert-item MEMBER MEMBER.1035) (defvar MEMBER.821) (prog1 (setf MEMBER.821 (make-instance 'MEMBER)) (setf (slot-value MEMBER.821 'NAME) "John Grosvenor Rowland") (setf (slot-value MEMBER.821 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'PLANT-CLOSING 'AGN) (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.821 'ISSUES) (list 'VETERANS 'POWS 'MIAS 'VIETNAM-TRADE-RELATIONS 'BUDGET-FREEZE 'BUDGET-DEFICIT 'DRUGS 'DEATH-PENALTY) ) (setf (slot-value MEMBER.821 'CREDO) (list (init-stance '(VETERANS PRO B MEMBER.821 MEMBER)) (init-stance '(POWS PRO B MEMBER.821 MEMBER)) (init-stance '(MIAS PRO B MEMBER.821 MEMBER)) (init-stance '(VIETNAM-TRADE-RELATIONS PRO B MEMBER.821 MEMBER)) (init-stance '(BUDGET-FREEZE PRO B MEMBER.821 MEMBER)) (init-stance '(BUDGET-DEFICIT CON B MEMBER.821 MEMBER)) (init-stance '(DRUGS PRO B MEMBER.821 MEMBER)) (init-stance '(DEATH-PENALTY PRO B MEMBER.821 MEMBER)) (init-stance '(ABORTION CON B MEMBER.821 MEMBER)) ) ) (setf (slot-value MEMBER.821 'GROUPS) (list 'NSI 'COC) ) (setf (slot-value MEMBER.821 'RELATIONS) (list (init-relation '(ACLU CON C MEMBER.821 MEMBER))(init-relation '(COPE CON C MEMBER.821 MEMBER))(init-relation '(ACU PRO C MEMBER.821 MEMBER))(init-relation '(NSI PRO B MEMBER.821 MEMBER))(init-relation '(COC PRO B MEMBER.821 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.821 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.821 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.821 MEMBER))) ) (setf (slot-value MEMBER.821 'DISTRICT) 'CT-5) (setf (slot-value MEMBER.821 'TERM-START) "1984") (setf (slot-value MEMBER.821 'TERM-END) "1990") (setf (slot-value MEMBER.821 'PARTY) 'REP) (setf (slot-value MEMBER.821 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-VETERANS-AFFAIRS 'HOUSE-INTELLIGENCE) ) (setf (slot-value MEMBER.821 'STATUS) "Active") (setf (slot-value MEMBER.821 'DATE-OPEN) (list->date '(2 18 1989))) (setf (slot-value MEMBER.821 'SYMBOL) 'MEMBER.821) ) (insert-item MEMBER MEMBER.821) (defvar MEMBER.1069) (prog1 (setf MEMBER.1069 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1069 'NAME) "Claudine Schneider") (setf (slot-value MEMBER.1069 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1069 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS '--) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT '--) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED '--) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC '--) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1069 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1069 MEMBER))(init-relation '(ACLU PRO C MEMBER.1069 MEMBER))(init-relation '(COPE PRO C MEMBER.1069 MEMBER))(init-relation '(CFA PRO B MEMBER.1069 MEMBER))(init-relation '(ACU CON B MEMBER.1069 MEMBER))(init-relation '(NTU CON C MEMBER.1069 MEMBER))(init-relation '(NSI CON A MEMBER.1069 MEMBER))(init-relation '(COC CON C MEMBER.1069 MEMBER))(init-relation '(CEI CON C MEMBER.1069 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1069 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1069 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1069 MEMBER))) ) (setf (slot-value MEMBER.1069 'DISTRICT) 'RI-2) (setf (slot-value MEMBER.1069 'TERM-START) "1980") (setf (slot-value MEMBER.1069 'TERM-END) "1990") (setf (slot-value MEMBER.1069 'PARTY) 'REP) (setf (slot-value MEMBER.1069 'COMMITTEES) (list 'HOUSE-MERCHANT-MARINE 'HOUSE-SCIENCE 'HOUSE-AGING) ) (setf (slot-value MEMBER.1069 'STATUS) "Active") (setf (slot-value MEMBER.1069 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1069 'SYMBOL) 'MEMBER.1069) ) (insert-item MEMBER MEMBER.1069) (defvar MEMBER.1028) (prog1 (setf MEMBER.1028 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1028 'NAME) "Patricia Scott Schroeder") (setf (slot-value MEMBER.1028 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1028 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1028 'GROUPS) (list 'BLACKS 'HISPANICS) ) (setf (slot-value MEMBER.1028 'RELATIONS) (list (init-relation '(ADA PRO A MEMBER.1028 MEMBER))(init-relation '(ACLU PRO B MEMBER.1028 MEMBER))(init-relation '(COPE PRO C MEMBER.1028 MEMBER))(init-relation '(CFA PRO A MEMBER.1028 MEMBER))(init-relation '(LCV PRO A MEMBER.1028 MEMBER))(init-relation '(ACU CON A MEMBER.1028 MEMBER))(init-relation '(NTU CON C MEMBER.1028 MEMBER))(init-relation '(NSI CON A MEMBER.1028 MEMBER))(init-relation '(COC CON C MEMBER.1028 MEMBER))(init-relation '(CEI CON C MEMBER.1028 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1028 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1028 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1028 MEMBER))) ) (setf (slot-value MEMBER.1028 'DISTRICT) 'CO-1) (setf (slot-value MEMBER.1028 'TERM-START) "1972") (setf (slot-value MEMBER.1028 'PARTY) 'DEM) (setf (slot-value MEMBER.1028 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-JUDICIARY) ) (setf (slot-value MEMBER.1028 'STATUS) "Active") (setf (slot-value MEMBER.1028 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1028 'SYMBOL) 'MEMBER.1028) ) (insert-item MEMBER MEMBER.1028) (defvar MEMBER.708) (prog1 (setf MEMBER.708 (make-instance 'MEMBER)) (setf (slot-value MEMBER.708 'NAME) "Christopher Shays") (setf (slot-value MEMBER.708 'VOTES) (list (list 'PLANT-CLOSING 'AGN) (list 'DEFENSE-AUTHORIZATION '--) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS '--) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE '--) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.708 'ISSUES) (list 'BUDGET-DEFICIT 'TRANSPORTATION 'HOUSING 'DRUGS 'CLEAN-WATER 'EMPLOYMENT) ) (setf (slot-value MEMBER.708 'CREDO) (list (init-stance '(BUDGET-DEFICIT CON B MEMBER.708 MEMBER)) (init-stance '(TRANSPORTATION PRO B MEMBER.708 MEMBER)) (init-stance '(HOUSING PRO B MEMBER.708 MEMBER)) (init-stance '(CLEAN-WATER PRO B MEMBER.708 MEMBER)) (init-stance '(EMPLOYMENT PRO B MEMBER.708 MEMBER)) (init-stance '(SPENDING CON B MEMBER.708 MEMBER)) ) ) (setf (slot-value MEMBER.708 'RELATIONS) (list (init-relation '(DEMOCRATS CON C MEMBER.708 MEMBER))(init-relation '(ADA PRO B MEMBER.708 MEMBER))(init-relation '(ACLU PRO C MEMBER.708 MEMBER))(init-relation '(COPE PRO C MEMBER.708 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.708 MEMBER))) ) (setf (slot-value MEMBER.708 'DISTRICT) 'CT-4) (setf (slot-value MEMBER.708 'TERM-START) "1987") (setf (slot-value MEMBER.708 'PARTY) 'REP) (setf (slot-value MEMBER.708 'STATUS) "Active") (setf (slot-value MEMBER.708 'DATE-OPEN) (list->date '(4 14 1989))) (setf (slot-value MEMBER.708 'SYMBOL) 'MEMBER.708) ) (insert-item MEMBER MEMBER.708) (defvar MEMBER.1054) (prog1 (setf MEMBER.1054 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1054 'NAME) "Joseph Richard Skeen") (setf (slot-value MEMBER.1054 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1054 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1054 MEMBER))(init-relation '(ACLU CON A MEMBER.1054 MEMBER))(init-relation '(COPE CON A MEMBER.1054 MEMBER))(init-relation '(CFA CON A MEMBER.1054 MEMBER))(init-relation '(LCV CON A MEMBER.1054 MEMBER))(init-relation '(ACU PRO B MEMBER.1054 MEMBER))(init-relation '(NTU CON C MEMBER.1054 MEMBER))(init-relation '(NSI PRO A MEMBER.1054 MEMBER))(init-relation '(COC PRO B MEMBER.1054 MEMBER))(init-relation '(CEI PRO C MEMBER.1054 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1054 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1054 MEMBER))) ) (setf (slot-value MEMBER.1054 'DISTRICT) 'NM-2) (setf (slot-value MEMBER.1054 'TERM-START) "1980") (setf (slot-value MEMBER.1054 'PARTY) 'REP) (setf (slot-value MEMBER.1054 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1054 'STATUS) "Active") (setf (slot-value MEMBER.1054 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1054 'SYMBOL) 'MEMBER.1054) ) (insert-item MEMBER MEMBER.1054) (defvar MEMBER.1037) (prog1 (setf MEMBER.1037 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1037 'NAME) "Neal Edward Smith") (setf (slot-value MEMBER.1037 'ENGLISH-SHORT) "Neal Smith") (setf (slot-value MEMBER.1037 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS '--) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1037 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1037 MEMBER))(init-relation '(ACLU PRO C MEMBER.1037 MEMBER))(init-relation '(COPE PRO B MEMBER.1037 MEMBER))(init-relation '(LCV PRO C MEMBER.1037 MEMBER))(init-relation '(ACU CON B MEMBER.1037 MEMBER))(init-relation '(NTU CON B MEMBER.1037 MEMBER))(init-relation '(NSI CON A MEMBER.1037 MEMBER))(init-relation '(COC CON B MEMBER.1037 MEMBER))(init-relation '(CEI CON B MEMBER.1037 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1037 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1037 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1037 MEMBER))) ) (setf (slot-value MEMBER.1037 'DISTRICT) 'IA-4) (setf (slot-value MEMBER.1037 'TERM-START) "1958") (setf (slot-value MEMBER.1037 'PARTY) 'DEM) (setf (slot-value MEMBER.1037 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1037 'STATUS) "Active") (setf (slot-value MEMBER.1037 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1037 'SYMBOL) 'MEMBER.1037) ) (insert-item MEMBER MEMBER.1037) (defvar MEMBER.1078) (prog1 (setf MEMBER.1078 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1078 'NAME) "Peter Smith") (setf (slot-value MEMBER.1078 'VOTES) (list (list 'CAP-GAINS-CUT 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1078 'RELATIONS) (list (init-relation '(DEMOCRATS CON C MEMBER.1078 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1078 MEMBER))) ) (setf (slot-value MEMBER.1078 'DISTRICT) 'VT-AL) (setf (slot-value MEMBER.1078 'TERM-START) "1988") (setf (slot-value MEMBER.1078 'TERM-END) "1990") (setf (slot-value MEMBER.1078 'PARTY) 'REP) (setf (slot-value MEMBER.1078 'COMMITTEES) (list 'HOUSE-EDUCATION 'HOUSE-GOVERNMENT-OPERATIONS) ) (setf (slot-value MEMBER.1078 'STATUS) "Active") (setf (slot-value MEMBER.1078 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1078 'SYMBOL) 'MEMBER.1078) ) (insert-item MEMBER MEMBER.1078) (defvar MEMBER.1051) (prog1 (setf MEMBER.1051 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1051 'NAME) "Robert Clinton Smith") (setf (slot-value MEMBER.1051 'ENGLISH-SHORT) "Bob Smith") (setf (slot-value MEMBER.1051 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.1051 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1051 MEMBER))(init-relation '(ACLU CON A MEMBER.1051 MEMBER))(init-relation '(COPE CON B MEMBER.1051 MEMBER))(init-relation '(CFA CON C MEMBER.1051 MEMBER))(init-relation '(LCV PRO C MEMBER.1051 MEMBER))(init-relation '(ACU PRO A MEMBER.1051 MEMBER))(init-relation '(NTU PRO C MEMBER.1051 MEMBER))(init-relation '(NSI PRO A MEMBER.1051 MEMBER))(init-relation '(COC PRO A MEMBER.1051 MEMBER))(init-relation '(CEI PRO B MEMBER.1051 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1051 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1051 MEMBER))) ) (setf (slot-value MEMBER.1051 'DISTRICT) 'NH-1) (setf (slot-value MEMBER.1051 'TERM-START) "1984") (setf (slot-value MEMBER.1051 'TERM-END) "1990") (setf (slot-value MEMBER.1051 'PARTY) 'REP) (setf (slot-value MEMBER.1051 'COMMITTEES) (list 'HOUSE-VETERANS-AFFAIRS) ) (setf (slot-value MEMBER.1051 'STATUS) "Active") (setf (slot-value MEMBER.1051 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1051 'SYMBOL) 'MEMBER.1051) ) (insert-item MEMBER MEMBER.1051) (defvar MEMBER.1049) (prog1 (setf MEMBER.1049 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1049 'NAME) "Virginia Dodd Smith") (setf (slot-value MEMBER.1049 'ENGLISH-SHORT) "Ginnie Smith") (setf (slot-value MEMBER.1049 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1049 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.1049 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1049 MEMBER))(init-relation '(ACLU CON B MEMBER.1049 MEMBER))(init-relation '(COPE CON A MEMBER.1049 MEMBER))(init-relation '(CFA CON C MEMBER.1049 MEMBER))(init-relation '(LCV CON B MEMBER.1049 MEMBER))(init-relation '(ACU PRO C MEMBER.1049 MEMBER))(init-relation '(NTU PRO C MEMBER.1049 MEMBER))(init-relation '(NSI PRO B MEMBER.1049 MEMBER))(init-relation '(COC PRO B MEMBER.1049 MEMBER))(init-relation '(CEI PRO C MEMBER.1049 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1049 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1049 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1049 MEMBER))) ) (setf (slot-value MEMBER.1049 'DISTRICT) 'NE-3) (setf (slot-value MEMBER.1049 'TERM-START) "1974") (setf (slot-value MEMBER.1049 'TERM-END) "1990") (setf (slot-value MEMBER.1049 'PARTY) 'REP) (setf (slot-value MEMBER.1049 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1049 'STATUS) "Active") (setf (slot-value MEMBER.1049 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1049 'SYMBOL) 'MEMBER.1049) ) (insert-item MEMBER MEMBER.1049) (defvar MEMBER.1041) (prog1 (setf MEMBER.1041 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1041 'NAME) "Olympia J. Snowe") (setf (slot-value MEMBER.1041 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1041 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1041 'RELATIONS) (list (init-relation '(ADA CON C MEMBER.1041 MEMBER))(init-relation '(COPE CON C MEMBER.1041 MEMBER))(init-relation '(CFA PRO C MEMBER.1041 MEMBER))(init-relation '(LCV PRO C MEMBER.1041 MEMBER))(init-relation '(ACU CON C MEMBER.1041 MEMBER))(init-relation '(NTU PRO C MEMBER.1041 MEMBER))(init-relation '(NSI PRO C MEMBER.1041 MEMBER))(init-relation '(COC PRO C MEMBER.1041 MEMBER))(init-relation '(CEI CON C MEMBER.1041 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1041 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1041 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1041 MEMBER))) ) (setf (slot-value MEMBER.1041 'DISTRICT) 'ME-2) (setf (slot-value MEMBER.1041 'TERM-START) "1978") (setf (slot-value MEMBER.1041 'PARTY) 'REP) (setf (slot-value MEMBER.1041 'COMMITTEES) (list 'HOUSE-FOREIGN) ) (setf (slot-value MEMBER.1041 'STATUS) "Active") (setf (slot-value MEMBER.1041 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1041 'SYMBOL) 'MEMBER.1041) ) (insert-item MEMBER MEMBER.1041) (defvar MEMBER.1073) (prog1 (setf MEMBER.1073 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1073 'NAME) "Floyd D. Spence") (setf (slot-value MEMBER.1073 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION '--) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE '--) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE '--) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1073 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1073 MEMBER))(init-relation '(ACLU CON A MEMBER.1073 MEMBER))(init-relation '(COPE CON B MEMBER.1073 MEMBER))(init-relation '(CFA CON B MEMBER.1073 MEMBER))(init-relation '(LCV CON B MEMBER.1073 MEMBER))(init-relation '(ACU PRO B MEMBER.1073 MEMBER))(init-relation '(NTU PRO C MEMBER.1073 MEMBER))(init-relation '(NSI PRO A MEMBER.1073 MEMBER))(init-relation '(COC PRO B MEMBER.1073 MEMBER))(init-relation '(CEI PRO C MEMBER.1073 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1073 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1073 MEMBER))) ) (setf (slot-value MEMBER.1073 'DISTRICT) 'SC-2) (setf (slot-value MEMBER.1073 'TERM-START) "1970") (setf (slot-value MEMBER.1073 'PARTY) 'REP) (setf (slot-value MEMBER.1073 'COMMITTEES) (list 'HOUSE-ARMED-SERVICES 'HOUSE-AGING) ) (setf (slot-value MEMBER.1073 'STATUS) "Active") (setf (slot-value MEMBER.1073 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1073 'SYMBOL) 'MEMBER.1073) ) (insert-item MEMBER MEMBER.1073) (defvar MEMBER.1061) (prog1 (setf MEMBER.1061 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1061 'NAME) "Louis Stokes") (setf (slot-value MEMBER.1061 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS '--) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL '--) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM '--) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1061 'ISSUES) (list 'BLACKS) ) (setf (slot-value MEMBER.1061 'GROUPS) (list 'BLACKS) ) (setf (slot-value MEMBER.1061 'RELATIONS) (list (init-relation '(BLACKS PRO A MEMBER.1061 MEMBER))(init-relation '(ADA PRO A MEMBER.1061 MEMBER))(init-relation '(ACLU PRO A MEMBER.1061 MEMBER))(init-relation '(COPE PRO A MEMBER.1061 MEMBER))(init-relation '(CFA PRO B MEMBER.1061 MEMBER))(init-relation '(LCV PRO C MEMBER.1061 MEMBER))(init-relation '(ACU CON A MEMBER.1061 MEMBER))(init-relation '(NTU CON B MEMBER.1061 MEMBER))(init-relation '(NSI CON A MEMBER.1061 MEMBER))(init-relation '(COC CON B MEMBER.1061 MEMBER))(init-relation '(CEI CON A MEMBER.1061 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1061 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1061 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1061 MEMBER))) ) (setf (slot-value MEMBER.1061 'DISTRICT) 'OH-21) (setf (slot-value MEMBER.1061 'TERM-START) "1968") (setf (slot-value MEMBER.1061 'PARTY) 'DEM) (setf (slot-value MEMBER.1061 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1061 'STATUS) "Active") (setf (slot-value MEMBER.1061 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1061 'SYMBOL) 'MEMBER.1061) ) (insert-item MEMBER MEMBER.1061) (defvar MEMBER.1066) (prog1 (setf MEMBER.1066 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1066 'NAME) "Michael L. Synar") (setf (slot-value MEMBER.1066 'VOTES) (list (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-GAINS-CUT 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1066 'ISSUES) (list 'INDIAN-AFFAIRS 'ENERGY-DEREGULATION 'FAIR-HOUSING 'BAN-TOBACCO) ) (setf (slot-value MEMBER.1066 'GROUPS) (list 'INDIANS 'FARM) ) (setf (slot-value MEMBER.1066 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1066 MEMBER))(init-relation '(ACLU PRO B MEMBER.1066 MEMBER))(init-relation '(COPE PRO C MEMBER.1066 MEMBER))(init-relation '(LCV PRO C MEMBER.1066 MEMBER))(init-relation '(ACU CON C MEMBER.1066 MEMBER))(init-relation '(NTU CON C MEMBER.1066 MEMBER))(init-relation '(NSI CON B MEMBER.1066 MEMBER))(init-relation '(COC CON B MEMBER.1066 MEMBER))(init-relation '(CEI CON C MEMBER.1066 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1066 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1066 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1066 MEMBER))) ) (setf (slot-value MEMBER.1066 'DISTRICT) 'OK-2) (setf (slot-value MEMBER.1066 'TERM-START) "1978") (setf (slot-value MEMBER.1066 'PARTY) 'DEM) (setf (slot-value MEMBER.1066 'COMMITTEES) (list 'HOUSE-ENERGY 'HOUSE-JUDICIARY) ) (setf (slot-value MEMBER.1066 'STATUS) "Active") (setf (slot-value MEMBER.1066 'DATE-OPEN) (list->date '(8 21 1989))) (setf (slot-value MEMBER.1066 'SYMBOL) 'MEMBER.1066) ) (insert-item MEMBER MEMBER.1066) (defvar MEMBER.1084) (prog1 (setf MEMBER.1084 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1084 'NAME) "Esteban Edward Torres") (setf (slot-value MEMBER.1084 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL '--) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1084 'ISSUES) (list 'HISPANICS) ) (setf (slot-value MEMBER.1084 'GROUPS) (list 'HISPANICS) ) (setf (slot-value MEMBER.1084 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1084 MEMBER))(init-relation '(ACLU PRO B MEMBER.1084 MEMBER))(init-relation '(COPE PRO A MEMBER.1084 MEMBER))(init-relation '(CFA PRO B MEMBER.1084 MEMBER))(init-relation '(LCV PRO C MEMBER.1084 MEMBER))(init-relation '(ACU CON A MEMBER.1084 MEMBER))(init-relation '(NTU CON B MEMBER.1084 MEMBER))(init-relation '(NSI CON A MEMBER.1084 MEMBER))(init-relation '(COC CON B MEMBER.1084 MEMBER))(init-relation '(CEI CON B MEMBER.1084 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1084 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1084 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1084 MEMBER))(init-relation '(HISPANICS PRO A MEMBER.1084 MEMBER))(init-relation '(BLACKS PRO B MEMBER.1084 MEMBER))) ) (setf (slot-value MEMBER.1084 'DISTRICT) 'CA-34) (setf (slot-value MEMBER.1084 'TERM-START) "1982") (setf (slot-value MEMBER.1084 'PARTY) 'DEM) (setf (slot-value MEMBER.1084 'COMMITTEES) (list 'HOUSE-BANKING 'HOUSE-SMALL-BUSINESS) ) (setf (slot-value MEMBER.1084 'STATUS) "Active") (setf (slot-value MEMBER.1084 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1084 'SYMBOL) 'MEMBER.1084) ) (insert-item MEMBER MEMBER.1084) (defvar MEMBER.1086) (prog1 (setf MEMBER.1086 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1086 'NAME) "Robert G. Torricelli") (setf (slot-value MEMBER.1086 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'FOR) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'FOR) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) (list 'BRADY-BILL 'FOR) ) ) (setf (slot-value MEMBER.1086 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1086 MEMBER))(init-relation '(ACLU PRO C MEMBER.1086 MEMBER))(init-relation '(COPE PRO A MEMBER.1086 MEMBER))(init-relation '(CFA PRO B MEMBER.1086 MEMBER))(init-relation '(LCV PRO C MEMBER.1086 MEMBER))(init-relation '(ACU CON A MEMBER.1086 MEMBER))(init-relation '(NTU CON C MEMBER.1086 MEMBER))(init-relation '(NSI CON A MEMBER.1086 MEMBER))(init-relation '(COC CON B MEMBER.1086 MEMBER))(init-relation '(CEI CON B MEMBER.1086 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1086 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1086 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1086 MEMBER))) ) (setf (slot-value MEMBER.1086 'DISTRICT) 'NJ-9) (setf (slot-value MEMBER.1086 'TERM-START) "1982") (setf (slot-value MEMBER.1086 'PARTY) 'DEM) (setf (slot-value MEMBER.1086 'COMMITTEES) (list 'HOUSE-FOREIGN 'HOUSE-SCIENCE) ) (setf (slot-value MEMBER.1086 'STATUS) "Active") (setf (slot-value MEMBER.1086 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1086 'SYMBOL) 'MEMBER.1086) ) (insert-item MEMBER MEMBER.1086) (defvar MEMBER.1025) (prog1 (setf MEMBER.1025 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1025 'NAME) "Morris K. Udall") (setf (slot-value MEMBER.1025 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'FOR) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'FOR) (list 'HANDGUN-CONTROL 'AGN) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS '--) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'AGN) (list 'OK-SCHOOL-PRAY 'AGN) (list 'LIMIT-ABORTIONS 'AGN) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'FOR) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'AGN) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'AGN) ) ) (setf (slot-value MEMBER.1025 'ISSUES) (list 'PROGRESSIVE) ) (setf (slot-value MEMBER.1025 'RELATIONS) (list (init-relation '(ADA PRO B MEMBER.1025 MEMBER))(init-relation '(ACLU PRO A MEMBER.1025 MEMBER))(init-relation '(COPE PRO B MEMBER.1025 MEMBER))(init-relation '(LCV PRO C MEMBER.1025 MEMBER))(init-relation '(ACU CON B MEMBER.1025 MEMBER))(init-relation '(NTU CON B MEMBER.1025 MEMBER))(init-relation '(NSI CON B MEMBER.1025 MEMBER))(init-relation '(COC CON B MEMBER.1025 MEMBER))(init-relation '(CEI CON B MEMBER.1025 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1025 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1025 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1025 MEMBER))) ) (setf (slot-value MEMBER.1025 'DISTRICT) 'AZ-2) (setf (slot-value MEMBER.1025 'TERM-START) "1961") (setf (slot-value MEMBER.1025 'TERM-END) "1991") (setf (slot-value MEMBER.1025 'PARTY) 'DEM) (setf (slot-value MEMBER.1025 'COMMITTEES) (list 'HOUSE-FOREIGN) ) (setf (slot-value MEMBER.1025 'STATUS) "Active") (setf (slot-value MEMBER.1025 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1025 'SYMBOL) 'MEMBER.1025) ) (insert-item MEMBER MEMBER.1025) (defvar MEMBER.1050) (prog1 (setf MEMBER.1050 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1050 'NAME) "Barbara F. Vucanovich") (setf (slot-value MEMBER.1050 'GENDER) 'FEMALE) (setf (slot-value MEMBER.1050 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'AGN) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'FOR) (list 'LIMIT-IMPORTS 'AGN) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'AGN) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'AGN) (list 'PASS-IMM-REFORM 'FOR) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'AGN) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'FOR) (list 'RPL-TOBAC-SUB 'FOR) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'AGN) (list 'IMMIG-REFORM 'FOR) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1050 'RELATIONS) (list (init-relation '(ADA CON A MEMBER.1050 MEMBER))(init-relation '(ACLU CON A MEMBER.1050 MEMBER))(init-relation '(COPE CON A MEMBER.1050 MEMBER))(init-relation '(CFA CON C MEMBER.1050 MEMBER))(init-relation '(LCV CON A MEMBER.1050 MEMBER))(init-relation '(ACU PRO B MEMBER.1050 MEMBER))(init-relation '(NSI PRO A MEMBER.1050 MEMBER))(init-relation '(COC PRO A MEMBER.1050 MEMBER))(init-relation '(CEI PRO C MEMBER.1050 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1050 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1050 MEMBER))) ) (setf (slot-value MEMBER.1050 'DISTRICT) 'NV-2) (setf (slot-value MEMBER.1050 'TERM-START) "1982") (setf (slot-value MEMBER.1050 'PARTY) 'REP) (setf (slot-value MEMBER.1050 'COMMITTEES) (list 'HOUSE-ADMINISTRATION 'HOUSE-INTERIOR) ) (setf (slot-value MEMBER.1050 'STATUS) "Active") (setf (slot-value MEMBER.1050 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1050 'SYMBOL) 'MEMBER.1050) ) (insert-item MEMBER MEMBER.1050) (defvar MEMBER.1046) (prog1 (setf MEMBER.1046 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1046 'NAME) "Jamie L. Whitten") (setf (slot-value MEMBER.1046 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'FOR) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS 'AGN) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'FOR) (list 'STAR-WARS 'FOR) (list 'HOME-HEALTH-CARE 'FOR) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'FOR) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT '--) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'FOR) (list 'HALT-AID-TO-CONTRAS 'FOR) (list 'INCR-AID-TO-EL-SAL 'AGN) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'AGN) (list 'BAN-POLYGRAPH 'AGN) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'AGN) (list 'LMT-TEXT-IMP 'FOR) (list 'LIMIT-SDI 'FOR) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'FOR) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'FOR) (list 'FLAG-BURNING 'FOR) ) ) (setf (slot-value MEMBER.1046 'RELATIONS) (list (init-relation '(ADA PRO C MEMBER.1046 MEMBER))(init-relation '(COPE CON C MEMBER.1046 MEMBER))(init-relation '(CFA PRO C MEMBER.1046 MEMBER))(init-relation '(LCV CON B MEMBER.1046 MEMBER))(init-relation '(ACU CON B MEMBER.1046 MEMBER))(init-relation '(NTU CON B MEMBER.1046 MEMBER))(init-relation '(COC CON B MEMBER.1046 MEMBER))(init-relation '(CEI CON B MEMBER.1046 MEMBER))(init-relation '(DEMOCRATS PRO C MEMBER.1046 MEMBER))(init-relation '(REPUBLICANS CON C MEMBER.1046 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1046 MEMBER))) ) (setf (slot-value MEMBER.1046 'DISTRICT) 'MS-1) (setf (slot-value MEMBER.1046 'TERM-START) "1941") (setf (slot-value MEMBER.1046 'PARTY) 'DEM) (setf (slot-value MEMBER.1046 'COMMITTEES) (list 'HOUSE-APPROPRIATIONS) ) (setf (slot-value MEMBER.1046 'STATUS) "Active") (setf (slot-value MEMBER.1046 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1046 'SYMBOL) 'MEMBER.1046) ) (insert-item MEMBER MEMBER.1046) (defvar MEMBER.1024) (prog1 (setf MEMBER.1024 (make-instance 'MEMBER)) (setf (slot-value MEMBER.1024 'NAME) "Don Young") (setf (slot-value MEMBER.1024 'VOTES) (list (list 'DEFENSE-AUTHORIZATION 'AGN) (list 'SPACE-STATION 'AGN) (list 'CIVIL-RIGHTS-RESTORATION-ACT 'FOR) (list 'REFLAGGING-SHIPS '--) (list 'HANDGUN-CONTROL 'FOR) (list 'CONTRA-AID2 'AGN) (list 'STAR-WARS 'AGN) (list 'HOME-HEALTH-CARE 'AGN) (list 'AIDS 'AGN) (list 'LIMIT-IMPORTS 'FOR) (list 'CAP-TAX-CUT 'AGN) (list 'EXTEND-SS-BENEFIT 'AGN) (list 'ESTAB-DOM-CONTENT 'FOR) (list 'BAR-IMM-AMNESTY 'FOR) (list 'OK-SCHOOL-PRAY 'FOR) (list 'LIMIT-ABORTIONS 'FOR) (list 'APPROVE-ERA 'FOR) (list 'PASS-IMM-REFORM 'AGN) (list 'CANCEL-MX-MISSILE 'AGN) (list 'HALT-AID-TO-CONTRAS 'AGN) (list 'INCR-AID-TO-EL-SAL 'FOR) (list 'SUPP-NUCLEAR-FREEZE 'FOR) (list 'CAP-GAINS-CUT 'AGN) (list 'LMT-CLN-WATER-ACT 'AGN) (list 'RPL-TOBAC-SUB 'AGN) (list 'GRM-RDMN-DEF-RED 'FOR) (list 'BAN-POLYGRAPH 'FOR) (list 'RETAIN-GUN-CONTROL 'AGN) (list 'CONTRA-AID 'FOR) (list 'LMT-TEXT-IMP 'AGN) (list 'LIMIT-SDI 'AGN) (list 'AID-ANGOLA-REB 'FOR) (list 'TAX-REFORM 'AGN) (list 'S-AFRICA-SANC 'FOR) (list 'IMMIG-REFORM 'AGN) (list 'CHILD-CARE 'AGN) (list 'FLAG-BURNING 'FOR) (list 'BRADY-BILL 'AGN) ) ) (setf (slot-value MEMBER.1024 'RELATIONS) (list (init-relation '(ADA CON B MEMBER.1024 MEMBER))(init-relation '(ACLU CON B MEMBER.1024 MEMBER))(init-relation '(COPE CON C MEMBER.1024 MEMBER))(init-relation '(CFA CON B MEMBER.1024 MEMBER))(init-relation '(LCV CON B MEMBER.1024 MEMBER))(init-relation '(ACU PRO C MEMBER.1024 MEMBER))(init-relation '(NTU CON C MEMBER.1024 MEMBER))(init-relation '(NSI PRO A MEMBER.1024 MEMBER))(init-relation '(COC PRO C MEMBER.1024 MEMBER))(init-relation '(CEI CON C MEMBER.1024 MEMBER))(init-relation '(DEMOCRATS CON C MEMBER.1024 MEMBER))(init-relation '(REPUBLICANS PRO C MEMBER.1024 MEMBER))(init-relation '(COUNTRY PRO C MEMBER.1024 MEMBER))) ) (setf (slot-value MEMBER.1024 'DISTRICT) 'AK-AL) (setf (slot-value MEMBER.1024 'TERM-START) "1973") (setf (slot-value MEMBER.1024 'PARTY) 'REP) (setf (slot-value MEMBER.1024 'COMMITTEES) (list 'HOUSE-INTERIOR) ) (setf (slot-value MEMBER.1024 'STATUS) "Active") (setf (slot-value MEMBER.1024 'DATE-OPEN) (list->date '(9 19 1989))) (setf (slot-value MEMBER.1024 'SYMBOL) 'MEMBER.1024) ) (insert-item MEMBER MEMBER.1024)