;; Macintosh HD:lisp:db:data:issue5 
(DEFVAR ISSUE.24)
(PROG1 (SETF ISSUE.24 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.24 'NAME) "Religious freedom") (SETF (SLOT-VALUE ISSUE.24 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.24 'SYNONYMS) (LIST 'RELIGION 'RELIGIOUS-FREEDOM)) (SETF (SLOT-VALUE ISSUE.24 'ISA) (LIST 'PRINCIPLE)) (SETF (SLOT-VALUE ISSUE.24 'POLARITY) "Support freedom of religion") (SETF (SLOT-VALUE ISSUE.24 'ENGLISH) "freedom of religious expression") (SETF (SLOT-VALUE ISSUE.24 'ENGLISH-SHORT) "religious freedom") (SETF (SLOT-VALUE ISSUE.24 'PRO-STANCES) (LIST (INIT-STANCE '(CONSTITUTION PRO B RELIGION ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B RELIGION ISSUE)) (INIT-STANCE '(FREEDOM PRO B RELIGION ISSUE)))) (SETF (SLOT-VALUE ISSUE.24 'NORM) (INIT-STANCE '(RELIGION PRO A ISSUE.24 ISSUE))) (SETF (SLOT-VALUE ISSUE.24 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.24 'DATE-OPEN) (LIST->DATE '(3 10 1990))) (SETF (SLOT-VALUE ISSUE.24 'SYMBOL) 'ISSUE.24))
(INSERT-ITEM ISSUE ISSUE.24)
(DEFVAR ISSUE.35)
(PROG1 (SETF ISSUE.35 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.35 'NAME) "Responsibility") (SETF (SLOT-VALUE ISSUE.35 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.35 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.35 'POLARITY) "Support responsible courses of action") (SETF (SLOT-VALUE ISSUE.35 'ENGLISH) "responsibility to society") (SETF (SLOT-VALUE ISSUE.35 'ENGLISH-SHORT) "responsibility") (SETF (SLOT-VALUE ISSUE.35 'PRO-STANCES) (LIST (INIT-STANCE '(VALUE PRO B RESPONSIBILITY ISSUE)) (INIT-STANCE '(IDEALISM PRO B RESPONSIBILITY ISSUE)) (INIT-STANCE '(FUTURE PRO B RESPONSIBILITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.35 'NORM) (INIT-STANCE '(RESPONSIBILITY PRO B ISSUE.35 ISSUE))) (SETF (SLOT-VALUE ISSUE.35 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.35 'DATE-OPEN) (LIST->DATE '(3 15 1990))) (SETF (SLOT-VALUE ISSUE.35 'SYMBOL) 'ISSUE.35))
(INSERT-ITEM ISSUE ISSUE.35)
(DEFVAR ISSUE.22)
(PROG1 (SETF ISSUE.22 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.22 'NAME) "Retribution") (SETF (SLOT-VALUE ISSUE.22 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.22 'POLARITY) "Support principle of retribution ") (SETF (SLOT-VALUE ISSUE.22 'ENGLISH) "retribution and punishment") (SETF (SLOT-VALUE ISSUE.22 'ENGLISH-SHORT) "retribution") (SETF (SLOT-VALUE ISSUE.22 'PRO-STANCES) (LIST (INIT-STANCE '(LAW-AND-ORDER PRO B RETRIBUTION ISSUE)) (INIT-STANCE '(JUSTICE PRO B RETRIBUTION ISSUE)) (INIT-STANCE '(PRISON PRO B RETRIBUTION ISSUE)))) (SETF (SLOT-VALUE ISSUE.22 'CON-STANCES) (LIST (INIT-STANCE '(COMPASSION PRO B RETRIBUTION ISSUE)))) (SETF (SLOT-VALUE ISSUE.22 'NORM) (INIT-STANCE '(RETRIBUTION PRO C ISSUE.22 ISSUE))) (SETF (SLOT-VALUE ISSUE.22 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.22 'DATE-OPEN) (LIST->DATE '(3 10 1990))) (SETF (SLOT-VALUE ISSUE.22 'SYMBOL) 'ISSUE.22))
(INSERT-ITEM ISSUE ISSUE.22)
(DEFVAR ISSUE.1254)
(PROG1 (SETF ISSUE.1254 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1254 'NAME) "Right to an Education") (SETF (SLOT-VALUE ISSUE.1254 'TYPE) 'RIGHT) (SETF (SLOT-VALUE ISSUE.1254 'SYNONYMS) (LIST 'EDUCATION-RIGHTS)) (SETF (SLOT-VALUE ISSUE.1254 'ISA) (LIST 'RIGHT)) (SETF (SLOT-VALUE ISSUE.1254 'POLARITY) "Support equal access to education") (SETF (SLOT-VALUE ISSUE.1254 'ENGLISH) "equal access to education") (SETF (SLOT-VALUE ISSUE.1254 'ENGLISH-SHORT) "education") (SETF (SLOT-VALUE ISSUE.1254 'PRO-STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B EDUCATION-RIGHTS ISSUE)) (INIT-STANCE '(FAIRNESS PRO B EDUCATION-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1254 'NORM) (INIT-STANCE '(EDUCATION-RIGHTS PRO C ISSUE.1254 ISSUE))) (SETF (SLOT-VALUE ISSUE.1254 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1254 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1254 'SYMBOL) 'ISSUE.1254))
(INSERT-ITEM ISSUE ISSUE.1254)
(DEFVAR ISSUE.1442)
(PROG1 (SETF ISSUE.1442 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1442 'NAME) "Rural Electrification") (SETF (SLOT-VALUE ISSUE.1442 'TYPE) 'PROGRAM) (SETF (SLOT-VALUE ISSUE.1442 'SYNONYMS) (LIST 'RURAL-ELECTRIC)) (SETF (SLOT-VALUE ISSUE.1442 'ISA) (LIST 'FARM)) (SETF (SLOT-VALUE ISSUE.1442 'POLARITY) "Support federal funding for rural electricity") (SETF (SLOT-VALUE ISSUE.1442 'ENGLISH) "funding for rural electricity") (SETF (SLOT-VALUE ISSUE.1442 'ENGLISH-SHORT) "rural electrification") (SETF (SLOT-VALUE ISSUE.1442 'PRO-STANCES) (LIST (INIT-STANCE '(PROSPERITY PRO C RURAL-ELECTRIC ISSUE)) (INIT-STANCE '(EQUALITY PRO B RURAL-ELECTRIC ISSUE)) (INIT-STANCE '(PROGRESS PRO B RURAL-ELECTRIC ISSUE)))) (SETF (SLOT-VALUE ISSUE.1442 'CON-STANCES) (LIST (INIT-STANCE '(TRADITION PRO B RURAL-ELECTRIC ISSUE)))) (SETF (SLOT-VALUE ISSUE.1442 'NORM) (INIT-STANCE '(RURAL-ELECTRIC PRO C ISSUE.1442 ISSUE))) (SETF (SLOT-VALUE ISSUE.1442 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1442 'DATE-OPEN) (LIST->DATE '(1 22 1989))) (SETF (SLOT-VALUE ISSUE.1442 'SYMBOL) 'ISSUE.1442))
(INSERT-ITEM ISSUE ISSUE.1442)
(DEFVAR ISSUE.3852)
(PROG1 (SETF ISSUE.3852 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3852 'NAME) "School Bussing") (SETF (SLOT-VALUE ISSUE.3852 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.3852 'SYNONYMS) (LIST 'BUSSING)) (SETF (SLOT-VALUE ISSUE.3852 'ISA) (LIST 'DESEGREGATION)) (SETF (SLOT-VALUE ISSUE.3852 'POLARITY) "Support busing to integrate public schools") (SETF (SLOT-VALUE ISSUE.3852 'ENGLISH) "school bussing to integrate public schools") (SETF (SLOT-VALUE ISSUE.3852 'ENGLISH-SHORT) "bussing") (SETF (SLOT-VALUE ISSUE.3852 'PRO-STANCES) (LIST (INIT-STANCE '(EDUCATION PRO B BUSSING ISSUE)) (INIT-STANCE '(EQUALITY PRO B BUSSING ISSUE)) (INIT-STANCE '(OPEN-HOUSING PRO B BUSSING ISSUE)) (INIT-STANCE '(CIVIL-RIGHTS PRO B BUSSING ISSUE)) (INIT-STANCE '(DESEGREGATION PRO B BUSSING ISSUE)) (INIT-STANCE '(PROGRESS PRO B BUSSING ISSUE)))) (SETF (SLOT-VALUE ISSUE.3852 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B BUSSING ISSUE)) (INIT-STANCE '(STATES-RIGHTS PRO B BUSSING ISSUE)) (INIT-STANCE '(TRADITION PRO B BUSSING ISSUE)))) (SETF (SLOT-VALUE ISSUE.3852 'NORM) (INIT-STANCE '(BUSSING CON C ISSUE.3852 ISSUE))) (SETF (SLOT-VALUE ISSUE.3852 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3852 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3852 'SYMBOL) 'ISSUE.3852))
(INSERT-ITEM ISSUE ISSUE.3852)
(DEFVAR ISSUE.3851)
(PROG1 (SETF ISSUE.3851 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3851 'NAME) "School Desegregation") (SETF (SLOT-VALUE ISSUE.3851 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.3851 'SYNONYMS) (LIST 'DESEGREGATION)) (SETF (SLOT-VALUE ISSUE.3851 'ISA) (LIST 'CIVIL-RIGHTS)) (SETF (SLOT-VALUE ISSUE.3851 'POLARITY) "Support federal efforts to integrate public schools") (SETF (SLOT-VALUE ISSUE.3851 'ENGLISH) "school desegregation") (SETF (SLOT-VALUE ISSUE.3851 'ENGLISH-SHORT) "desegregation") (SETF (SLOT-VALUE ISSUE.3851 'PRO-STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B DESEGREGATION ISSUE)) (INIT-STANCE '(EQUALITY PRO B DESEGREGATION ISSUE)) (INIT-STANCE '(EDUCATION PRO B DESEGREGATION ISSUE)) (INIT-STANCE '(FAIRNESS PRO B DESEGREGATION ISSUE)) (INIT-STANCE '(PROGRESS PRO B DESEGREGATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.3851 'CON-STANCES) (LIST (INIT-STANCE '(RACISM PRO C DESEGREGATION ISSUE)) (INIT-STANCE '(STATES-RIGHTS PRO B DESEGREGATION ISSUE)) (INIT-STANCE '(DEREGULATION PRO B DESEGREGATION ISSUE)) (INIT-STANCE '(TRADITION PRO B DESEGREGATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.3851 'NORM) (INIT-STANCE '(DESEGREGATION PRO C ISSUE.3851 ISSUE))) (SETF (SLOT-VALUE ISSUE.3851 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3851 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3851 'SYMBOL) 'ISSUE.3851))
(INSERT-ITEM ISSUE ISSUE.3851)
(DEFVAR ISSUE.3845)
(PROG1 (SETF ISSUE.3845 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3845 'NAME) "School Prayer") (SETF (SLOT-VALUE ISSUE.3845 'TYPE) 'PROPOSAL) (SETF (SLOT-VALUE ISSUE.3845 'SYNONYMS) (LIST 'PRAYER)) (SETF (SLOT-VALUE ISSUE.3845 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.3845 'POLARITY) "Support mandatory prayer in school") (SETF (SLOT-VALUE ISSUE.3845 'ENGLISH) "mandatory prayer in school") (SETF (SLOT-VALUE ISSUE.3845 'ENGLISH-SHORT) "school prayer") (SETF (SLOT-VALUE ISSUE.3845 'PRO-STANCES) (LIST (INIT-STANCE '(RELIGION PRO B PRAYER ISSUE)) (INIT-STANCE '(TRADITION PRO B PRAYER ISSUE)))) (SETF (SLOT-VALUE ISSUE.3845 'CON-STANCES) (LIST (INIT-STANCE '(CONSTITUTION PRO B PRAYER ISSUE)) (INIT-STANCE '(CHURCH-AND-STATE PRO B PRAYER ISSUE)) (INIT-STANCE '(FREEDOM PRO B PRAYER ISSUE)))) (SETF (SLOT-VALUE ISSUE.3845 'NORM) (INIT-STANCE '(PRAYER PRO C ISSUE.3845 ISSUE))) (SETF (SLOT-VALUE ISSUE.3845 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3845 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3845 'SYMBOL) 'ISSUE.3845))
(INSERT-ITEM ISSUE ISSUE.3845)
(DEFVAR ISSUE.40)
(PROG1 (SETF ISSUE.40 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.40 'NAME) "Self Determination") (SETF (SLOT-VALUE ISSUE.40 'TYPE) 'RIGHT) (SETF (SLOT-VALUE ISSUE.40 'SYNONYMS) (LIST 'SELF-DETERMINATION)) (SETF (SLOT-VALUE ISSUE.40 'POLARITY) "Support right to self determination") (SETF (SLOT-VALUE ISSUE.40 'ENGLISH) "self determination") (SETF (SLOT-VALUE ISSUE.40 'PRO-STANCES) (LIST (INIT-STANCE '(DEMOCRACY PRO B SELF-DETERMINATION ISSUE)) (INIT-STANCE '(STATES-RIGHTS PRO B SELF-DETERMINATION ISSUE)) (INIT-STANCE '(FREEDOM PRO B SELF-DETERMINATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.40 'NORM) (INIT-STANCE '(SELF-DETERMINATION PRO B ISSUE.40 ISSUE))) (SETF (SLOT-VALUE ISSUE.40 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.40 'DATE-OPEN) (LIST->DATE '(3 17 1990))) (SETF (SLOT-VALUE ISSUE.40 'SYMBOL) 'ISSUE.40))
(INSERT-ITEM ISSUE ISSUE.40)
(DEFVAR ISSUE.39)
(PROG1 (SETF ISSUE.39 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.39 'NAME) "Separation of church and state") (SETF (SLOT-VALUE ISSUE.39 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.39 'SYNONYMS) (LIST 'CHURCH-AND-STATE)) (SETF (SLOT-VALUE ISSUE.39 'POLARITY) "Support separation of church and stae") (SETF (SLOT-VALUE ISSUE.39 'ENGLISH) "the separation of church and state") (SETF (SLOT-VALUE ISSUE.39 'PRO-STANCES) (LIST (INIT-STANCE '(CONSTITUTION PRO B CHURCH-AND-STATE ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B CHURCH-AND-STATE ISSUE)) (INIT-STANCE '(RELIGION PRO B CHURCH-AND-STATE ISSUE)))) (SETF (SLOT-VALUE ISSUE.39 'NORM) (INIT-STANCE '(CHURCH-AND-STATE PRO C ISSUE.39 ISSUE))) (SETF (SLOT-VALUE ISSUE.39 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.39 'DATE-OPEN) (LIST->DATE '(3 17 1990))) (SETF (SLOT-VALUE ISSUE.39 'SYMBOL) 'ISSUE.39))
(INSERT-ITEM ISSUE ISSUE.39)
(DEFVAR ISSUE.2709)
(PROG1 (SETF ISSUE.2709 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2709 'NAME) "Social Policy") (SETF (SLOT-VALUE ISSUE.2709 'SYNONYMS) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.2709 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.2709 'ENGLISH) "social issues") (SETF (SLOT-VALUE ISSUE.2709 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2709 'DATE-OPEN) (LIST->DATE '(8 31 1988))) (SETF (SLOT-VALUE ISSUE.2709 'SYMBOL) 'ISSUE.2709))
(INSERT-ITEM ISSUE ISSUE.2709)
(DEFVAR ISSUE.3807)
(PROG1 (SETF ISSUE.3807 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3807 'NAME) "Social Security") (SETF (SLOT-VALUE ISSUE.3807 'SYNONYMS) (LIST 'SOCIAL-SECURITY)) (SETF (SLOT-VALUE ISSUE.3807 'ISA) (LIST 'ELDERLY)) (SETF (SLOT-VALUE ISSUE.3807 'POLARITY) "Support federal social security program") (SETF (SLOT-VALUE ISSUE.3807 'ENGLISH) "the federal social security program") (SETF (SLOT-VALUE ISSUE.3807 'ENGLISH-SHORT) "social security increases") (SETF (SLOT-VALUE ISSUE.3807 'PRO-ENGLISH) "increases in social security payments") (SETF (SLOT-VALUE ISSUE.3807 'GROUPS) (LIST 'AGED)) (SETF (SLOT-VALUE ISSUE.3807 'PRO-STANCES) (LIST (INIT-STANCE '(ELDERLY PRO B SOCIAL-SECURITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.3807 'CON-STANCES) (LIST (INIT-STANCE '(BALANCED-BUDGET PRO C SOCIAL-SECURITY ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO C SOCIAL-SECURITY ISSUE)) (INIT-STANCE '(INFLATION PRO C SOCIAL-SECURITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.3807 'NORM) (INIT-STANCE '(SOCIAL-SECURITY PRO B ISSUE.3807 ISSUE))) (SETF (SLOT-VALUE ISSUE.3807 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3807 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3807 'SYMBOL) 'ISSUE.3807))
(INSERT-ITEM ISSUE ISSUE.3807)
(DEFVAR ISSUE.3829)
(PROG1 (SETF ISSUE.3829 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3829 'NAME) "South Africa") (SETF (SLOT-VALUE ISSUE.3829 'SYNONYMS) (LIST 'SOUTH-AFRICA)) (SETF (SLOT-VALUE ISSUE.3829 'ISA) (LIST 'AFRICA)) (SETF (SLOT-VALUE ISSUE.3829 'POLARITY) "Support current white regime in South Africa") (SETF (SLOT-VALUE ISSUE.3829 'ENGLISH) "the strategic relationship with South Africa") (SETF (SLOT-VALUE ISSUE.3829 'ENGLISH-SHORT) "South Africa") (SETF (SLOT-VALUE ISSUE.3829 'PRO-STANCES) (LIST (INIT-STANCE '(NATIONAL-SECURITY PRO B SOUTH-AFRICA ISSUE)) (INIT-STANCE '(FOREIGN PRO B SOUTH-AFRICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.3829 'CON-STANCES) (LIST (INIT-STANCE '(APARTHEID CON A SOUTH-AFRICA ISSUE)) (INIT-STANCE '(RACISM CON A SOUTH-AFRICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.3829 'NORM) (INIT-STANCE '(SOUTH-AFRICA CON C ISSUE.3829 ISSUE))) (SETF (SLOT-VALUE ISSUE.3829 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3829 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3829 'SYMBOL) 'ISSUE.3829))
(INSERT-ITEM ISSUE ISSUE.3829)
(DEFVAR ISSUE.890)
(PROG1 (SETF ISSUE.890 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.890 'NAME) "South America") (SETF (SLOT-VALUE ISSUE.890 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.890 'SYNONYMS) (LIST 'SOUTH-AMERICA)) (SETF (SLOT-VALUE ISSUE.890 'ISA) (LIST 'LATIN-AMERICA)) (SETF (SLOT-VALUE ISSUE.890 'ENGLISH) "the countries of South America") (SETF (SLOT-VALUE ISSUE.890 'ENGLISH-SHORT) "South America") (SETF (SLOT-VALUE ISSUE.890 'PRO-STANCES) (LIST (INIT-STANCE '(LATIN-AMERICA PRO B SOUTH-AMERICA ISSUE)) (INIT-STANCE '(THIRD-WORLD PRO B SOUTH-AMERICA ISSUE)) (INIT-STANCE '(THIRD-WORLD-DEBT PRO B SOUTH-AMERICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.890 'CON-STANCES) (LIST (INIT-STANCE '(ISOLATIONISM PRO B SOUTH-AMERICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.890 'NORM) (INIT-STANCE '(SOUTH-AMERICA PRO C ISSUE.890 ISSUE))) (SETF (SLOT-VALUE ISSUE.890 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.890 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.890 'SYMBOL) 'ISSUE.890))
(INSERT-ITEM ISSUE ISSUE.890)
(DEFVAR ISSUE.3828)
(PROG1 (SETF ISSUE.3828 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3828 'NAME) "Soviet Union") (SETF (SLOT-VALUE ISSUE.3828 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.3828 'SYNONYMS) (LIST 'USSR 'RUSSIA)) (SETF (SLOT-VALUE ISSUE.3828 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.3828 'POLARITY) "Support current regime in USSR") (SETF (SLOT-VALUE ISSUE.3828 'ENGLISH) "the Soviet Union") (SETF (SLOT-VALUE ISSUE.3828 'ENGLISH-SHORT) "Russia") (SETF (SLOT-VALUE ISSUE.3828 'PRO-STANCES) (LIST (INIT-STANCE '(PEACE PRO B USSR ISSUE)) (INIT-STANCE '(ARMS-CONTROL PRO B USSR ISSUE)) (INIT-STANCE '(BALANCE-OF-POWER PRO B USSR ISSUE)) (INIT-STANCE '(DIPLOMACY PRO B USSR ISSUE)))) (SETF (SLOT-VALUE ISSUE.3828 'CON-STANCES) (LIST (INIT-STANCE '(COMMUNISM PRO B USSR ISSUE)) (INIT-STANCE '(ISOLATIONISM PRO B USSR ISSUE)) (INIT-STANCE '(NATIONAL-SECURITY PRO B USSR ISSUE)))) (SETF (SLOT-VALUE ISSUE.3828 'NORM) (INIT-STANCE '(USSR PRO C ISSUE.3828 ISSUE))) (SETF (SLOT-VALUE ISSUE.3828 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3828 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3828 'SYMBOL) 'ISSUE.3828))
(INSERT-ITEM ISSUE ISSUE.3828)
(DEFVAR ISSUE.1261)
(PROG1 (SETF ISSUE.1261 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1261 'NAME) "Space Exploration") (SETF (SLOT-VALUE ISSUE.1261 'TYPE) 'PROGRAM) (SETF (SLOT-VALUE ISSUE.1261 'SYNONYMS) (LIST 'SPACE)) (SETF (SLOT-VALUE ISSUE.1261 'ISA) (LIST 'FEDERAL-PROGRAMS)) (SETF (SLOT-VALUE ISSUE.1261 'POLARITY) "Support federal efforts for space exploration") (SETF (SLOT-VALUE ISSUE.1261 'ENGLISH) "funding space exploration") (SETF (SLOT-VALUE ISSUE.1261 'ENGLISH-SHORT) "space exploration") (SETF (SLOT-VALUE ISSUE.1261 'PRO-ENGLISH) "increased funding for space exploration") (SETF (SLOT-VALUE ISSUE.1261 'PRO-STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B SPACE ISSUE)) (INIT-STANCE '(IDEALISM PRO B SPACE ISSUE)) (INIT-STANCE '(PROGRESS PRO B SPACE ISSUE)))) (SETF (SLOT-VALUE ISSUE.1261 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B SPACE ISSUE)))) (SETF (SLOT-VALUE ISSUE.1261 'NORM) (INIT-STANCE '(SPACE PRO C ISSUE.1261 ISSUE))) (SETF (SLOT-VALUE ISSUE.1261 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1261 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1261 'SYMBOL) 'ISSUE.1261))
(INSERT-ITEM ISSUE ISSUE.1261)
(DEFVAR ISSUE.1015)
(PROG1 (SETF ISSUE.1015 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1015 'NAME) "States Rights") (SETF (SLOT-VALUE ISSUE.1015 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.1015 'SYNONYMS) (LIST 'STATES-RIGHTS)) (SETF (SLOT-VALUE ISSUE.1015 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.1015 'POLARITY) "local governments can establish laws without federal intervention") (SETF (SLOT-VALUE ISSUE.1015 'ENGLISH) "sovereignty of state governments") (SETF (SLOT-VALUE ISSUE.1015 'ENGLISH-SHORT) "states' rights") (SETF (SLOT-VALUE ISSUE.1015 'PRO-STANCES) (LIST (INIT-STANCE '(CONSTITUTION PRO B STATES-RIGHTS ISSUE)) (INIT-STANCE '(SELF-DETERMINATION PRO B STATES-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1015 'CON-STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B STATES-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1015 'NORM) (INIT-STANCE '(STATES-RIGHTS PRO C ISSUE.1015 ISSUE))) (SETF (SLOT-VALUE ISSUE.1015 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1015 'DATE-OPEN) (LIST->DATE '(8 18 1989))) (SETF (SLOT-VALUE ISSUE.1015 'SYMBOL) 'ISSUE.1015))
(INSERT-ITEM ISSUE ISSUE.1015)
(DEFVAR ISSUE.907)
(PROG1 (SETF ISSUE.907 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.907 'NAME) "Stealth Bomber") (SETF (SLOT-VALUE ISSUE.907 'SYNONYMS) (LIST 'STEALTH)) (SETF (SLOT-VALUE ISSUE.907 'ISA) (LIST 'NUCLEAR-WEAPON)) (SETF (SLOT-VALUE ISSUE.907 'POLARITY) "Support building Stealth bomber") (SETF (SLOT-VALUE ISSUE.907 'ENGLISH) "building the Stealth bomber") (SETF (SLOT-VALUE ISSUE.907 'ENGLISH-SHORT) "the Stealth bomber") (SETF (SLOT-VALUE ISSUE.907 'PRO-STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B STEALTH ISSUE)) (INIT-STANCE '(NUCLEAR-WEAPON PRO B STEALTH ISSUE)))) (SETF (SLOT-VALUE ISSUE.907 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B STEALTH ISSUE)) (INIT-STANCE '(PEACE PRO B STEALTH ISSUE)))) (SETF (SLOT-VALUE ISSUE.907 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.907 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.907 'SYMBOL) 'ISSUE.907) (SETF (SLOT-VALUE ISSUE.907 'KEYWORDS) (LIST 'AIR-BASED)))
(INSERT-ITEM ISSUE ISSUE.907)
(DEFVAR ISSUE.711)
(PROG1 (SETF ISSUE.711 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.711 'NAME) "Stimulate investment") (SETF (SLOT-VALUE ISSUE.711 'TYPE) 'ECONOMIC) (SETF (SLOT-VALUE ISSUE.711 'SYNONYMS) (LIST 'SPUR-INVESTMENT)) (SETF (SLOT-VALUE ISSUE.711 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.711 'POLARITY) "Support programs that stimulate the economy") (SETF (SLOT-VALUE ISSUE.711 'ENGLISH) "programs that stimulate the economy") (SETF (SLOT-VALUE ISSUE.711 'PRO-STANCES) (LIST (INIT-STANCE '(PROSPERITY PRO B SPUR-INVESTMENT ISSUE)) (INIT-STANCE '(UNEMPLOYMENT PRO B SPUR-INVESTMENT ISSUE)) (INIT-STANCE '(JOBS PRO B SPUR-INVESTMENT ISSUE)) (INIT-STANCE '(PROGRESS PRO B SPUR-INVESTMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.711 'CON-STANCES) (LIST (INIT-STANCE '(INFLATION CON B SPUR-INVESTMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.711 'NORM) (INIT-STANCE '(SPUR-INVESTMENT PRO C ISSUE.711 ISSUE))) (SETF (SLOT-VALUE ISSUE.711 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.711 'DATE-OPEN) (LIST->DATE '(9 29 1989))) (SETF (SLOT-VALUE ISSUE.711 'SYMBOL) 'ISSUE.711))
(INSERT-ITEM ISSUE ISSUE.711)
(DEFVAR ISSUE.3837)
(PROG1 (SETF ISSUE.3837 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3837 'NAME) "Strategic Defense Initiative") (SETF (SLOT-VALUE ISSUE.3837 'TYPE) 'PROGRAM) (SETF (SLOT-VALUE ISSUE.3837 'SYNONYMS) (LIST 'SDI)) (SETF (SLOT-VALUE ISSUE.3837 'ISA) (LIST 'WEAPONS)) (SETF (SLOT-VALUE ISSUE.3837 'POLARITY) "Support funding SDI") (SETF (SLOT-VALUE ISSUE.3837 'ENGLISH) "the Strategic Defense Initiative") (SETF (SLOT-VALUE ISSUE.3837 'ENGLISH-SHORT) "SDI") (SETF (SLOT-VALUE ISSUE.3837 'CON-ENGLISH) "funding the wasteful Star Wars defense shield") (SETF (SLOT-VALUE ISSUE.3837 'PRO-STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B SDI ISSUE)) (INIT-STANCE '(NUCLEAR-WEAPON PRO B SDI ISSUE)))) (SETF (SLOT-VALUE ISSUE.3837 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B SDI ISSUE)) (INIT-STANCE '(PEACE PRO B SDI ISSUE)))) (SETF (SLOT-VALUE ISSUE.3837 'NORM) (INIT-STANCE '(SDI PRO C ISSUE.3837 ISSUE))) (SETF (SLOT-VALUE ISSUE.3837 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3837 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3837 'SYMBOL) 'ISSUE.3837) (SETF (SLOT-VALUE ISSUE.3837 'KEYWORDS) (LIST 'STRATEGIC 'DEFENSE 'INITIATIVE)))
(INSERT-ITEM ISSUE ISSUE.3837)
(DEFVAR ISSUE.721)
(PROG1 (SETF ISSUE.721 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.721 'NAME) "Student loans") (SETF (SLOT-VALUE ISSUE.721 'TYPE) 'PROGRAM) (SETF (SLOT-VALUE ISSUE.721 'SYNONYMS) (LIST 'STUDENT-LOANS)) (SETF (SLOT-VALUE ISSUE.721 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.721 'POLARITY) "Support funding student loans") (SETF (SLOT-VALUE ISSUE.721 'ENGLISH) "funding student loans") (SETF (SLOT-VALUE ISSUE.721 'PRO-ENGLISH) "increased funding of student loans") (SETF (SLOT-VALUE ISSUE.721 'PRO-STANCES) (LIST (INIT-STANCE '(EDUCATION PRO B STUDENT-LOANS ISSUE)) (INIT-STANCE '(EQUALITY PRO B STUDENT-LOANS ISSUE)) (INIT-STANCE '(FAMILY PRO C STUDENT-LOANS ISSUE)) (INIT-STANCE '(PROGRESS PRO B STUDENT-LOANS ISSUE)))) (SETF (SLOT-VALUE ISSUE.721 'CON-STANCES) (LIST (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B STUDENT-LOANS ISSUE)) (INIT-STANCE '(HARD-WORK PRO B STUDENT-LOANS ISSUE)))) (SETF (SLOT-VALUE ISSUE.721 'NORM) (INIT-STANCE '(STUDENT-LOANS PRO C ISSUE.721 ISSUE))) (SETF (SLOT-VALUE ISSUE.721 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.721 'DATE-OPEN) (LIST->DATE '(11 2 1989))) (SETF (SLOT-VALUE ISSUE.721 'SYMBOL) 'ISSUE.721))
(INSERT-ITEM ISSUE ISSUE.721)
(DEFVAR ISSUE.3218)
(PROG1 (SETF ISSUE.3218 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3218 'NAME) "Superfund") (SETF (SLOT-VALUE ISSUE.3218 'SYNONYMS) (LIST 'SUPERFUND)) (SETF (SLOT-VALUE ISSUE.3218 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3218 'POLARITY) "Support Superfund for cleaning up toxic waste") (SETF (SLOT-VALUE ISSUE.3218 'ENGLISH) "the Superfund program for cleaning up toxic waste") (SETF (SLOT-VALUE ISSUE.3218 'ENGLISH-SHORT) "the Superfund") (SETF (SLOT-VALUE ISSUE.3218 'PRO-STANCES) (LIST (INIT-STANCE '(TOXIC-WASTE PRO B SUPERFUND ISSUE)) (INIT-STANCE '(ENVIRONMENT PRO B SUPERFUND ISSUE)) (INIT-STANCE '(PROGRESS PRO B SUPERFUND ISSUE)))) (SETF (SLOT-VALUE ISSUE.3218 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B SUPERFUND ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B SUPERFUND ISSUE)) (INIT-STANCE '(BUSINESS PRO B SUPERFUND ISSUE)) (INIT-STANCE '(TRADITION PRO B SUPERFUND ISSUE)))) (SETF (SLOT-VALUE ISSUE.3218 'NORM) (INIT-STANCE '(SUPERFUND PRO C ISSUE.3218 ISSUE))) (SETF (SLOT-VALUE ISSUE.3218 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3218 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE ISSUE.3218 'SYMBOL) 'ISSUE.3218))
(INSERT-ITEM ISSUE ISSUE.3218)
(DEFVAR ISSUE.1438)
(PROG1 (SETF ISSUE.1438 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1438 'NAME) "Taiwan") (SETF (SLOT-VALUE ISSUE.1438 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.1438 'SYNONYMS) (LIST 'CHINA 'TAIWAN)) (SETF (SLOT-VALUE ISSUE.1438 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.1438 'ENGLISH) "the country of Taiwan") (SETF (SLOT-VALUE ISSUE.1438 'ENGLISH-SHORT) "Taiwan") (SETF (SLOT-VALUE ISSUE.1438 'PRO-STANCES) (LIST (INIT-STANCE '(FOREIGN PRO B TAIWAN ISSUE)))) (SETF (SLOT-VALUE ISSUE.1438 'NORM) (INIT-STANCE '(TAIWAN PRO C ISSUE.1438 ISSUE))) (SETF (SLOT-VALUE ISSUE.1438 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1438 'DATE-OPEN) (LIST->DATE '(1 22 1989))) (SETF (SLOT-VALUE ISSUE.1438 'SYMBOL) 'ISSUE.1438))
(INSERT-ITEM ISSUE ISSUE.1438)
(DEFVAR ISSUE.808)
(PROG1 (SETF ISSUE.808 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.808 'NAME) "Tax Reform") (SETF (SLOT-VALUE ISSUE.808 'SYNONYMS) (LIST 'TAX-REFORM)) (SETF (SLOT-VALUE ISSUE.808 'ISA) (LIST 'TAXES)) (SETF (SLOT-VALUE ISSUE.808 'POLARITY) "Support income tax reform") (SETF (SLOT-VALUE ISSUE.808 'ENGLISH) "efforts for income tax reform") (SETF (SLOT-VALUE ISSUE.808 'ENGLISH-SHORT) "tax reform") (SETF (SLOT-VALUE ISSUE.808 'PRO-STANCES) (LIST (INIT-STANCE '(FAIRNESS PRO B TAX-REFORM ISSUE)) (INIT-STANCE '(DEREGULATION PRO B TAX-REFORM ISSUE)) (INIT-STANCE '(CUT-TAXES PRO C TAX-REFORM ISSUE)))) (SETF (SLOT-VALUE ISSUE.808 'NORM) (INIT-STANCE '(TAX-REFORM PRO C ISSUE.808 ISSUE))) (SETF (SLOT-VALUE ISSUE.808 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.808 'DATE-OPEN) (LIST->DATE '(2 18 1989))) (SETF (SLOT-VALUE ISSUE.808 'SYMBOL) 'ISSUE.808))
(INSERT-ITEM ISSUE ISSUE.808)
(DEFVAR ISSUE.3810)
(PROG1 (SETF ISSUE.3810 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3810 'NAME) "Taxes") (SETF (SLOT-VALUE ISSUE.3810 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.3810 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.3810 'POLARITY) "Support raising taxes as a means of revenue enhancement") (SETF (SLOT-VALUE ISSUE.3810 'ENGLISH) "increasing taxes to raise federal revenue") (SETF (SLOT-VALUE ISSUE.3810 'ENGLISH-SHORT) "taxes") (SETF (SLOT-VALUE ISSUE.3810 'PRO-ENGLISH) "measures to generate needed revenue for important government programs") (SETF (SLOT-VALUE ISSUE.3810 'CON-ENGLISH) "increasing the oppressive tax burden on average Americans") (SETF (SLOT-VALUE ISSUE.3810 'PRO-STANCES) (LIST (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B TAXES ISSUE)) (INIT-STANCE '(DEFICIT CON A TAXES ISSUE)))) (SETF (SLOT-VALUE ISSUE.3810 'CON-STANCES) (LIST (INIT-STANCE '(WASTE PRO B TAXES ISSUE)) (INIT-STANCE '(SPENDING CON B TAXES ISSUE)))) (SETF (SLOT-VALUE ISSUE.3810 'NORM) (INIT-STANCE '(TAXES CON B ISSUE.3810 ISSUE))) (SETF (SLOT-VALUE ISSUE.3810 'OPPOSITE) 'CUT-TAXES) (SETF (SLOT-VALUE ISSUE.3810 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3810 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3810 'SYMBOL) 'ISSUE.3810))
(INSERT-ITEM ISSUE ISSUE.3810)
(DEFVAR ISSUE.2138)
(PROG1 (SETF ISSUE.2138 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2138 'NAME) "Textile Industry") (SETF (SLOT-VALUE ISSUE.2138 'TYPE) 'GROUP) (SETF (SLOT-VALUE ISSUE.2138 'SYNONYMS) (LIST 'TEXTILE-INDUSTRY 'TEXTILES)) (SETF (SLOT-VALUE ISSUE.2138 'ISA) (LIST 'BUSINESS)) (SETF (SLOT-VALUE ISSUE.2138 'POLARITY) "Support regulations and funding for textile industry") (SETF (SLOT-VALUE ISSUE.2138 'ENGLISH) "the textile industry") (SETF (SLOT-VALUE ISSUE.2138 'PRO-STANCES) (LIST (INIT-STANCE '(BUSINESS PRO B TEXTILE-INDUSTRY ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B TEXTILE-INDUSTRY ISSUE)) (INIT-STANCE '(JOB-PROTECTION PRO B TEXTILE-INDUSTRY ISSUE)) (INIT-STANCE '(TRADE-RESTRICTIONS PRO B TEXTILE-INDUSTRY ISSUE)))) (SETF (SLOT-VALUE ISSUE.2138 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2138 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2138 'SYMBOL) 'ISSUE.2138))
(INSERT-ITEM ISSUE ISSUE.2138)
(DEFVAR ISSUE.812)
(PROG1 (SETF ISSUE.812 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.812 'NAME) "Third World Debt") (SETF (SLOT-VALUE ISSUE.812 'SYNONYMS) (LIST 'THIRD-WORLD-DEBT)) (SETF (SLOT-VALUE ISSUE.812 'ISA) (LIST 'THIRD-WORLD)) (SETF (SLOT-VALUE ISSUE.812 'POLARITY) "Support resolving problem of third world debt") (SETF (SLOT-VALUE ISSUE.812 'ENGLISH) "third world debt") (SETF (SLOT-VALUE ISSUE.812 'GROUPS) (LIST 'IMF 'WORLD-BANK)) (SETF (SLOT-VALUE ISSUE.812 'PRO-STANCES) (LIST (INIT-STANCE '(HUNGER PRO C THIRD-WORLD-DEBT ISSUE)) (INIT-STANCE '(THIRD-WORLD PRO B THIRD-WORLD-DEBT ISSUE)) (INIT-STANCE '(TRADE PRO B THIRD-WORLD-DEBT ISSUE)) (INIT-STANCE '(LATIN-AMERICA PRO B THIRD-WORLD-DEBT ISSUE)) (INIT-STANCE '(AFRICA PRO B THIRD-WORLD-DEBT ISSUE)) (INIT-STANCE '(BANKING PRO B THIRD-WORLD-DEBT ISSUE)))) (SETF (SLOT-VALUE ISSUE.812 'CON-STANCES) (LIST (INIT-STANCE '(ISOLATIONISM PRO B THIRD-WORLD-DEBT ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B THIRD-WORLD-DEBT ISSUE)) (INIT-STANCE '(DEFICIT CON C THIRD-WORLD-DEBT ISSUE)))) (SETF (SLOT-VALUE ISSUE.812 'NORM) (INIT-STANCE '(THIRD-WORLD-DEBT PRO C ISSUE.812 ISSUE))) (SETF (SLOT-VALUE ISSUE.812 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.812 'DATE-OPEN) (LIST->DATE '(1 22 1989))) (SETF (SLOT-VALUE ISSUE.812 'SYMBOL) 'ISSUE.812))
(INSERT-ITEM ISSUE ISSUE.812)
(DEFVAR ISSUE.2405)
(PROG1 (SETF ISSUE.2405 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2405 'NAME) "Tobacco Price Supports") (SETF (SLOT-VALUE ISSUE.2405 'SYNONYMS) (LIST 'TOBACCO-PRICE-SUPPORTS)) (SETF (SLOT-VALUE ISSUE.2405 'ISA) (LIST 'FARM)) (SETF (SLOT-VALUE ISSUE.2405 'POLARITY) "Support federal subsidies of tobacco") (SETF (SLOT-VALUE ISSUE.2405 'ENGLISH) "federal subsidies of tobacco") (SETF (SLOT-VALUE ISSUE.2405 'ENGLISH-SHORT) "tobacco price supports") (SETF (SLOT-VALUE ISSUE.2405 'CON-ENGLISH) "give-away programs for rich tobacco farmers") (SETF (SLOT-VALUE ISSUE.2405 'PRO-STANCES) (LIST (INIT-STANCE '(FARM PRO B TOBACCO-PRICE-SUPPORTS ISSUE)) (INIT-STANCE '(BUSINESS PRO C TOBACCO-PRICE-SUPPORTS ISSUE)) (INIT-STANCE '(JOB-PROTECTION PRO C TOBACCO-PRICE-SUPPORTS ISSUE)) (INIT-STANCE '(TRADITION PRO B TOBACCO-PRICE-SUPPORTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.2405 'CON-STANCES) (LIST (INIT-STANCE '(SMOKING-BAN PRO B TOBACCO-PRICE-SUPPORTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.2405 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2405 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE ISSUE.2405 'SYMBOL) 'ISSUE.2405))
(INSERT-ITEM ISSUE ISSUE.2405)
(DEFVAR ISSUE.813)
(PROG1 (SETF ISSUE.813 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.813 'NAME) "Totalitarianism") (SETF (SLOT-VALUE ISSUE.813 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.813 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.813 'ENGLISH) "the totalitarian form of government") (SETF (SLOT-VALUE ISSUE.813 'ENGLISH-SHORT) "totalitarianism") (SETF (SLOT-VALUE ISSUE.813 'CON-STANCES) (LIST (INIT-STANCE '(DEMOCRACY PRO A TOTALITARIANISM ISSUE)) (INIT-STANCE '(FREEDOM PRO A TOTALITARIANISM ISSUE)) (INIT-STANCE '(VALUES PRO B TOTALITARIANISM ISSUE)) (INIT-STANCE '(ELECTIONS PRO B TOTALITARIANISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.813 'NORM) (INIT-STANCE '(TOTALITARIANISM CON B ISSUE.813 ISSUE))) (SETF (SLOT-VALUE ISSUE.813 'OPPOSITE) 'DEMOCRACY) (SETF (SLOT-VALUE ISSUE.813 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.813 'DATE-OPEN) (LIST->DATE '(1 22 1989))) (SETF (SLOT-VALUE ISSUE.813 'SYMBOL) 'ISSUE.813))
(INSERT-ITEM ISSUE ISSUE.813)
(DEFVAR ISSUE.1756)
(PROG1 (SETF ISSUE.1756 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1756 'NAME) "Tower Nomination") (SETF (SLOT-VALUE ISSUE.1756 'TYPE) 'NOMINATION) (SETF (SLOT-VALUE ISSUE.1756 'SYNONYMS) (LIST 'TOWER)) (SETF (SLOT-VALUE ISSUE.1756 'ISA) (LIST 'DEFENSE)) (SETF (SLOT-VALUE ISSUE.1756 'POLARITY) "Support nomination of John Tower as Secretary of Defense") (SETF (SLOT-VALUE ISSUE.1756 'ENGLISH) "John Tower as Secretary of Defense") (SETF (SLOT-VALUE ISSUE.1756 'PRO-STANCES) (LIST (INIT-STANCE '(BUSH PRO B TOWER ISSUE)))) (SETF (SLOT-VALUE ISSUE.1756 'CON-STANCES) (LIST (INIT-STANCE '(INTEGRITY PRO B TOWER ISSUE)))) (SETF (SLOT-VALUE ISSUE.1756 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1756 'DATE-OPEN) (LIST->DATE '(3 22 1989))) (SETF (SLOT-VALUE ISSUE.1756 'SYMBOL) 'ISSUE.1756))
(INSERT-ITEM ISSUE ISSUE.1756)
(DEFVAR ISSUE.640)
(PROG1 (SETF ISSUE.640 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.640 'NAME) "Toxic waste cleanup") (SETF (SLOT-VALUE ISSUE.640 'SYNONYMS) (LIST 'TOXIC-WASTE)) (SETF (SLOT-VALUE ISSUE.640 'ISA) (LIST 'ENVIRONMENT)) (SETF (SLOT-VALUE ISSUE.640 'POLARITY) "Support efforts to clean up toxic waste") (SETF (SLOT-VALUE ISSUE.640 'ENGLISH) "funding for toxic waste clean-up efforts") (SETF (SLOT-VALUE ISSUE.640 'ENGLISH-SHORT) "toxic waste clean-up") (SETF (SLOT-VALUE ISSUE.640 'PRO-ENGLISH) "increased funding for toxic waste clean-up efforts") (SETF (SLOT-VALUE ISSUE.640 'PRO-STANCES) (LIST (INIT-STANCE '(ENVIRONMENT PRO B TOXIC-WASTE ISSUE)) (INIT-STANCE '(CLEAN-WATER PRO B TOXIC-WASTE ISSUE)) (INIT-STANCE '(CLEAN-AIR PRO B TOXIC-WASTE ISSUE)))) (SETF (SLOT-VALUE ISSUE.640 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B TOXIC-WASTE ISSUE)) (INIT-STANCE '(BUSINESS PRO C TOXIC-WASTE ISSUE)))) (SETF (SLOT-VALUE ISSUE.640 'NORM) (INIT-STANCE '(TOXIC-WASTE PRO C ISSUE.640 ISSUE))) (SETF (SLOT-VALUE ISSUE.640 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.640 'DATE-OPEN) (LIST->DATE '(11 3 1989))) (SETF (SLOT-VALUE ISSUE.640 'SYMBOL) 'ISSUE.640))
(INSERT-ITEM ISSUE ISSUE.640)
(DEFVAR ISSUE.3809)
(PROG1 (SETF ISSUE.3809 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3809 'NAME) "Trade") (SETF (SLOT-VALUE ISSUE.3809 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.3809 'POLARITY) "Support foreign trade") (SETF (SLOT-VALUE ISSUE.3809 'ENGLISH) "stimulating foreign trade and investment") (SETF (SLOT-VALUE ISSUE.3809 'ENGLISH-SHORT) "foreign trade") (SETF (SLOT-VALUE ISSUE.3809 'PRO-STANCES) (LIST (INIT-STANCE '(TRADE-DEFICIT PRO B TRADE ISSUE)) (INIT-STANCE '(BUSINESS PRO B TRADE ISSUE)) (INIT-STANCE '(DEFICIT CON B TRADE ISSUE)) (INIT-STANCE '(PROSPERITY PRO B TRADE ISSUE)) (INIT-STANCE '(FOREIGN PRO C TRADE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3809 'CON-STANCES) (LIST (INIT-STANCE '(ISOLATIONISM PRO C TRADE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3809 'NORM) (INIT-STANCE '(TRADE PRO C ISSUE.3809 ISSUE))) (SETF (SLOT-VALUE ISSUE.3809 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3809 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3809 'SYMBOL) 'ISSUE.3809))
(INSERT-ITEM ISSUE ISSUE.3809)
(DEFVAR ISSUE.2475)
(PROG1 (SETF ISSUE.2475 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2475 'NAME) "Trade Deficit Reduction") (SETF (SLOT-VALUE ISSUE.2475 'SYNONYMS) (LIST 'TRADE-DEFICIT)) (SETF (SLOT-VALUE ISSUE.2475 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.2475 'POLARITY) "Support efforts to reduce trade deficit") (SETF (SLOT-VALUE ISSUE.2475 'ENGLISH) "efforts to reduce the foreign trade deficit") (SETF (SLOT-VALUE ISSUE.2475 'ENGLISH-SHORT) "trade deficit reduction") (SETF (SLOT-VALUE ISSUE.2475 'PRO-STANCES) (LIST (INIT-STANCE '(TRADE PRO B TRADE-DEFICIT ISSUE)) (INIT-STANCE '(FOREIGN PRO B TRADE-DEFICIT ISSUE)) (INIT-STANCE '(DEFICIT CON B TRADE-DEFICIT ISSUE)) (INIT-STANCE '(ECONOMY PRO B TRADE-DEFICIT ISSUE)))) (SETF (SLOT-VALUE ISSUE.2475 'NORM) (INIT-STANCE '(TRADE-DEFICIT PRO C ISSUE.2475 ISSUE))) (SETF (SLOT-VALUE ISSUE.2475 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2475 'DATE-OPEN) (LIST->DATE '(1 22 1989))) (SETF (SLOT-VALUE ISSUE.2475 'SYMBOL) 'ISSUE.2475))
(INSERT-ITEM ISSUE ISSUE.2475)
(DEFVAR ISSUE.809)

(PROG1 (SETF ISSUE.809 (MAKE-INSTANCE 'ISSUE))
       (SETF (SLOT-VALUE ISSUE.809 'NAME) "Trade Restrictions")
       (SETF (SLOT-VALUE ISSUE.809 'TYPE) 'POLICY)
       (SETF (SLOT-VALUE ISSUE.809 'SYNONYMS) (LIST 'TRADE-RESTRICTIONS))
       (SETF (SLOT-VALUE ISSUE.809 'ISA) (LIST 'TRADE))
       (SETF (SLOT-VALUE ISSUE.809 'POLARITY)
             "Support protectionist tariffs to increase price of imported goods")
       (SETF (SLOT-VALUE ISSUE.809 'ENGLISH) "trade tariffs and restrictions")
       (SETF (SLOT-VALUE ISSUE.809 'ENGLISH-SHORT) "protectionism")
       (SETF (SLOT-VALUE ISSUE.809 'PRO-STANCES)
             (LIST (INIT-STANCE '(JOB-PROTECTION PRO B TRADE-RESTRICTIONS
                                  ISSUE))))
       (SETF (SLOT-VALUE ISSUE.809 'CON-STANCES)
             (LIST (INIT-STANCE '(TRADE PRO B TRADE-RESTRICTIONS ISSUE))
                   (INIT-STANCE '(FREE-MARKET PRO B TRADE-RESTRICTIONS ISSUE))
                   (INIT-STANCE '(FOREIGN PRO B TRADE-RESTRICTIONS ISSUE))
                   (INIT-STANCE '(FREE-TRADE PRO A TRADE-RESTRICTIONS ISSUE))))
       (SETF (SLOT-VALUE ISSUE.809 'OPPOSITE) 'FREE-TRADE)
       (SETF (SLOT-VALUE ISSUE.809 'STATUS) "Active")
       (SETF (SLOT-VALUE ISSUE.809 'DATE-OPEN) (LIST->DATE '(2 18 1989)))
       (SETF (SLOT-VALUE ISSUE.809 'SYMBOL) 'ISSUE.809)
       (SETF (SLOT-VALUE ISSUE.809 'KEYWORDS)
             (LIST 'DOMESTIC 'CONTENT 'TRADE 'RESTRICTIONS)))