;; Macintosh HD:lisp:db:data:issue3 
(INSERT-ITEM ISSUE ISSUE.1267)
(DEFVAR ISSUE.1256)
(PROG1 (SETF ISSUE.1256 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1256 'NAME) "Humanitarianism") (SETF (SLOT-VALUE ISSUE.1256 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.1256 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.1256 'POLARITY) "Support providing assistance for basic human needs") (SETF (SLOT-VALUE ISSUE.1256 'ENGLISH) "providing assistance for basic human needs") (SETF (SLOT-VALUE ISSUE.1256 'ENGLISH-SHORT) "humanitarianism") (SETF (SLOT-VALUE ISSUE.1256 'PRO-STANCES) (LIST (INIT-STANCE '(VALUES PRO B HUMANITARIANISM ISSUE)) (INIT-STANCE '(COMPASSION PRO A HUMANITARIANISM ISSUE)) (INIT-STANCE '(FAIRNESS PRO B HUMANITARIANISM ISSUE)) (INIT-STANCE '(IDEALISM PRO B HUMANITARIANISM ISSUE)) (INIT-STANCE '(PEACE PRO B HUMANITARIANISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.1256 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B HUMANITARIANISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.1256 'NORM) (INIT-STANCE '(HUMANITARIANISM PRO B ISSUE.1256 ISSUE))) (SETF (SLOT-VALUE ISSUE.1256 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1256 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1256 'SYMBOL) 'ISSUE.1256))
(INSERT-ITEM ISSUE ISSUE.1256)
(DEFVAR ISSUE.1065)
(PROG1 (SETF ISSUE.1065 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1065 'NAME) "Hunger") (SETF (SLOT-VALUE ISSUE.1065 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.1065 'POLARITY) "provide aid to fight hunger") (SETF (SLOT-VALUE ISSUE.1065 'ENGLISH) "efforts to rid the world of hunger") (SETF (SLOT-VALUE ISSUE.1065 'ENGLISH-SHORT) "hunger relief") (SETF (SLOT-VALUE ISSUE.1065 'PRO-STANCES) (LIST (INIT-STANCE '(HUMANITARIANISM PRO B HUNGER ISSUE)) (INIT-STANCE '(VALUES PRO B HUNGER ISSUE)) (INIT-STANCE '(COMPASSION PRO B HUNGER ISSUE)) (INIT-STANCE '(HEALTH PRO B HUNGER ISSUE)))) (SETF (SLOT-VALUE ISSUE.1065 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO C HUNGER ISSUE)))) (SETF (SLOT-VALUE ISSUE.1065 'NORM) (INIT-STANCE '(HUNGER PRO B ISSUE.1065 ISSUE))) (SETF (SLOT-VALUE ISSUE.1065 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1065 'DATE-OPEN) (LIST->DATE '(8 21 1989))) (SETF (SLOT-VALUE ISSUE.1065 'SYMBOL) 'ISSUE.1065))
(INSERT-ITEM ISSUE ISSUE.1065)
(DEFVAR ISSUE.27)
(PROG1 (SETF ISSUE.27 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.27 'NAME) "Idealism") (SETF (SLOT-VALUE ISSUE.27 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.27 'POLARITY) "Support idealism in decision making") (SETF (SLOT-VALUE ISSUE.27 'ENGLISH) "idealism in public policy") (SETF (SLOT-VALUE ISSUE.27 'ENGLISH-SHORT) "idealism") (SETF (SLOT-VALUE ISSUE.27 'FRENCH) "le ide'alisme") (SETF (SLOT-VALUE ISSUE.27 'PRO-STANCES) (LIST (INIT-STANCE '(HUMANITARIANISM PRO B IDEALISM ISSUE)) (INIT-STANCE '(COMPASSION PRO B IDEALISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.27 'NORM) (INIT-STANCE '(IDEALISM PRO C ISSUE.27 ISSUE))) (SETF (SLOT-VALUE ISSUE.27 'OPPOSITE) 'PRAGMATISM) (SETF (SLOT-VALUE ISSUE.27 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.27 'DATE-OPEN) (LIST->DATE '(3 10 1990))) (SETF (SLOT-VALUE ISSUE.27 'SYMBOL) 'ISSUE.27))
(INSERT-ITEM ISSUE ISSUE.27)
(DEFVAR ISSUE.2408)
(PROG1 (SETF ISSUE.2408 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2408 'NAME) "Immigration Reform") (SETF (SLOT-VALUE ISSUE.2408 'TYPE) 'REFORM) (SETF (SLOT-VALUE ISSUE.2408 'SYNONYMS) (LIST 'IMMIGRATION 'IMMIGRATION-REFORM)) (SETF (SLOT-VALUE ISSUE.2408 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.2408 'POLARITY) "Support federal efforts to reform immigration policy") (SETF (SLOT-VALUE ISSUE.2408 'ENGLISH) "liberalization of immigration policy") (SETF (SLOT-VALUE ISSUE.2408 'ENGLISH-SHORT) "immigration reform") (SETF (SLOT-VALUE ISSUE.2408 'PRO-STANCES) (LIST (INIT-STANCE '(FREEDOM PRO B IMMIGRATION ISSUE)) (INIT-STANCE '(DEREGULATION PRO B IMMIGRATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.2408 'CON-STANCES) (LIST (INIT-STANCE '(JOB-PROTECTION PRO B IMMIGRATION ISSUE)) (INIT-STANCE '(REGULATION PRO B IMMIGRATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.2408 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2408 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE ISSUE.2408 'SYMBOL) 'ISSUE.2408))
(INSERT-ITEM ISSUE ISSUE.2408)
(DEFVAR ISSUE.714)
(PROG1 (SETF ISSUE.714 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.714 'NAME) "Inflation reduction") (SETF (SLOT-VALUE ISSUE.714 'SYNONYMS) (LIST 'INFLATION)) (SETF (SLOT-VALUE ISSUE.714 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.714 'POLARITY) "Support efforts to reduce inflation") (SETF (SLOT-VALUE ISSUE.714 'ENGLISH) "efforts to reduce inflation") (SETF (SLOT-VALUE ISSUE.714 'ENGLISH-SHORT) "fighting inflation") (SETF (SLOT-VALUE ISSUE.714 'PRO-STANCES) (LIST (INIT-STANCE '(SPUR-INVESTMENT PRO B INFLATION ISSUE)) (INIT-STANCE '(PROSPERITY PRO B INFLATION ISSUE)) (INIT-STANCE '(DEFICIT CON C INFLATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.714 'CON-STANCES) (LIST (INIT-STANCE '(JOBS PRO B INFLATION ISSUE)))) (SETF (SLOT-VALUE ISSUE.714 'NORM) (INIT-STANCE '(INFLATION PRO B ISSUE.714 ISSUE))) (SETF (SLOT-VALUE ISSUE.714 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.714 'DATE-OPEN) (LIST->DATE '(11 1 1989))) (SETF (SLOT-VALUE ISSUE.714 'SYMBOL) 'ISSUE.714))
(INSERT-ITEM ISSUE ISSUE.714)
(DEFVAR ISSUE.53)
(PROG1 (SETF ISSUE.53 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.53 'NAME) "Integrity") (SETF (SLOT-VALUE ISSUE.53 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.53 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.53 'POLARITY) "Support integrity in public officials and policies") (SETF (SLOT-VALUE ISSUE.53 'ENGLISH) "integrity in public officials and policies") (SETF (SLOT-VALUE ISSUE.53 'ENGLISH-SHORT) "integrity") (SETF (SLOT-VALUE ISSUE.53 'PRO-STANCES) (LIST (INIT-STANCE '(HONESTY PRO B INTEGRITY ISSUE)) (INIT-STANCE '(FAMILY PRO B INTEGRITY ISSUE)) (INIT-STANCE '(JUSTICE PRO B INTEGRITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.53 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B INTEGRITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.53 'NORM) (INIT-STANCE '(INTEGRITY PRO B ISSUE.53 ISSUE))) (SETF (SLOT-VALUE ISSUE.53 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.53 'DATE-OPEN) (LIST->DATE '(3 18 1990))) (SETF (SLOT-VALUE ISSUE.53 'SYMBOL) 'ISSUE.53))
(INSERT-ITEM ISSUE ISSUE.53)
(DEFVAR ISSUE.2662)
(PROG1 (SETF ISSUE.2662 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2662 'NAME) "Intelligence Operations") (SETF (SLOT-VALUE ISSUE.2662 'SYNONYMS) (LIST 'INTELLIGENCE)) (SETF (SLOT-VALUE ISSUE.2662 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.2662 'POLARITY) "Support government efforts to gather foreign intelligence") (SETF (SLOT-VALUE ISSUE.2662 'ENGLISH) "increased funding for gathering foreign intelligence") (SETF (SLOT-VALUE ISSUE.2662 'ENGLISH-SHORT) "intelligence activities") (SETF (SLOT-VALUE ISSUE.2662 'PRO-STANCES) (LIST (INIT-STANCE '(NATIONAL-SECURITY PRO B INTELLIGENCE ISSUE)) (INIT-STANCE '(ARMS-CONTROL PRO C INTELLIGENCE ISSUE)))) (SETF (SLOT-VALUE ISSUE.2662 'CON-STANCES) (LIST (INIT-STANCE '(PRIVACY PRO C INTELLIGENCE ISSUE)) (INIT-STANCE '(HONESTY PRO C INTELLIGENCE ISSUE)))) (SETF (SLOT-VALUE ISSUE.2662 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2662 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2662 'SYMBOL) 'ISSUE.2662))
(INSERT-ITEM ISSUE ISSUE.2662)
(DEFVAR ISSUE.1440)
(PROG1 (SETF ISSUE.1440 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1440 'NAME) "Isolationism") (SETF (SLOT-VALUE ISSUE.1440 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.1440 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.1440 'POLARITY) "Oppose alliances with foreign powers") (SETF (SLOT-VALUE ISSUE.1440 'ENGLISH) "avoiding alliances with foreign powers") (SETF (SLOT-VALUE ISSUE.1440 'ENGLISH-SHORT) "isolationism") (SETF (SLOT-VALUE ISSUE.1440 'PRO-STANCES) (LIST (INIT-STANCE '(NATIONALISM PRO C ISOLATIONISM ISSUE)) (INIT-STANCE '(DEFENSE CON B ISOLATIONISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.1440 'CON-STANCES) (LIST (INIT-STANCE '(TRADE PRO B ISOLATIONISM ISSUE)) (INIT-STANCE '(PEACE PRO B ISOLATIONISM ISSUE)) (INIT-STANCE '(FOREIGN PRO A ISOLATIONISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.1440 'NORM) (INIT-STANCE '(ISOLATIONISM CON C ISSUE.1440 ISSUE))) (SETF (SLOT-VALUE ISSUE.1440 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1440 'DATE-OPEN) (LIST->DATE '(1 22 1989))) (SETF (SLOT-VALUE ISSUE.1440 'SYMBOL) 'ISSUE.1440))
(INSERT-ITEM ISSUE ISSUE.1440)
(DEFVAR ISSUE.3834)
(PROG1 (SETF ISSUE.3834 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3834 'NAME) "Israel") (SETF (SLOT-VALUE ISSUE.3834 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.3834 'ISA) (LIST 'MID-EAST)) (SETF (SLOT-VALUE ISSUE.3834 'POLARITY) "Support nation of Israel") (SETF (SLOT-VALUE ISSUE.3834 'ENGLISH) "the country of Israel") (SETF (SLOT-VALUE ISSUE.3834 'ENGLISH-SHORT) "Israel") (SETF (SLOT-VALUE ISSUE.3834 'PRO-STANCES) (LIST (INIT-STANCE '(NATIONAL-SECURITY PRO B ISRAEL ISSUE)) (INIT-STANCE '(MID-EAST PRO B ISRAEL ISSUE)) (INIT-STANCE '(BALANCE-OF-POWER PRO B ISRAEL ISSUE)) (INIT-STANCE '(ARAB-ISRAELI-CONFLICT PRO B ISRAEL ISSUE)))) (SETF (SLOT-VALUE ISSUE.3834 'CON-STANCES) (LIST (INIT-STANCE '(PALESTINIAN-HOMELAND PRO B ISRAEL ISSUE)) (INIT-STANCE '(ISOLATIONISM PRO C ISRAEL ISSUE)))) (SETF (SLOT-VALUE ISSUE.3834 'NORM) (INIT-STANCE '(ISRAEL PRO C ISSUE.3834 ISSUE))) (SETF (SLOT-VALUE ISSUE.3834 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3834 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3834 'SYMBOL) 'ISSUE.3834))
(INSERT-ITEM ISSUE ISSUE.3834)
(DEFVAR ISSUE.910)
(PROG1 (SETF ISSUE.910 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.910 'NAME) "Jewish Refusniks / Soviet Jews") (SETF (SLOT-VALUE ISSUE.910 'TYPE) 'GROUP) (SETF (SLOT-VALUE ISSUE.910 'SYNONYMS) (LIST 'SOVIET-JEWS)) (SETF (SLOT-VALUE ISSUE.910 'ISA) (LIST 'HUMAN-RIGHTS)) (SETF (SLOT-VALUE ISSUE.910 'POLARITY) "Support the cause of Soviet Jews seeking freedom") (SETF (SLOT-VALUE ISSUE.910 'ENGLISH) "Jewish refusniks and Soviet Jews") (SETF (SLOT-VALUE ISSUE.910 'ENGLISH-SHORT) "Soviet Jews") (SETF (SLOT-VALUE ISSUE.910 'PRO-STANCES) (LIST (INIT-STANCE '(FREEDOM PRO B SOVIET-JEWS ISSUE)) (INIT-STANCE '(HUMAN-RIGHTS PRO A SOVIET-JEWS ISSUE)) (INIT-STANCE '(RELIGION PRO B SOVIET-JEWS ISSUE)))) (SETF (SLOT-VALUE ISSUE.910 'NORM) (INIT-STANCE '(SOVIET-JEWS PRO C ISSUE.910 ISSUE))) (SETF (SLOT-VALUE ISSUE.910 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.910 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.910 'SYMBOL) 'ISSUE.910))
(INSERT-ITEM ISSUE ISSUE.910)
(DEFVAR ISSUE.44)
(PROG1 (SETF ISSUE.44 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.44 'NAME) "Job Protection") (SETF (SLOT-VALUE ISSUE.44 'TYPE) 'ECONOMIC) (SETF (SLOT-VALUE ISSUE.44 'SYNONYMS) (LIST 'JOB-PROTECTION)) (SETF (SLOT-VALUE ISSUE.44 'POLARITY) "Support efforts to protect domestic jobs") (SETF (SLOT-VALUE ISSUE.44 'ENGLISH) "efforts to protect domestic jobs") (SETF (SLOT-VALUE ISSUE.44 'ENGLISH-SHORT) "job protection") (SETF (SLOT-VALUE ISSUE.44 'PRO-STANCES) (LIST (INIT-STANCE '(JOBS PRO B JOB-PROTECTION ISSUE)) (INIT-STANCE '(LABOR PRO B JOB-PROTECTION ISSUE)) (INIT-STANCE '(BUSINESS PRO B JOB-PROTECTION ISSUE)))) (SETF (SLOT-VALUE ISSUE.44 'CON-STANCES) (LIST (INIT-STANCE '(FREE-MARKET PRO B JOB-PROTECTION ISSUE)))) (SETF (SLOT-VALUE ISSUE.44 'NORM) (INIT-STANCE '(JOB-PROTECTION PRO C ISSUE.44 ISSUE))) (SETF (SLOT-VALUE ISSUE.44 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.44 'DATE-OPEN) (LIST->DATE '(3 17 1990))) (SETF (SLOT-VALUE ISSUE.44 'SYMBOL) 'ISSUE.44))
(INSERT-ITEM ISSUE ISSUE.44)
(DEFVAR ISSUE.3846)
(PROG1 (SETF ISSUE.3846 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3846 'NAME) "Judicial Appointments") (SETF (SLOT-VALUE ISSUE.3846 'SYNONYMS) (LIST 'JUDGESHIP)) (SETF (SLOT-VALUE ISSUE.3846 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3846 'ENGLISH) "the Presidential perogative to appoint judges") (SETF (SLOT-VALUE ISSUE.3846 'ENGLISH-SHORT) "judicial appointments") (SETF (SLOT-VALUE ISSUE.3846 'PRO-STANCES) (LIST (INIT-STANCE '(CONSTITUTION PRO B JUDGESHIP ISSUE)) (INIT-STANCE '(LAW-AND-ORDER PRO C JUDGESHIP ISSUE)))) (SETF (SLOT-VALUE ISSUE.3846 'NORM) (INIT-STANCE '(JUDGESHIP PRO C ISSUE.3846 ISSUE))) (SETF (SLOT-VALUE ISSUE.3846 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3846 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3846 'SYMBOL) 'ISSUE.3846))
(INSERT-ITEM ISSUE ISSUE.3846)
(DEFVAR ISSUE.2658)
(PROG1 (SETF ISSUE.2658 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2658 'NAME) "Justice") (SETF (SLOT-VALUE ISSUE.2658 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.2658 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.2658 'POLARITY) "Support principle of justice and the rule of law") (SETF (SLOT-VALUE ISSUE.2658 'ENGLISH) "justice and the rule of law") (SETF (SLOT-VALUE ISSUE.2658 'ENGLISH-SHORT) "justice") (SETF (SLOT-VALUE ISSUE.2658 'PRO-STANCES) (LIST (INIT-STANCE '(EQUALITY PRO B JUSTICE ISSUE)) (INIT-STANCE '(FAIRNESS PRO B JUSTICE ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B JUSTICE ISSUE)) (INIT-STANCE '(LIBERTY PRO B JUSTICE ISSUE)))) (SETF (SLOT-VALUE ISSUE.2658 'NORM) (INIT-STANCE '(JUSTICE PRO A ISSUE.2658 ISSUE))) (SETF (SLOT-VALUE ISSUE.2658 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2658 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2658 'SYMBOL) 'ISSUE.2658))
(INSERT-ITEM ISSUE ISSUE.2658)
(DEFVAR ISSUE.3844)
(PROG1 (SETF ISSUE.3844 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3844 'NAME) "Labor Issues") (SETF (SLOT-VALUE ISSUE.3844 'TYPE) 'GROUP) (SETF (SLOT-VALUE ISSUE.3844 'SYNONYMS) (LIST 'LABOR)) (SETF (SLOT-VALUE ISSUE.3844 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3844 'POLARITY) "Support issues beneficial to working people") (SETF (SLOT-VALUE ISSUE.3844 'ENGLISH) "organized labor and working people") (SETF (SLOT-VALUE ISSUE.3844 'PRO-ENGLISH) "decent working people") (SETF (SLOT-VALUE ISSUE.3844 'CON-ENGLISH) "big labor bosses") (SETF (SLOT-VALUE ISSUE.3844 'PRO-STANCES) (LIST (INIT-STANCE '(JOBS PRO B LABOR ISSUE)) (INIT-STANCE '(PROSPERITY PRO B LABOR ISSUE)) (INIT-STANCE '(FAIRNESS PRO B LABOR ISSUE)))) (SETF (SLOT-VALUE ISSUE.3844 'CON-STANCES) (LIST (INIT-STANCE '(BUSINESS PRO B LABOR ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B LABOR ISSUE)))) (SETF (SLOT-VALUE ISSUE.3844 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3844 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3844 'SYMBOL) 'ISSUE.3844))
(INSERT-ITEM ISSUE ISSUE.3844)
(DEFVAR ISSUE.889)
(PROG1 (SETF ISSUE.889 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.889 'NAME) "Latin America") (SETF (SLOT-VALUE ISSUE.889 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.889 'SYNONYMS) (LIST 'LATIN-AMERICA)) (SETF (SLOT-VALUE ISSUE.889 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.889 'ENGLISH) "Latin American countries") (SETF (SLOT-VALUE ISSUE.889 'ENGLISH-SHORT) "Latin America") (SETF (SLOT-VALUE ISSUE.889 'PRO-STANCES) (LIST (INIT-STANCE '(CENTRAL-AMERICA PRO B LATIN-AMERICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.889 'CON-STANCES) (LIST (INIT-STANCE '(ISOLATIONISM PRO B LATIN-AMERICA ISSUE)))) (SETF (SLOT-VALUE ISSUE.889 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.889 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.889 'SYMBOL) 'ISSUE.889))
(INSERT-ITEM ISSUE ISSUE.889)
(DEFVAR ISSUE.3855)
(PROG1 (SETF ISSUE.3855 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3855 'NAME) "Law and Order") (SETF (SLOT-VALUE ISSUE.3855 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.3855 'SYNONYMS) (LIST 'LAW-AND-ORDER 'LAW-ENFORCEMENT 'CRIME)) (SETF (SLOT-VALUE ISSUE.3855 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3855 'POLARITY) "Support federal efforts to fight crime") (SETF (SLOT-VALUE ISSUE.3855 'ENGLISH) "law and order in society") (SETF (SLOT-VALUE ISSUE.3855 'ENGLISH-SHORT) "law and order") (SETF (SLOT-VALUE ISSUE.3855 'PRO-STANCES) (LIST (INIT-STANCE '(RETRIBUTION PRO B LAW-AND-ORDER ISSUE)) (INIT-STANCE '(JUSTICE PRO B LAW-AND-ORDER ISSUE)))) (SETF (SLOT-VALUE ISSUE.3855 'NORM) (INIT-STANCE '(LAW-AND-ORDER PRO B ISSUE.3855 ISSUE))) (SETF (SLOT-VALUE ISSUE.3855 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3855 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3855 'SYMBOL) 'ISSUE.3855))
(INSERT-ITEM ISSUE ISSUE.3855)
(DEFVAR ISSUE.3065)
(PROG1 (SETF ISSUE.3065 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3065 'NAME) "Legal Services") (SETF (SLOT-VALUE ISSUE.3065 'TYPE) 'PROGRAM) (SETF (SLOT-VALUE ISSUE.3065 'SYNONYMS) (LIST 'LEGAL-SERVICES)) (SETF (SLOT-VALUE ISSUE.3065 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3065 'POLARITY) "Support Legal Services Corporation") (SETF (SLOT-VALUE ISSUE.3065 'ENGLISH) "federal funding of legal services for the needy") (SETF (SLOT-VALUE ISSUE.3065 'PRO-STANCES) (LIST (INIT-STANCE '(JUSTICE PRO B LEGAL-SERVICES ISSUE)) (INIT-STANCE '(FAIRNESS PRO B LEGAL-SERVICES ISSUE)) (INIT-STANCE '(POVERTY PRO B LEGAL-SERVICES ISSUE)) (INIT-STANCE '(HOUSING PRO B LEGAL-SERVICES ISSUE)) (INIT-STANCE '(HOMELESS PRO C LEGAL-SERVICES ISSUE)) (INIT-STANCE '(HUMANITARIANISM PRO B LEGAL-SERVICES ISSUE)))) (SETF (SLOT-VALUE ISSUE.3065 'CON-STANCES) (LIST (INIT-STANCE '(BUSINESS PRO C LEGAL-SERVICES ISSUE)) (INIT-STANCE '(FREE-MARKET PRO C LEGAL-SERVICES ISSUE)) (INIT-STANCE '(DEFICIT CON C LEGAL-SERVICES ISSUE)))) (SETF (SLOT-VALUE ISSUE.3065 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3065 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE ISSUE.3065 'SYMBOL) 'ISSUE.3065))
(INSERT-ITEM ISSUE ISSUE.3065)
(DEFVAR ISSUE.3838)
(PROG1 (SETF ISSUE.3838 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3838 'NAME) "Limited Judicial Review of Veterans Compensation Cases") (SETF (SLOT-VALUE ISSUE.3838 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.3838 'SYNONYMS) (LIST 'VETERANS-JUDICIAL-REVIEW)) (SETF (SLOT-VALUE ISSUE.3838 'ISA) (LIST 'VETERANS)) (SETF (SLOT-VALUE ISSUE.3838 'ENGLISH) "limited judicial review of veterans compensation cases") (SETF (SLOT-VALUE ISSUE.3838 'PRO-STANCES) (LIST (INIT-STANCE '(VETERANS PRO B VETERANS-JUDICIAL-REVIEW ISSUE)))) (SETF (SLOT-VALUE ISSUE.3838 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO B VETERANS-JUDICIAL-REVIEW ISSUE)))) (SETF (SLOT-VALUE ISSUE.3838 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3838 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3838 'SYMBOL) 'ISSUE.3838))
(INSERT-ITEM ISSUE ISSUE.3838)
(DEFVAR ISSUE.833)
(PROG1 (SETF ISSUE.833 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.833 'NAME) "MIAs") (SETF (SLOT-VALUE ISSUE.833 'ISA) (LIST 'VETERANS)) (SETF (SLOT-VALUE ISSUE.833 'POLARITY) "Support efforts to locate Vietnam MIAs") (SETF (SLOT-VALUE ISSUE.833 'ENGLISH) "efforts to locate Vietnam MIAs") (SETF (SLOT-VALUE ISSUE.833 'ENGLISH-SHORT) "locating MIAs") (SETF (SLOT-VALUE ISSUE.833 'PRO-STANCES) (LIST (INIT-STANCE '(COMPASSION PRO B MIAS ISSUE)) (INIT-STANCE '(PATRIOTISM PRO B MIAS ISSUE)))) (SETF (SLOT-VALUE ISSUE.833 'NORM) (INIT-STANCE '(MIAS PRO C ISSUE.833 ISSUE))) (SETF (SLOT-VALUE ISSUE.833 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.833 'DATE-OPEN) (LIST->DATE '(4 14 1989))) (SETF (SLOT-VALUE ISSUE.833 'SYMBOL) 'ISSUE.833))
(INSERT-ITEM ISSUE ISSUE.833)
(DEFVAR ISSUE.895)
(PROG1 (SETF ISSUE.895 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.895 'NAME) "MX Missiles") (SETF (SLOT-VALUE ISSUE.895 'SYNONYMS) (LIST 'MX 'MX-MISSILE)) (SETF (SLOT-VALUE ISSUE.895 'ISA) (LIST 'NUCLEAR-WEAPON)) (SETF (SLOT-VALUE ISSUE.895 'POLARITY) "Support building of MX missiles") (SETF (SLOT-VALUE ISSUE.895 'ENGLISH) "building the MX missile") (SETF (SLOT-VALUE ISSUE.895 'ENGLISH-SHORT) "the MX") (SETF (SLOT-VALUE ISSUE.895 'PRO-STANCES) (LIST (INIT-STANCE '(DEFENSE PRO B MX ISSUE)) (INIT-STANCE '(NUCLEAR-WEAPON PRO B MX ISSUE)))) (SETF (SLOT-VALUE ISSUE.895 'CON-STANCES) (LIST (INIT-STANCE '(PEACE PRO B MX ISSUE)) (INIT-STANCE '(DEFICIT CON B MX ISSUE)))) (SETF (SLOT-VALUE ISSUE.895 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.895 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.895 'SYMBOL) 'ISSUE.895) (SETF (SLOT-VALUE ISSUE.895 'REMARKS) (LIST "10 warheads")) (SETF (SLOT-VALUE ISSUE.895 'KEYWORDS) (LIST 'LAND-BASED)))
(INSERT-ITEM ISSUE ISSUE.895)
(DEFVAR ISSUE.3848)
(PROG1 (SETF ISSUE.3848 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3848 'NAME) "Manion Appointment") (SETF (SLOT-VALUE ISSUE.3848 'TYPE) 'NOMINATION) (SETF (SLOT-VALUE ISSUE.3848 'SYNONYMS) (LIST 'MANION)) (SETF (SLOT-VALUE ISSUE.3848 'ISA) (LIST 'JUDGESHIP)) (SETF (SLOT-VALUE ISSUE.3848 'POLARITY) "Support judicial nomination of Manion") (SETF (SLOT-VALUE ISSUE.3848 'ENGLISH) "Dan Manion") (SETF (SLOT-VALUE ISSUE.3848 'ENGLISH-SHORT) "the Manion appointment") (SETF (SLOT-VALUE ISSUE.3848 'PRO-STANCES) (LIST (INIT-STANCE '(JUDGESHIP PRO B MANION ISSUE)) (INIT-STANCE '(REAGAN PRO B MANION ISSUE)))) (SETF (SLOT-VALUE ISSUE.3848 'CON-STANCES) (LIST (INIT-STANCE '(CIVIL-RIGHTS PRO B MANION ISSUE)))) (SETF (SLOT-VALUE ISSUE.3848 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3848 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3848 'SYMBOL) 'ISSUE.3848))
(INSERT-ITEM ISSUE ISSUE.3848)
(DEFVAR ISSUE.719)
(PROG1 (SETF ISSUE.719 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.719 'NAME) "Medicare and Medicaid") (SETF (SLOT-VALUE ISSUE.719 'SYNONYMS) (LIST 'MEDICARE 'MEDICAID)) (SETF (SLOT-VALUE ISSUE.719 'ISA) (LIST 'HEALTH)) (SETF (SLOT-VALUE ISSUE.719 'POLARITY) "Support the Medicare and Medicaid programs") (SETF (SLOT-VALUE ISSUE.719 'ENGLISH) "funding Medicare and Medicaid") (SETF (SLOT-VALUE ISSUE.719 'ENGLISH-SHORT) "Medicare and Medicaid") (SETF (SLOT-VALUE ISSUE.719 'PRO-STANCES) (LIST (INIT-STANCE '(HEALTH PRO B MEDICARE ISSUE)) (INIT-STANCE '(ELDERLY PRO B MEDICARE ISSUE)) (INIT-STANCE '(POVERTY PRO B MEDICARE ISSUE)) (INIT-STANCE '(FAIRNESS PRO B MEDICARE ISSUE)))) (SETF (SLOT-VALUE ISSUE.719 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B MEDICARE ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B MEDICARE ISSUE)))) (SETF (SLOT-VALUE ISSUE.719 'NORM) (INIT-STANCE '(MEDICARE PRO B ISSUE.719 ISSUE))) (SETF (SLOT-VALUE ISSUE.719 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.719 'DATE-OPEN) (LIST->DATE '(11 2 1989))) (SETF (SLOT-VALUE ISSUE.719 'SYMBOL) 'ISSUE.719))
(INSERT-ITEM ISSUE ISSUE.719)
(DEFVAR ISSUE.3051)
(PROG1 (SETF ISSUE.3051 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3051 'NAME) "Mexico") (SETF (SLOT-VALUE ISSUE.3051 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.3051 'ISA) (LIST 'LATIN-AMERICA)) (SETF (SLOT-VALUE ISSUE.3051 'ENGLISH) "the country of Mexico") (SETF (SLOT-VALUE ISSUE.3051 'ENGLISH-SHORT) "Mexico") (SETF (SLOT-VALUE ISSUE.3051 'PRO-STANCES) (LIST (INIT-STANCE '(CENTRAL-AMERICA PRO B MEXICO ISSUE)) (INIT-STANCE '(DRUG-ENFORCEMENT PRO B MEXICO ISSUE)) (INIT-STANCE '(THIRD-WORLD-DEBT PRO B MEXICO ISSUE)))) (SETF (SLOT-VALUE ISSUE.3051 'NORM) (INIT-STANCE '(MEXICO PRO C ISSUE.3051 ISSUE))) (SETF (SLOT-VALUE ISSUE.3051 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3051 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE ISSUE.3051 'SYMBOL) 'ISSUE.3051))
(INSERT-ITEM ISSUE ISSUE.3051)
(DEFVAR ISSUE.892)
(PROG1 (SETF ISSUE.892 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.892 'NAME) "Middle East") (SETF (SLOT-VALUE ISSUE.892 'SYNONYMS) (LIST 'MID-EAST 'MIDDLE-EAST)) (SETF (SLOT-VALUE ISSUE.892 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.892 'POLARITY) "Support a long-term resolution of tensions in the Middle East") (SETF (SLOT-VALUE ISSUE.892 'ENGLISH) "a long-term resolution of tensions in the Middle East") (SETF (SLOT-VALUE ISSUE.892 'ENGLISH-SHORT) "reduced Middle East tensions") (SETF (SLOT-VALUE ISSUE.892 'PRO-STANCES) (LIST (INIT-STANCE '(PEACE PRO B MID-EAST ISSUE)) (INIT-STANCE '(ISRAEL PRO B MID-EAST ISSUE)))) (SETF (SLOT-VALUE ISSUE.892 'NORM) (INIT-STANCE '(MID-EAST PRO B ISSUE.892 ISSUE))) (SETF (SLOT-VALUE ISSUE.892 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.892 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.892 'SYMBOL) 'ISSUE.892))
(INSERT-ITEM ISSUE ISSUE.892)
(DEFVAR ISSUE.899)
(PROG1 (SETF ISSUE.899 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.899 'NAME) "Midgetman Missile") (SETF (SLOT-VALUE ISSUE.899 'SYNONYMS) (LIST 'MIDGETMAN)) (SETF (SLOT-VALUE ISSUE.899 'ISA) (LIST 'NUCLEAR-WEAPON)) (SETF (SLOT-VALUE ISSUE.899 'POLARITY) "Support building midgetman missile") (SETF (SLOT-VALUE ISSUE.899 'ENGLISH) "building the Midgetman missile") (SETF (SLOT-VALUE ISSUE.899 'ENGLISH-SHORT) "the Midgetman") (SETF (SLOT-VALUE ISSUE.899 'PRO-STANCES) (LIST (INIT-STANCE '(NUCLEAR-WEAPON PRO B MIDGETMAN ISSUE)) (INIT-STANCE '(NATIONAL-SECURITY PRO B MIDGETMAN ISSUE)) (INIT-STANCE '(DEFENSE PRO B MIDGETMAN ISSUE)))) (SETF (SLOT-VALUE ISSUE.899 'CON-STANCES) (LIST (INIT-STANCE '(PEACE PRO B MIDGETMAN ISSUE)) (INIT-STANCE '(DEFICIT CON B MIDGETMAN ISSUE)))) (SETF (SLOT-VALUE ISSUE.899 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.899 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.899 'SYMBOL) 'ISSUE.899) (SETF (SLOT-VALUE ISSUE.899 'REMARKS) (LIST "Single warhead")) (SETF (SLOT-VALUE ISSUE.899 'KEYWORDS) (LIST 'LAND-BASED)))
(INSERT-ITEM ISSUE ISSUE.899)
(DEFVAR ISSUE.1262)
(PROG1 (SETF ISSUE.1262 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1262 'NAME) "Military Procurement") (SETF (SLOT-VALUE ISSUE.1262 'SYNONYMS) (LIST 'MILITARY-PROCUREMENT)) (SETF (SLOT-VALUE ISSUE.1262 'ISA) (LIST 'DEFENSE)) (SETF (SLOT-VALUE ISSUE.1262 'POLARITY) "Support reform of military procurement") (SETF (SLOT-VALUE ISSUE.1262 'ENGLISH) "reform of military procurement procedures") (SETF (SLOT-VALUE ISSUE.1262 'ENGLISH-SHORT) "military procurement reform") (SETF (SLOT-VALUE ISSUE.1262 'PRO-ENGLISH) "the long-overdue reform of wasteful military procurement procedures") (SETF (SLOT-VALUE ISSUE.1262 'PRO-STANCES) (LIST (INIT-STANCE '(WASTE PRO B MILITARY-PROCUREMENT ISSUE)) (INIT-STANCE '(DEFICIT CON B MILITARY-PROCUREMENT ISSUE)) (INIT-STANCE '(DEFENSE PRO B MILITARY-PROCUREMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.1262 'NORM) (INIT-STANCE '(MILITARY-PROCUREMENT PRO C ISSUE.1262 ISSUE))) (SETF (SLOT-VALUE ISSUE.1262 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1262 'DATE-OPEN) (LIST->DATE '(11 1 1989))) (SETF (SLOT-VALUE ISSUE.1262 'SYMBOL) 'ISSUE.1262))
(INSERT-ITEM ISSUE ISSUE.1262)
(DEFVAR ISSUE.1258)
(PROG1 (SETF ISSUE.1258 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1258 'NAME) "Military Solution") (SETF (SLOT-VALUE ISSUE.1258 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.1258 'SYNONYMS) (LIST 'MILITARY-SOLUTION)) (SETF (SLOT-VALUE ISSUE.1258 'ISA) (LIST 'DEFENSE)) (SETF (SLOT-VALUE ISSUE.1258 'POLARITY) "Support a military solution") (SETF (SLOT-VALUE ISSUE.1258 'ENGLISH) "resorting to a military solution to foreign policy") (SETF (SLOT-VALUE ISSUE.1258 'ENGLISH-SHORT) "rampant militarism") (SETF (SLOT-VALUE ISSUE.1258 'PRO-ENGLISH) "prudent use of military options") (SETF (SLOT-VALUE ISSUE.1258 'CON-ENGLISH) "irresponsible military actions and bloodshed") (SETF (SLOT-VALUE ISSUE.1258 'CON-STANCES) (LIST (INIT-STANCE '(PEACE PRO C MILITARY-SOLUTION ISSUE)))) (SETF (SLOT-VALUE ISSUE.1258 'NORM) (INIT-STANCE '(MILITARY-SOLUTION CON C ISSUE.1258 ISSUE))) (SETF (SLOT-VALUE ISSUE.1258 'OPPOSITE) 'NON-INVOLVEMENT) (SETF (SLOT-VALUE ISSUE.1258 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1258 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1258 'SYMBOL) 'ISSUE.1258))
(INSERT-ITEM ISSUE ISSUE.1258)
(DEFVAR ISSUE.1174)
(PROG1 (SETF ISSUE.1174 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1174 'NAME) "Minimum wage") (SETF (SLOT-VALUE ISSUE.1174 'SYNONYMS) (LIST 'MINIMUM-WAGE)) (SETF (SLOT-VALUE ISSUE.1174 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.1174 'POLARITY) "Support the minimum wage") (SETF (SLOT-VALUE ISSUE.1174 'ENGLISH) "increasing the minimum wage") (SETF (SLOT-VALUE ISSUE.1174 'ENGLISH-SHORT) "the minimum wage") (SETF (SLOT-VALUE ISSUE.1174 'PRO-STANCES) (LIST (INIT-STANCE '(COMPASSION PRO C MINIMUM-WAGE ISSUE)) (INIT-STANCE '(FAIRNESS PRO C MINIMUM-WAGE ISSUE)) (INIT-STANCE '(POVERTY PRO C MINIMUM-WAGE ISSUE)))) (SETF (SLOT-VALUE ISSUE.1174 'CON-STANCES) (LIST (INIT-STANCE '(BUSINESS PRO C MINIMUM-WAGE ISSUE)) (INIT-STANCE '(UNEMPLOYMENT PRO C MINIMUM-WAGE ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO C MINIMUM-WAGE ISSUE)))) (SETF (SLOT-VALUE ISSUE.1174 'NORM) (INIT-STANCE '(MINIMUM-WAGE PRO C ISSUE.1174 ISSUE))) (SETF (SLOT-VALUE ISSUE.1174 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1174 'DATE-OPEN) (LIST->DATE '(11 2 1989))) (SETF (SLOT-VALUE ISSUE.1174 'SYMBOL) 'ISSUE.1174))
(INSERT-ITEM ISSUE ISSUE.1174)
(DEFVAR ISSUE.331)
(PROG1 (SETF ISSUE.331 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.331 'NAME) "National Security") (SETF (SLOT-VALUE ISSUE.331 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.331 'SYNONYMS) (LIST 'NATIONAL-SECURITY 'SECURITY)) (SETF (SLOT-VALUE ISSUE.331 'POLARITY) "Support efforts to protect national security") (SETF (SLOT-VALUE ISSUE.331 'ENGLISH) "national security") (SETF (SLOT-VALUE ISSUE.331 'PRO-STANCES) (LIST (INIT-STANCE '(NATIONALISM PRO B NATIONAL-SECURITY ISSUE)) (INIT-STANCE '(PATRIOTISM PRO B NATIONAL-SECURITY ISSUE)) (INIT-STANCE '(FREEDOM PRO B NATIONAL-SECURITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.331 'NORM) (INIT-STANCE '(NATIONAL-SECURITY PRO B ISSUE.331 ISSUE))) (SETF (SLOT-VALUE ISSUE.331 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.331 'DATE-OPEN) (LIST->DATE '(3 8 1990))) (SETF (SLOT-VALUE ISSUE.331 'SYMBOL) 'ISSUE.331))
(INSERT-ITEM ISSUE ISSUE.331)
(DEFVAR ISSUE.725)
(PROG1 (SETF ISSUE.725 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.725 'NAME) "National autonomy") (SETF (SLOT-VALUE ISSUE.725 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.725 'SYNONYMS) (LIST 'NATIONAL-AUTONOMY)) (SETF (SLOT-VALUE ISSUE.725 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.725 'POLARITY) "Support principle of national autonomy") (SETF (SLOT-VALUE ISSUE.725 'ENGLISH) "a nation's right to self-determination") (SETF (SLOT-VALUE ISSUE.725 'ENGLISH-SHORT) "national autonomy") (SETF (SLOT-VALUE ISSUE.725 'PRO-STANCES) (LIST (INIT-STANCE '(DEMOCRACY PRO B NATIONAL-AUTONOMY ISSUE)) (INIT-STANCE '(VALUES PRO B NATIONAL-AUTONOMY ISSUE)))) (SETF (SLOT-VALUE ISSUE.725 'NORM) (INIT-STANCE '(NATIONAL-AUTONOMY PRO C ISSUE.725 ISSUE))) (SETF (SLOT-VALUE ISSUE.725 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.725 'DATE-OPEN) (LIST->DATE '(11 2 1989))) (SETF (SLOT-VALUE ISSUE.725 'SYMBOL) 'ISSUE.725))
(INSERT-ITEM ISSUE ISSUE.725)
(DEFVAR ISSUE.1266)
(PROG1 (SETF ISSUE.1266 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1266 'NAME) "Nationalism") (SETF (SLOT-VALUE ISSUE.1266 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.1266 'ISA) (LIST 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1266 'POLARITY) "Support loyalty to one's country") (SETF (SLOT-VALUE ISSUE.1266 'ENGLISH) "loyalty to one's country") (SETF (SLOT-VALUE ISSUE.1266 'ENGLISH-SHORT) "this country") (SETF (SLOT-VALUE ISSUE.1266 'PRO-STANCES) (LIST (INIT-STANCE '(PATRIOTISM PRO B NATIONALISM ISSUE)) (INIT-STANCE '(FREEDOM PRO B NATIONALISM ISSUE)))) (SETF (SLOT-VALUE ISSUE.1266 'NORM) (INIT-STANCE '(NATIONALISM PRO B ISSUE.1266 ISSUE))) (SETF (SLOT-VALUE ISSUE.1266 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1266 'DATE-OPEN) (LIST->DATE '(11 1 1989))) (SETF (SLOT-VALUE ISSUE.1266 'SYMBOL) 'ISSUE.1266))
(INSERT-ITEM ISSUE ISSUE.1266)
(DEFVAR ISSUE.3830)
(PROG1 (SETF ISSUE.3830 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3830 'NAME) "Nicaragua") (SETF (SLOT-VALUE ISSUE.3830 'TYPE) 'FOREIGN) (SETF (SLOT-VALUE ISSUE.3830 'ISA) (LIST 'CENTRAL-AMERICA)) (SETF (SLOT-VALUE ISSUE.3830 'ENGLISH) "the country of Nicaragua") (SETF (SLOT-VALUE ISSUE.3830 'ENGLISH-SHORT) "Nicaragua") (SETF (SLOT-VALUE ISSUE.3830 'PRO-STANCES) (LIST (INIT-STANCE '(CENTRAL-AMERICA PRO B NICARAGUA ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B NICARAGUA ISSUE)))) (SETF (SLOT-VALUE ISSUE.3830 'CON-STANCES) (LIST (INIT-STANCE '(COMMUNISM PRO B NICARAGUA ISSUE)))) (SETF (SLOT-VALUE ISSUE.3830 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3830 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3830 'SYMBOL) 'ISSUE.3830))
(INSERT-ITEM ISSUE ISSUE.3830)
(DEFVAR ISSUE.1255)
(PROG1 (SETF ISSUE.1255 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1255 'NAME) "Non-involvement") (SETF (SLOT-VALUE ISSUE.1255 'TYPE) 'POLICY) (SETF (SLOT-VALUE ISSUE.1255 'ISA) (LIST 'POLICY)) (SETF (SLOT-VALUE ISSUE.1255 'POLARITY) "Support avoidance of military commitments") (SETF (SLOT-VALUE ISSUE.1255 'ENGLISH) "avoidance of military commitments") (SETF (SLOT-VALUE ISSUE.1255 'ENGLISH-SHORT) "military non-involvement") (SETF (SLOT-VALUE ISSUE.1255 'CON-ENGLISH) "backing away from a good fight") (SETF (SLOT-VALUE ISSUE.1255 'PRO-STANCES) (LIST (INIT-STANCE '(PEACE PRO B NON-INVOLVEMENT ISSUE)) (INIT-STANCE '(DEFENSE CON B NON-INVOLVEMENT ISSUE)) (INIT-STANCE '(DEFICIT CON B NON-INVOLVEMENT ISSUE)) (INIT-STANCE '(DIPLOMACY PRO B NON-INVOLVEMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.1255 'CON-STANCES) (LIST (INIT-STANCE '(COMMUNISM PRO B NON-INVOLVEMENT ISSUE)) (INIT-STANCE '(DEFENSE PRO C NON-INVOLVEMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.1255 'NORM) (INIT-STANCE '(NON-INVOLVEMENT PRO C ISSUE.1255 ISSUE))) (SETF (SLOT-VALUE ISSUE.1255 'OPPOSITE) 'MILITARY-SOLUTION) (SETF (SLOT-VALUE ISSUE.1255 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1255 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1255 'SYMBOL) 'ISSUE.1255))
(INSERT-ITEM ISSUE ISSUE.1255)

(DEFVAR ISSUE.885)