;; Macintosh HD:lisp:db:data:issue1 
(PROG1 (SETF ISSUE.1016 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1016 'NAME) "Catastrophic Health Costs") (SETF (SLOT-VALUE ISSUE.1016 'TYPE) 'PROGRAM) (SETF (SLOT-VALUE ISSUE.1016 'SYNONYMS) (LIST 'CATASTROPHIC-HEALTH-COSTS)) (SETF (SLOT-VALUE ISSUE.1016 'ISA) (LIST 'HEALTH)) (SETF (SLOT-VALUE ISSUE.1016 'POLARITY) "support program to cover catastrophic health costs for elderly") (SETF (SLOT-VALUE ISSUE.1016 'ENGLISH) "covering catastrophic health costs for elderly") (SETF (SLOT-VALUE ISSUE.1016 'ENGLISH-SHORT) "catastrophic health insurance") (SETF (SLOT-VALUE ISSUE.1016 'PRO-STANCES) (LIST (INIT-STANCE '(HEALTH PRO B CATASTROPHIC-HEALTH-COSTS ISSUE)) (INIT-STANCE '(ELDERLY PRO B CATASTROPHIC-HEALTH-COSTS ISSUE)) (INIT-STANCE '(COMPASSION PRO C CATASTROPHIC-HEALTH-COSTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1016 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B CATASTROPHIC-HEALTH-COSTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1016 'NORM) (INIT-STANCE '(CATASTROPHIC-HEALTH-COSTS PRO C ISSUE.1016 ISSUE))) (SETF (SLOT-VALUE ISSUE.1016 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1016 'DATE-OPEN) (LIST->DATE '(8 18 1989))) (SETF (SLOT-VALUE ISSUE.1016 'SYMBOL) 'ISSUE.1016))
(INSERT-ITEM ISSUE ISSUE.1016)
(DEFVAR ISSUE.881)
(PROG1 (SETF ISSUE.881 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.881 'NAME) "Central America") (SETF (SLOT-VALUE ISSUE.881 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.881 'SYNONYMS) (LIST 'CENTRAL-AMERICA)) (SETF (SLOT-VALUE ISSUE.881 'ISA) (LIST 'LATIN-AMERICA)) (SETF (SLOT-VALUE ISSUE.881 'ENGLISH) "Central American countries") (SETF (SLOT-VALUE ISSUE.881 'ENGLISH-SHORT) "Central America") (SETF (SLOT-VALUE ISSUE.881 'PRO-STANCES) (LIST (INIT-STANCE '(THIRD-WORLD PRO B CENTRAL-AMERICA ISSUE)) (INIT-STANCE '(COMMUNISM PRO B CENTRAL-AMERICA ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B CENTRAL-AMERICA ISSUE)) (INIT-STANCE '(NATIONAL-SECURITY PRO B CENTRAL-AMERICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.881 'CON-STANCES) (LIST (INIT-STANCE '(ISOLATIONISM PRO C CENTRAL-AMERICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.881 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.881 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.881 'SYMBOL) 'ISSUE.881))
(INSERT-ITEM ISSUE ISSUE.881)
(DEFVAR ISSUE.882)
(PROG1 (SETF ISSUE.882 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.882 'NAME) "Central American Peace Plan") (SETF (SLOT-VALUE ISSUE.882 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.882 'SYNONYMS) (LIST 'CENTRAL-AMERICAN-PEACE-PLAN)) (SETF (SLOT-VALUE ISSUE.882 'ISA) (LIST 'CENTRAL-AMERICA)) (SETF (SLOT-VALUE ISSUE.882 'POLARITY) "Support Arias peace plan") (SETF (SLOT-VALUE ISSUE.882 'ENGLISH) "the Central American peace plan") (SETF (SLOT-VALUE ISSUE.882 'PRO-STANCES) (LIST (INIT-STANCE '(CENTRAL-AMERICA PRO B CENTRAL-AMERICAN-PEACE-PLAN ISSUE)) (INIT-STANCE '(PEACE PRO B CENTRAL-AMERICAN-PEACE-PLAN ISSUE)))) (SETF (SLOT-VALUE ISSUE.882 'CON-STANCES) (LIST (INIT-STANCE '(CONTRAS PRO B CENTRAL-AMERICAN-PEACE-PLAN ISSUE)))) (SETF (SLOT-VALUE ISSUE.882 'NORM) (INIT-STANCE '(CENTRAL-AMERICAN-PEACE-PLAN PRO C ISSUE.882 ISSUE))) (SETF (SLOT-VALUE ISSUE.882 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.882 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.882 'SYMBOL) 'ISSUE.882))
(INSERT-ITEM ISSUE ISSUE.882)
(DEFVAR ISSUE.1259)
(PROG1 (SETF ISSUE.1259 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1259 'NAME) "Chemical Weapons") (SETF (SLOT-VALUE ISSUE.1259 'SYNONYMS) (LIST 'CHEMICAL-WEAPONS)) (SETF (SLOT-VALUE ISSUE.1259 'ISA) (LIST 'WEAPON)) (SETF (SLOT-VALUE ISSUE.1259 'POLARITY) "Support construction of binary chemical weapons") (SETF (SLOT-VALUE ISSUE.1259 'ENGLISH) "construction of binary chemical weapons") (SETF (SLOT-VALUE ISSUE.1259 'ENGLISH-SHORT) "chemical weapons") (SETF (SLOT-VALUE ISSUE.1259 'PRO-STANCES) (LIST (INIT-STANCE '(NATIONAL-SECURITY PRO B CHEMICAL-WEAPONS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1259 'CON-STANCES) (LIST (INIT-STANCE '(PEACE PRO B CHEMICAL-WEAPONS ISSUE)) (INIT-STANCE '(VALUES PRO B CHEMICAL-WEAPONS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1259 'NORM) (INIT-STANCE '(CHEMICAL-WEAPONS CON C ISSUE.1259 ISSUE))) (SETF (SLOT-VALUE ISSUE.1259 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1259 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1259 'SYMBOL) 'ISSUE.1259))
(INSERT-ITEM ISSUE ISSUE.1259)
(DEFVAR ISSUE.137)
(PROG1 (SETF ISSUE.137 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.137 'NAME) "Child Care") (SETF (SLOT-VALUE ISSUE.137 'TYPE) 'PROPOSAL) (SETF (SLOT-VALUE ISSUE.137 'SYNONYMS) (LIST 'CHILDCARE 'DAYCARE 'CHILD-CARE)) (SETF (SLOT-VALUE ISSUE.137 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.137 'POLARITY) "Support federal funding for child care") (SETF (SLOT-VALUE ISSUE.137 'ENGLISH) "funding for child care") (SETF (SLOT-VALUE ISSUE.137 'ENGLISH-SHORT) "child care") (SETF (SLOT-VALUE ISSUE.137 'PRO-ENGLISH) "increased funding for child care") (SETF (SLOT-VALUE ISSUE.137 'PRO-STANCES) (LIST (INIT-STANCE '(WOMENS-RIGHTS PRO B CHILDCARE ISSUE)) (INIT-STANCE '(VALUES PRO B CHILDCARE ISSUE)) (INIT-STANCE '(FAIRNESS PRO C CHILDCARE ISSUE)) (INIT-STANCE '(JOBS PRO C CHILDCARE ISSUE)) (INIT-STANCE '(HEALTH PRO C CHILDCARE ISSUE)) (INIT-STANCE '(PROGRESS PRO C CHILDCARE ISSUE)))) (SETF (SLOT-VALUE ISSUE.137 'CON-STANCES) (LIST (INIT-STANCE '(FAMILY PRO B CHILDCARE ISSUE)) (INIT-STANCE '(DEFICIT CON B CHILDCARE ISSUE)) (INIT-STANCE '(TRADITION PRO C CHILDCARE ISSUE)))) (SETF (SLOT-VALUE ISSUE.137 'NORM) (INIT-STANCE '(CHILDCARE PRO B ISSUE.137 ISSUE))) (SETF (SLOT-VALUE ISSUE.137 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.137 'DATE-OPEN) (LIST->DATE '(5 24 1990))) (SETF (SLOT-VALUE ISSUE.137 'SYMBOL) 'ISSUE.137))
(INSERT-ITEM ISSUE ISSUE.137)
(DEFVAR ISSUE.1750)
(PROG1 (SETF ISSUE.1750 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1750 'NAME) "Civil Liberties") (SETF (SLOT-VALUE ISSUE.1750 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.1750 'SYNONYMS) (LIST 'CIVIL-LIBERTIES)) (SETF (SLOT-VALUE ISSUE.1750 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.1750 'POLARITY) "Support the cause of civil liberties") (SETF (SLOT-VALUE ISSUE.1750 'ENGLISH) "civil liberties") (SETF (SLOT-VALUE ISSUE.1750 'GROUPS) (LIST 'ACLU)) (SETF (SLOT-VALUE ISSUE.1750 'PRO-STANCES) (LIST (INIT-STANCE '(CONSTITUTION PRO B CIVIL-LIBERTIES ISSUE)) (INIT-STANCE '(FAIRNESS PRO B CIVIL-LIBERTIES ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B CIVIL-LIBERTIES ISSUE)) (INIT-STANCE '(FREEDOM PRO B CIVIL-LIBERTIES ISSUE)) (INIT-STANCE '(RELIGION PRO B CIVIL-LIBERTIES ISSUE)) (INIT-STANCE '(FREE-SPEECH PRO B CIVIL-LIBERTIES ISSUE)) (INIT-STANCE '(FAIR-TRIAL PRO B CIVIL-LIBERTIES ISSUE)))) (SETF (SLOT-VALUE ISSUE.1750 'CON-STANCES) (LIST (INIT-STANCE '(LAW-AND-ORDER PRO B CIVIL-LIBERTIES ISSUE)))) (SETF (SLOT-VALUE ISSUE.1750 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1750 'DATE-OPEN) (LIST->DATE '(3 22 1989))) (SETF (SLOT-VALUE ISSUE.1750 'SYMBOL) 'ISSUE.1750))
(INSERT-ITEM ISSUE ISSUE.1750)
(DEFVAR ISSUE.3814)
(PROG1 (SETF ISSUE.3814 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3814 'NAME) "Civil Rights") (SETF (SLOT-VALUE ISSUE.3814 'TYPE) 'CAUSE) (SETF (SLOT-VALUE ISSUE.3814 'SYNONYMS) (LIST 'CIVIL-RIGHTS)) (SETF (SLOT-VALUE ISSUE.3814 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.3814 'POLARITY) "Support the cause of civil rights") (SETF (SLOT-VALUE ISSUE.3814 'ENGLISH) "civil rights") (SETF (SLOT-VALUE ISSUE.3814 'PRO-STANCES) (LIST (INIT-STANCE '(FAIRNESS PRO B CIVIL-RIGHTS ISSUE)) (INIT-STANCE '(EQUALITY PRO B CIVIL-RIGHTS ISSUE)) (INIT-STANCE '(FREEDOM PRO B CIVIL-RIGHTS ISSUE)) (INIT-STANCE '(CIVIL-LIBERTIES PRO B CIVIL-RIGHTS ISSUE)) (INIT-STANCE '(INTEGRITY PRO B CIVIL-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.3814 'NORM) (INIT-STANCE '(CIVIL-RIGHTS PRO C ISSUE.3814 ISSUE))) (SETF (SLOT-VALUE ISSUE.3814 'OPPOSITE) 'APARTHEID) (SETF (SLOT-VALUE ISSUE.3814 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3814 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3814 'SYMBOL) 'ISSUE.3814))
(INSERT-ITEM ISSUE ISSUE.3814)
(DEFVAR ISSUE.3220)
(PROG1 (SETF ISSUE.3220 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3220 'NAME) "Clinch River breeder reactor") (SETF (SLOT-VALUE ISSUE.3220 'TYPE) 'PROPOSAL) (SETF (SLOT-VALUE ISSUE.3220 'SYNONYMS) (LIST 'CLINCH-RIVER)) (SETF (SLOT-VALUE ISSUE.3220 'ISA) (LIST 'NUCLEAR-WEAPON)) (SETF (SLOT-VALUE ISSUE.3220 'POLARITY) "Support building the Clinch River breeder reactor") (SETF (SLOT-VALUE ISSUE.3220 'ENGLISH) "building the Clinch River breeder reactor") (SETF (SLOT-VALUE ISSUE.3220 'PRO-STANCES) (LIST (INIT-STANCE '(NUCLEAR-WEAPON PRO C CLINCH-RIVER ISSUE)))) (SETF (SLOT-VALUE ISSUE.3220 'CON-STANCES) (LIST (INIT-STANCE '(ENVIRONMENT PRO B CLINCH-RIVER ISSUE)))) (SETF (SLOT-VALUE ISSUE.3220 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3220 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE ISSUE.3220 'SYMBOL) 'ISSUE.3220))
(INSERT-ITEM ISSUE ISSUE.3220)
(DEFVAR ISSUE.815)
(PROG1 (SETF ISSUE.815 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.815 'NAME) "Cold War") (SETF (SLOT-VALUE ISSUE.815 'TYPE) 'PROBLEM) (SETF (SLOT-VALUE ISSUE.815 'SYNONYMS) (LIST 'COLD-WAR)) (SETF (SLOT-VALUE ISSUE.815 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.815 'ENGLISH) "the Cold War") (SETF (SLOT-VALUE ISSUE.815 'PRO-STANCES) (LIST (INIT-STANCE '(COMMUNISM PRO B COLD-WAR ISSUE)) (INIT-STANCE '(NATIONAL-SECURITY PRO B COLD-WAR ISSUE)))) (SETF (SLOT-VALUE ISSUE.815 'CON-STANCES) (LIST (INIT-STANCE '(PEACE PRO B COLD-WAR ISSUE)) (INIT-STANCE '(PROSPERITY PRO B COLD-WAR ISSUE)))) (SETF (SLOT-VALUE ISSUE.815 'NORM) (INIT-STANCE '(COLD-WAR CON C ISSUE.815 ISSUE))) (SETF (SLOT-VALUE ISSUE.815 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.815 'DATE-OPEN) (LIST->DATE '(1 22 1989))) (SETF (SLOT-VALUE ISSUE.815 'SYMBOL) 'ISSUE.815))
(INSERT-ITEM ISSUE ISSUE.815)
(DEFVAR ISSUE.1014)
(PROG1 (SETF ISSUE.1014 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1014 'NAME) "Compassion") (SETF (SLOT-VALUE ISSUE.1014 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.1014 'SYNONYMS) (LIST 'MERCY 'COMPASSION)) (SETF (SLOT-VALUE ISSUE.1014 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.1014 'POLARITY) "a feeling of compassion towards other people") (SETF (SLOT-VALUE ISSUE.1014 'ENGLISH) "compassion") (SETF (SLOT-VALUE ISSUE.1014 'PRO-STANCES) (LIST (INIT-STANCE '(VALUES PRO B COMPASSION ISSUE)) (INIT-STANCE '(IDEALISM PRO B COMPASSION ISSUE)))) (SETF (SLOT-VALUE ISSUE.1014 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B COMPASSION ISSUE)))) (SETF (SLOT-VALUE ISSUE.1014 'NORM) (INIT-STANCE '(COMPASSION PRO B ISSUE.1014 ISSUE))) (SETF (SLOT-VALUE ISSUE.1014 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1014 'DATE-OPEN) (LIST->DATE '(8 18 1989))) (SETF (SLOT-VALUE ISSUE.1014 'SYMBOL) 'ISSUE.1014))
(INSERT-ITEM ISSUE ISSUE.1014)
(DEFVAR ISSUE.2591)
(PROG1 (SETF ISSUE.2591 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2591 'NAME) "Constitution") (SETF (SLOT-VALUE ISSUE.2591 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.2591 'SYNONYMS) (LIST 'CONSTITUTION 'BILL-OF-RIGHTS)) (SETF (SLOT-VALUE ISSUE.2591 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.2591 'POLARITY) "Support the United States Constitution and Bill of Rights") (SETF (SLOT-VALUE ISSUE.2591 'ENGLISH) "the United States Constitution and the Bill of Rights") (SETF (SLOT-VALUE ISSUE.2591 'ENGLISH-SHORT) "the Constitution") (SETF (SLOT-VALUE ISSUE.2591 'FRENCH) "la Constitution ame'ricaine et la de'claration des Droits") (SETF (SLOT-VALUE ISSUE.2591 'FRENCH-SHORT) "la Constitution") (SETF (SLOT-VALUE ISSUE.2591 'PRO-STANCES) (LIST (INIT-STANCE '(FREEDOM PRO B CONSTITUTION ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B CONSTITUTION ISSUE)) (INIT-STANCE '(IDEALISM PRO B CONSTITUTION ISSUE)) (INIT-STANCE '(PATRIOTISM PRO B CONSTITUTION ISSUE)))) (SETF (SLOT-VALUE ISSUE.2591 'NORM) (INIT-STANCE '(CONSTITUTION PRO B ISSUE.2591 ISSUE))) (SETF (SLOT-VALUE ISSUE.2591 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2591 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2591 'SYMBOL) 'ISSUE.2591))
(INSERT-ITEM ISSUE ISSUE.2591)
(DEFVAR ISSUE.898)
(PROG1 (SETF ISSUE.898 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.898 'NAME) "Constructive Engagement") (SETF (SLOT-VALUE ISSUE.898 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.898 'SYNONYMS) (LIST 'CONSTRUCTIVE-ENGAGEMENT)) (SETF (SLOT-VALUE ISSUE.898 'ISA) (LIST 'SOUTH-AFRICA)) (SETF (SLOT-VALUE ISSUE.898 'POLARITY) "Support constructive engagement with South Africa") (SETF (SLOT-VALUE ISSUE.898 'ENGLISH) "constructive engagement with South Africa") (SETF (SLOT-VALUE ISSUE.898 'ENGLISH-SHORT) "constructive engagement") (SETF (SLOT-VALUE ISSUE.898 'PRO-STANCES) (LIST (INIT-STANCE '(SOUTH-AFRICA PRO B CONSTRUCTIVE-ENGAGEMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.898 'CON-STANCES) (LIST (INIT-STANCE '(APARTHEID CON B CONSTRUCTIVE-ENGAGEMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.898 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.898 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.898 'SYMBOL) 'ISSUE.898))
(INSERT-ITEM ISSUE ISSUE.898)
(DEFVAR ISSUE.1754)
(PROG1 (SETF ISSUE.1754 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1754 'NAME) "Consumer Protection") (SETF (SLOT-VALUE ISSUE.1754 'TYPE) 'CAUSE) (SETF (SLOT-VALUE ISSUE.1754 'SYNONYMS) (LIST 'CONSUMER)) (SETF (SLOT-VALUE ISSUE.1754 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.1754 'POLARITY) "Support federal regulation for consumer protection") (SETF (SLOT-VALUE ISSUE.1754 'ENGLISH) "trade regulation for consumer protection") (SETF (SLOT-VALUE ISSUE.1754 'ENGLISH-SHORT) "consumer protection") (SETF (SLOT-VALUE ISSUE.1754 'GROUPS) (LIST 'CFA)) (SETF (SLOT-VALUE ISSUE.1754 'PRO-STANCES) (LIST (INIT-STANCE '(FAIRNESS PRO B CONSUMER ISSUE)) (INIT-STANCE '(HONESTY PRO B CONSUMER ISSUE)) (INIT-STANCE '(REGULATION PRO C CONSUMER ISSUE)))) (SETF (SLOT-VALUE ISSUE.1754 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B CONSUMER ISSUE)) (INIT-STANCE '(BUSINESS PRO B CONSUMER ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B CONSUMER ISSUE)))) (SETF (SLOT-VALUE ISSUE.1754 'NORM) (INIT-STANCE '(CONSUMER PRO C ISSUE.1754 ISSUE))) (SETF (SLOT-VALUE ISSUE.1754 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1754 'DATE-OPEN) (LIST->DATE '(3 22 1989))) (SETF (SLOT-VALUE ISSUE.1754 'SYMBOL) 'ISSUE.1754))
(INSERT-ITEM ISSUE ISSUE.1754)
(DEFVAR ISSUE.901)
(PROG1 (SETF ISSUE.901 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.901 'NAME) "Conventional Defense") (SETF (SLOT-VALUE ISSUE.901 'SYNONYMS) (LIST 'CONVENTIONAL-DEFENSE)) (SETF (SLOT-VALUE ISSUE.901 'ISA) (LIST 'WEAPONS)) (SETF (SLOT-VALUE ISSUE.901 'POLARITY) "Support non-nuclear defense forces") (SETF (SLOT-VALUE ISSUE.901 'ENGLISH) "conventional defense forces") (SETF (SLOT-VALUE ISSUE.901 'ENGLISH-SHORT) "conventional forces") (SETF (SLOT-VALUE ISSUE.901 'PRO-ENGLISH) "a strong conventional defense force") (SETF (SLOT-VALUE ISSUE.901 'PRO-STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B CONVENTIONAL-DEFENSE ISSUE)) (INIT-STANCE '(NATIONAL-SECURITY PRO B CONVENTIONAL-DEFENSE ISSUE)))) (SETF (SLOT-VALUE ISSUE.901 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B CONVENTIONAL-DEFENSE ISSUE)) (INIT-STANCE '(PEACE PRO B CONVENTIONAL-DEFENSE ISSUE)))) (SETF (SLOT-VALUE ISSUE.901 'NORM) (INIT-STANCE '(CONVENTIONAL-DEFENSE PRO C ISSUE.901 ISSUE))) (SETF (SLOT-VALUE ISSUE.901 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.901 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.901 'SYMBOL) 'ISSUE.901))
(INSERT-ITEM ISSUE ISSUE.901)
(DEFVAR ISSUE.3821)
(PROG1 (SETF ISSUE.3821 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3821 'NAME) "Creationism") (SETF (SLOT-VALUE ISSUE.3821 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.3821 'POLARITY) "Support teaching of creationist doctrine in schools") (SETF (SLOT-VALUE ISSUE.3821 'ENGLISH) "teaching creationist doctrine in schools") (SETF (SLOT-VALUE ISSUE.3821 'ENGLISH-SHORT) "creationism") (SETF (SLOT-VALUE ISSUE.3821 'GROUPS) (LIST 'EVANGELICALS)) (SETF (SLOT-VALUE ISSUE.3821 'PRO-STANCES) (LIST (INIT-STANCE '(RELIGION PRO B CREATIONISM ISSUE)) (INIT-STANCE '(FREE-SPEECH PRO B CREATIONISM ISSUE)) (INIT-STANCE '(TRADITION PRO B CREATIONISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.3821 'CON-STANCES) (LIST (INIT-STANCE '(PROGRESS PRO B CREATIONISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.3821 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3821 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3821 'SYMBOL) 'ISSUE.3821))
(INSERT-ITEM ISSUE ISSUE.3821)
(DEFVAR ISSUE.906)
(PROG1 (SETF ISSUE.906 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.906 'NAME) "Cruise Missile") (SETF (SLOT-VALUE ISSUE.906 'SYNONYMS) (LIST 'CRUISE)) (SETF (SLOT-VALUE ISSUE.906 'ISA) (LIST 'NUCLEAR-WEAPON)) (SETF (SLOT-VALUE ISSUE.906 'POLARITY) "Support building cruise missile") (SETF (SLOT-VALUE ISSUE.906 'ENGLISH) "building the cruise missile") (SETF (SLOT-VALUE ISSUE.906 'ENGLISH-SHORT) "the cruise missile") (SETF (SLOT-VALUE ISSUE.906 'PRO-STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B CRUISE ISSUE)) (INIT-STANCE '(NUCLEAR-WEAPON PRO B CRUISE ISSUE)))) (SETF (SLOT-VALUE ISSUE.906 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B CRUISE ISSUE)) (INIT-STANCE '(PEACE PRO B CRUISE ISSUE)))) (SETF (SLOT-VALUE ISSUE.906 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.906 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.906 'SYMBOL) 'ISSUE.906))
(INSERT-ITEM ISSUE ISSUE.906)
(DEFVAR ISSUE.712)
(PROG1 (SETF ISSUE.712 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.712 'NAME) "Cut taxes") (SETF (SLOT-VALUE ISSUE.712 'TYPE) 'ECONOMIC) (SETF (SLOT-VALUE ISSUE.712 'SYNONYMS) (LIST 'CUT-TAXES 'TAX-CUTS)) (SETF (SLOT-VALUE ISSUE.712 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.712 'POLARITY) "Support cuts in taxes") (SETF (SLOT-VALUE ISSUE.712 'ENGLISH) "cuts in taxes") (SETF (SLOT-VALUE ISSUE.712 'ENGLISH-SHORT) "tax cuts") (SETF (SLOT-VALUE ISSUE.712 'NUMBER) 'PLUR) (SETF (SLOT-VALUE ISSUE.712 'PRO-STANCES) (LIST (INIT-STANCE '(SPUR-INVESTMENT PRO B CUT-TAXES ISSUE)) (INIT-STANCE '(PROSPERITY PRO B CUT-TAXES ISSUE)) (INIT-STANCE '(BUSINESS PRO B CUT-TAXES ISSUE)))) (SETF (SLOT-VALUE ISSUE.712 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B CUT-TAXES ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B CUT-TAXES ISSUE)))) (SETF (SLOT-VALUE ISSUE.712 'NORM) (INIT-STANCE '(CUT-TAXES PRO B ISSUE.712 ISSUE))) (SETF (SLOT-VALUE ISSUE.712 'OPPOSITE) 'TAXES) (SETF (SLOT-VALUE ISSUE.712 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.712 'DATE-OPEN) (LIST->DATE '(9 29 1989))) (SETF (SLOT-VALUE ISSUE.712 'SYMBOL) 'ISSUE.712))
(INSERT-ITEM ISSUE ISSUE.712)
(DEFVAR ISSUE.905)
(PROG1 (SETF ISSUE.905 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.905 'NAME) "D-5 Missile") (SETF (SLOT-VALUE ISSUE.905 'SYNONYMS) (LIST 'D5)) (SETF (SLOT-VALUE ISSUE.905 'ISA) (LIST 'TRIDENT2)) (SETF (SLOT-VALUE ISSUE.905 'POLARITY) "Support building D-5 missile") (SETF (SLOT-VALUE ISSUE.905 'ENGLISH) "building the D-5 missile") (SETF (SLOT-VALUE ISSUE.905 'ENGLISH-SHORT) "the D-5") (SETF (SLOT-VALUE ISSUE.905 'PRO-STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B D5 ISSUE)) (INIT-STANCE '(NUCLEAR-WEAPON PRO B D5 ISSUE)))) (SETF (SLOT-VALUE ISSUE.905 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B D5 ISSUE)) (INIT-STANCE '(PEACE PRO B D5 ISSUE)))) (SETF (SLOT-VALUE ISSUE.905 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.905 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.905 'SYMBOL) 'ISSUE.905) (SETF (SLOT-VALUE ISSUE.905 'KEYWORDS) (LIST 'SEA-BASED 'NUCLEAR-WEAPON)))
(INSERT-ITEM ISSUE ISSUE.905)
(DEFVAR ISSUE.3836)
(PROG1 (SETF ISSUE.3836 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3836 'NAME) "Defense Spending") (SETF (SLOT-VALUE ISSUE.3836 'SYNONYMS) (LIST 'DEFENSE 'MILITARY 'DEFENSE-SPENDING)) (SETF (SLOT-VALUE ISSUE.3836 'ISA) (LIST 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3836 'POLARITY) "Support defense appropriations") (SETF (SLOT-VALUE ISSUE.3836 'ENGLISH) "funding for the military") (SETF (SLOT-VALUE ISSUE.3836 'ENGLISH-SHORT) "national defense") (SETF (SLOT-VALUE ISSUE.3836 'PRO-ENGLISH) "increased military funding as an investment in a strong national defense") (SETF (SLOT-VALUE ISSUE.3836 'CON-ENGLISH) "wasteful defense spending") (SETF (SLOT-VALUE ISSUE.3836 'PRO-STANCES) (LIST (INIT-STANCE '(SECURITY PRO B DEFENSE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3836 'CON-STANCES) (LIST (INIT-STANCE '(PEACE PRO B DEFENSE ISSUE)) (INIT-STANCE '(DEFICIT CON B DEFENSE ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B DEFENSE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3836 'NORM) (INIT-STANCE '(DEFENSE PRO C ISSUE.3836 ISSUE))) (SETF (SLOT-VALUE ISSUE.3836 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3836 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3836 'SYMBOL) 'ISSUE.3836))
(INSERT-ITEM ISSUE ISSUE.3836)
(DEFVAR ISSUE.870)
(PROG1 (SETF ISSUE.870 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.870 'NAME) "Deficit") (SETF (SLOT-VALUE ISSUE.870 'SYNONYMS) (LIST 'BUDGET-DEFICIT 'DEFICIT)) (SETF (SLOT-VALUE ISSUE.870 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.870 'POLARITY) "Support federal deficit spending") (SETF (SLOT-VALUE ISSUE.870 'ENGLISH) "federal deficit spending") (SETF (SLOT-VALUE ISSUE.870 'ENGLISH-SHORT) "the federal deficit") (SETF (SLOT-VALUE ISSUE.870 'CON-STANCES) (LIST (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B DEFICIT ISSUE)) (INIT-STANCE '(PROSPERITY PRO B DEFICIT ISSUE)))) (SETF (SLOT-VALUE ISSUE.870 'NORM) (INIT-STANCE '(DEFICIT CON C ISSUE.870 ISSUE))) (SETF (SLOT-VALUE ISSUE.870 'OPPOSITE) 'BALANCED-BUDGET) (SETF (SLOT-VALUE ISSUE.870 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.870 'DATE-OPEN) (LIST->DATE '(9 25 1988))) (SETF (SLOT-VALUE ISSUE.870 'SYMBOL) 'ISSUE.870))
(INSERT-ITEM ISSUE ISSUE.870)
(DEFVAR ISSUE.80)
(PROG1 (SETF ISSUE.80 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.80 'NAME) "Democracy") (SETF (SLOT-VALUE ISSUE.80 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.80 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.80 'POLARITY) "Support democracy throughout the world.") (SETF (SLOT-VALUE ISSUE.80 'ENGLISH) "the democratic form of government") (SETF (SLOT-VALUE ISSUE.80 'ENGLISH-SHORT) "democracy") (SETF (SLOT-VALUE ISSUE.80 'FRENCH) "la de'mocracie") (SETF (SLOT-VALUE ISSUE.80 'PRO-STANCES) (LIST (INIT-STANCE '(IDEALISM PRO B DEMOCRACY ISSUE)))) (SETF (SLOT-VALUE ISSUE.80 'NORM) (INIT-STANCE '(DEMOCRACY PRO B ISSUE.80 ISSUE))) (SETF (SLOT-VALUE ISSUE.80 'OPPOSITE) 'TOTALITARIANISM) (SETF (SLOT-VALUE ISSUE.80 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.80 'DATE-OPEN) (LIST->DATE '(1 9 1990))) (SETF (SLOT-VALUE ISSUE.80 'SYMBOL) 'ISSUE.80))
(INSERT-ITEM ISSUE ISSUE.80)
(DEFVAR ISSUE.1749)
(PROG1 (SETF ISSUE.1749 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1749 'NAME) "Deregulation") (SETF (SLOT-VALUE ISSUE.1749 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.1749 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.1749 'POLARITY) "Support limiting federal regulation of industry") (SETF (SLOT-VALUE ISSUE.1749 'ENGLISH) "limiting federal regulation of industry and society") (SETF (SLOT-VALUE ISSUE.1749 'ENGLISH-SHORT) "deregulation") (SETF (SLOT-VALUE ISSUE.1749 'GROUPS) (LIST 'INDUSTRY)) (SETF (SLOT-VALUE ISSUE.1749 'PRO-STANCES) (LIST (INIT-STANCE '(BUSINESS PRO B DEREGULATION ISSUE)) (INIT-STANCE '(FREE-ENTERPRISE PRO B DEREGULATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.1749 'CON-STANCES) (LIST (INIT-STANCE '(CONSUMER PRO B DEREGULATION ISSUE)) (INIT-STANCE '(ECOLOGY PRO C DEREGULATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.1749 'NORM) (INIT-STANCE '(DEREGULATION PRO C ISSUE.1749 ISSUE))) (SETF (SLOT-VALUE ISSUE.1749 'OPPOSITE) 'REGULATION) (SETF (SLOT-VALUE ISSUE.1749 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1749 'DATE-OPEN) (LIST->DATE '(3 22 1989))) (SETF (SLOT-VALUE ISSUE.1749 'SYMBOL) 'ISSUE.1749))
(INSERT-ITEM ISSUE ISSUE.1749)
(DEFVAR ISSUE.37)
(PROG1 (SETF ISSUE.37 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.37 'NAME) "Diplomatic efforts") (SETF (SLOT-VALUE ISSUE.37 'SYNONYMS) (LIST 'DIPLOMACY 'DIPLOMATIC-EFFORTS)) (SETF (SLOT-VALUE ISSUE.37 'POLARITY) "Support diplomatic efforts to resolve conflicts") (SETF (SLOT-VALUE ISSUE.37 'ENGLISH) "diplomatic efforts to resolve conflicts") (SETF (SLOT-VALUE ISSUE.37 'ENGLISH-SHORT) "diplomacy") (SETF (SLOT-VALUE ISSUE.37 'PRO-STANCES) (LIST (INIT-STANCE '(PEACE PRO B DIPLOMACY ISSUE)) (INIT-STANCE '(FOREIGN PRO A DIPLOMACY ISSUE)) (INIT-STANCE '(FOREIGN-ORG PRO B DIPLOMACY ISSUE)))) (SETF (SLOT-VALUE ISSUE.37 'CON-STANCES) (LIST (INIT-STANCE '(MILITARY-SOLUTION PRO B DIPLOMACY ISSUE)) (INIT-STANCE '(DEFENSE PRO B DIPLOMACY ISSUE)))) (SETF (SLOT-VALUE ISSUE.37 'NORM) (INIT-STANCE '(DIPLOMACY PRO C ISSUE.37 ISSUE))) (SETF (SLOT-VALUE ISSUE.37 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.37 'DATE-OPEN) (LIST->DATE '(3 17 1990))) (SETF (SLOT-VALUE ISSUE.37 'SYMBOL) 'ISSUE.37))
(INSERT-ITEM ISSUE ISSUE.37)
(DEFVAR ISSUE.3842)
(PROG1 (SETF ISSUE.3842 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3842 'NAME) "Domestic Policy") (SETF (SLOT-VALUE ISSUE.3842 'SYNONYMS) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3842 'ISA) (LIST 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3842 'ENGLISH) "domestic policy") (SETF (SLOT-VALUE ISSUE.3842 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3842 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3842 'SYMBOL) 'ISSUE.3842))
(INSERT-ITEM ISSUE ISSUE.3842)
(DEFVAR ISSUE.3854)
(PROG1 (SETF ISSUE.3854 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3854 'NAME) "Drug Enforcement") (SETF (SLOT-VALUE ISSUE.3854 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.3854 'SYNONYMS) (LIST 'DRUG-ENFORCEMENT 'DRUGS)) (SETF (SLOT-VALUE ISSUE.3854 'ISA) (LIST 'LAW-ENFORCEMENT)) (SETF (SLOT-VALUE ISSUE.3854 'POLARITY) "Support federal war on drugs") (SETF (SLOT-VALUE ISSUE.3854 'ENGLISH) "federal actions against illegal use of drugs") (SETF (SLOT-VALUE ISSUE.3854 'ENGLISH-SHORT) "the war on drugs") (SETF (SLOT-VALUE ISSUE.3854 'PRO-STANCES) (LIST (INIT-STANCE '(LAW-AND-ORDER PRO B DRUG-ENFORCEMENT ISSUE)) (INIT-STANCE '(HEALTH PRO C DRUG-ENFORCEMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.3854 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON C DRUG-ENFORCEMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.3854 'NORM) (INIT-STANCE '(DRUG-ENFORCEMENT PRO B ISSUE.3854 ISSUE))) (SETF (SLOT-VALUE ISSUE.3854 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3854 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3854 'SYMBOL) 'ISSUE.3854))
(INSERT-ITEM ISSUE ISSUE.3854)
(DEFVAR ISSUE.887)
(PROG1 (SETF ISSUE.887 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.887 'NAME) "East-West Relationships") (SETF (SLOT-VALUE ISSUE.887 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.887 'SYNONYMS) (LIST 'EAST-WEST)) (SETF (SLOT-VALUE ISSUE.887 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.887 'POLARITY) "Support improved relationships with Eastern Europe") (SETF (SLOT-VALUE ISSUE.887 'ENGLISH) "Eastern European countries") (SETF (SLOT-VALUE ISSUE.887 'ENGLISH-SHORT) "Warsaw Pact countries") (SETF (SLOT-VALUE ISSUE.887 'PRO-STANCES) (LIST (INIT-STANCE '(PEACE PRO B EAST-WEST ISSUE)) (INIT-STANCE '(VALUES PRO B EAST-WEST ISSUE)))) (SETF (SLOT-VALUE ISSUE.887 'CON-STANCES) (LIST (INIT-STANCE '(NATIONAL-SECURITY PRO B EAST-WEST ISSUE)))) (SETF (SLOT-VALUE ISSUE.887 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.887 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.887 'SYMBOL) 'ISSUE.887))
(INSERT-ITEM ISSUE ISSUE.887)
(DEFVAR ISSUE.2710)
(PROG1 (SETF ISSUE.2710 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2710 'NAME) "Economic Policy") (SETF (SLOT-VALUE ISSUE.2710 'SYNONYMS) (LIST 'ECONOMIC 'ECONOMY)) (SETF (SLOT-VALUE ISSUE.2710 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.2710 'POLARITY) "Support policies to improve the economy") (SETF (SLOT-VALUE ISSUE.2710 'ENGLISH) "federal efforts to improve the economy") (SETF (SLOT-VALUE ISSUE.2710 'ENGLISH-SHORT) "economic policies") (SETF (SLOT-VALUE ISSUE.2710 'PRO-STANCES) (LIST (INIT-STANCE '(PROSPERITY PRO B ECONOMIC ISSUE)) (INIT-STANCE '(JOBS PRO B ECONOMIC ISSUE)) (INIT-STANCE '(INFLATION PRO B ECONOMIC ISSUE)))) (SETF (SLOT-VALUE ISSUE.2710 'NORM) (INIT-STANCE '(ECONOMIC PRO B ISSUE.2710 ISSUE))) (SETF (SLOT-VALUE ISSUE.2710 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2710 'DATE-OPEN) (LIST->DATE '(8 31 1988))) (SETF (SLOT-VALUE ISSUE.2710 'SYMBOL) 'ISSUE.2710))
(INSERT-ITEM ISSUE ISSUE.2710)
(DEFVAR ISSUE.872)
(PROG1 (SETF ISSUE.872 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.872 'NAME) "Education Policy") (SETF (SLOT-VALUE ISSUE.872 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.872 'SYNONYMS) (LIST 'EDUCATION)) (SETF (SLOT-VALUE ISSUE.872 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.872 'POLARITY) "Support federal spending on education") (SETF (SLOT-VALUE ISSUE.872 'ENGLISH) "federal efforts to improve education") (SETF (SLOT-VALUE ISSUE.872 'ENGLISH-SHORT) "education policies") (SETF (SLOT-VALUE ISSUE.872 'PRO-STANCES) (LIST (INIT-STANCE '(VALUES PRO B EDUCATION ISSUE)) (INIT-STANCE '(EQUALITY PRO B EDUCATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.872 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO C EDUCATION ISSUE)) (INIT-STANCE '(DEFICIT CON C EDUCATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.872 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.872 'DATE-OPEN) (LIST->DATE '(9 25 1988))) (SETF (SLOT-VALUE ISSUE.872 'SYMBOL) 'ISSUE.872))
(INSERT-ITEM ISSUE ISSUE.872)
(DEFVAR ISSUE.3064)
(PROG1 (SETF ISSUE.3064 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3064 'NAME) "El Salvador") (SETF (SLOT-VALUE ISSUE.3064 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.3064 'SYNONYMS) (LIST 'EL-SALVADOR)) (SETF (SLOT-VALUE ISSUE.3064 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.3064 'POLARITY) "Support aid to El Salvador") (SETF (SLOT-VALUE ISSUE.3064 'ENGLISH) "the government of El Salvador") (SETF (SLOT-VALUE ISSUE.3064 'ENGLISH-SHORT) "El Salvador") (SETF (SLOT-VALUE ISSUE.3064 'PRO-STANCES) (LIST (INIT-STANCE '(CENTRAL-AMERICA PRO B EL-SALVADOR ISSUE)) (INIT-STANCE '(THIRD-WORLD PRO B EL-SALVADOR ISSUE)))) (SETF (SLOT-VALUE ISSUE.3064 'CON-STANCES) (LIST (INIT-STANCE '(VALUES PRO B EL-SALVADOR ISSUE)) (INIT-STANCE '(HUMAN-RIGHTS PRO B EL-SALVADOR ISSUE)))) (SETF (SLOT-VALUE ISSUE.3064 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3064 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE ISSUE.3064 'SYMBOL) 'ISSUE.3064))
(INSERT-ITEM ISSUE ISSUE.3064)
(DEFVAR ISSUE.963)
(PROG1 (SETF ISSUE.963 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.963 'NAME) "Elderly") (SETF (SLOT-VALUE ISSUE.963 'TYPE) 'GROUP) (SETF (SLOT-VALUE ISSUE.963 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.963 'POLARITY) "Support federal regulation and funding benefitting the elderly") (SETF (SLOT-VALUE ISSUE.963 'ENGLISH) "elderly Americans") (SETF (SLOT-VALUE ISSUE.963 'ENGLISH-SHORT) "the elderly") (SETF (SLOT-VALUE ISSUE.963 'PRO-STANCES) (LIST (INIT-STANCE '(FAIRNESS PRO B ELDERLY ISSUE)) (INIT-STANCE '(COMPASSION PRO B ELDERLY ISSUE)) (INIT-STANCE '(FAMILY PRO C ELDERLY ISSUE)))) (SETF (SLOT-VALUE ISSUE.963 'NORM) (INIT-STANCE '(ELDERLY PRO B ISSUE.963 ISSUE))) (SETF (SLOT-VALUE ISSUE.963 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.963 'DATE-OPEN) (LIST->DATE '(4 14 1989))) (SETF (SLOT-VALUE ISSUE.963 'SYMBOL) 'ISSUE.963))
(INSERT-ITEM ISSUE ISSUE.963)
(DEFVAR ISSUE.1751)
(PROG1 (SETF ISSUE.1751 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1751 'NAME) "Election Reform") (SETF (SLOT-VALUE ISSUE.1751 'TYPE) 'REFORM) (SETF (SLOT-VALUE ISSUE.1751 'SYNONYMS) (LIST 'ELECTION-REFORM)) (SETF (SLOT-VALUE ISSUE.1751 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.1751 'POLARITY) "Support reform of campaign and election laws") (SETF (SLOT-VALUE ISSUE.1751 'ENGLISH) "reform of campaign and election laws") (SETF (SLOT-VALUE ISSUE.1751 'ENGLISH-SHORT) "election reform") (SETF (SLOT-VALUE ISSUE.1751 'GROUPS) (LIST 'COMMON-CAUSE)) (SETF (SLOT-VALUE ISSUE.1751 'PRO-STANCES) (LIST (INIT-STANCE '(HONESTY PRO B ELECTION-REFORM ISSUE)) (INIT-STANCE '(FAIRNESS PRO B ELECTION-REFORM ISSUE)) (INIT-STANCE '(REGULATION PRO C ELECTION-REFORM ISSUE)) (INIT-STANCE '(PROGRESS PRO B ELECTION-REFORM ISSUE)) (INIT-STANCE '(INTEGRITY PRO B ELECTION-REFORM ISSUE)))) (SETF (SLOT-VALUE ISSUE.1751 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B ELECTION-REFORM ISSUE)) (INIT-STANCE '(FREE-MARKET PRO C ELECTION-REFORM ISSUE)) (INIT-STANCE '(FREE-SPEECH PRO B ELECTION-REFORM ISSUE)) (INIT-STANCE '(TRADITION PRO B ELECTION-REFORM ISSUE)))) (SETF (SLOT-VALUE ISSUE.1751 'NORM) (INIT-STANCE '(ELECTION-REFORM PRO C ISSUE.1751 ISSUE))) (SETF (SLOT-VALUE ISSUE.1751 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1751 'DATE-OPEN) (LIST->DATE '(3 22 1989))) (SETF (SLOT-VALUE ISSUE.1751 'SYMBOL) 'ISSUE.1751))
(INSERT-ITEM ISSUE ISSUE.1751)
(DEFVAR ISSUE.81)
(PROG1 (SETF ISSUE.81 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.81 'NAME) "Elections") (SETF (SLOT-VALUE ISSUE.81 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.81 'SYNONYMS) (LIST 'ELECTION)) (SETF (SLOT-VALUE ISSUE.81 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.81 'POLARITY) "Support free elections") (SETF (SLOT-VALUE ISSUE.81 'ENGLISH) "free and open elections") (SETF (SLOT-VALUE ISSUE.81 'ENGLISH-SHORT) "elections") (SETF (SLOT-VALUE ISSUE.81 'PRO-STANCES) (LIST (INIT-STANCE '(DEMOCRACY PRO B ELECTIONS ISSUE)) (INIT-STANCE '(LIBERTY PRO B ELECTIONS ISSUE)))) (SETF (SLOT-VALUE ISSUE.81 'CON-STANCES) (LIST (INIT-STANCE '(TOTALITARIANISM PRO B ELECTIONS ISSUE)))) (SETF (SLOT-VALUE ISSUE.81 'NORM) (INIT-STANCE '(ELECTIONS PRO B ISSUE.81 ISSUE))) (SETF (SLOT-VALUE ISSUE.81 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.81 'DATE-OPEN) (LIST->DATE '(1 9 1990))) (SETF (SLOT-VALUE ISSUE.81 'SYMBOL) 'ISSUE.81))
(INSERT-ITEM ISSUE ISSUE.81)
(DEFVAR ISSUE.1257)
(PROG1 (SETF ISSUE.1257 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1257 'NAME) "End of Hostilities") (SETF (SLOT-VALUE ISSUE.1257 'TYPE) 'OPPORTUNITY) (SETF (SLOT-VALUE ISSUE.1257 'SYNONYMS) (LIST 'END-OF-HOSTILITIES 'CEASEFIRE)) (SETF (SLOT-VALUE ISSUE.1257 'ISA) (LIST 'DEFENSE)) (SETF (SLOT-VALUE ISSUE.1257 'POLARITY) "Support an end of hostilities") (SETF (SLOT-VALUE ISSUE.1257 'ENGLISH) "an end to the hostilities") (SETF (SLOT-VALUE ISSUE.1257 'ENGLISH-SHORT) "a ceasefire") (SETF (SLOT-VALUE ISSUE.1257 'PRO-STANCES) (LIST (INIT-STANCE '(PEACE PRO B END-OF-HOSTILITIES ISSUE)) (INIT-STANCE '(IDEALISM PRO B END-OF-HOSTILITIES ISSUE)) (INIT-STANCE '(VALUES PRO B END-OF-HOSTILITIES ISSUE)))) (SETF (SLOT-VALUE ISSUE.1257 'CON-STANCES) (LIST (INIT-STANCE '(MILITARY-SOLUTION PRO B END-OF-HOSTILITIES ISSUE)) (INIT-STANCE '(PRAGMATISM PRO B END-OF-HOSTILITIES ISSUE)))) (SETF (SLOT-VALUE ISSUE.1257 'NORM) (INIT-STANCE '(END-OF-HOSTILITIES PRO C ISSUE.1257 ISSUE))) (SETF (SLOT-VALUE ISSUE.1257 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1257 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1257 'SYMBOL) 'ISSUE.1257))
(INSERT-ITEM ISSUE ISSUE.1257)
(DEFVAR ISSUE.871)
(PROG1 (SETF ISSUE.871 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.871 'NAME) "Energy Conservation") (SETF (SLOT-VALUE ISSUE.871 'SYNONYMS) (LIST 'ENERGY)) (SETF (SLOT-VALUE ISSUE.871 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.871 'POLARITY) "Support federal efforts to conserve energy") (SETF (SLOT-VALUE ISSUE.871 'ENGLISH) "federal efforts to stimulate energy conservation") (SETF (SLOT-VALUE ISSUE.871 'ENGLISH-SHORT) "energy conservation") (SETF (SLOT-VALUE ISSUE.871 'PRO-STANCES) (LIST (INIT-STANCE '(CONSERVATION PRO B ENERGY ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO C ENERGY ISSUE)) (INIT-STANCE '(FUTURE PRO B ENERGY ISSUE)))) (SETF (SLOT-VALUE ISSUE.871 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B ENERGY ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B ENERGY ISSUE)))) (SETF (SLOT-VALUE ISSUE.871 'NORM) (INIT-STANCE '(ENERGY PRO C ISSUE.871 ISSUE))) (SETF (SLOT-VALUE ISSUE.871 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.871 'DATE-OPEN) (LIST->DATE '(9 25 1988))) (SETF (SLOT-VALUE ISSUE.871 'SYMBOL) 'ISSUE.871))

(INSERT-ITEM ISSUE ISSUE.871)