;; Macintosh HD:lisp:db:data:issue2 
(DEFVAR ISSUE.2401)
(PROG1 (SETF ISSUE.2401 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2401 'NAME) "Environmental Protection") (SETF (SLOT-VALUE ISSUE.2401 'SYNONYMS) (LIST 'ENVIRONMENT 'ECOLOGY 'CONSERVATION)) (SETF (SLOT-VALUE ISSUE.2401 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.2401 'POLARITY) "Support federal efforts to protect natural resources") (SETF (SLOT-VALUE ISSUE.2401 'ENGLISH) "efforts to protect and preserve natural resources") (SETF (SLOT-VALUE ISSUE.2401 'ENGLISH-SHORT) "environmental protection") (SETF (SLOT-VALUE ISSUE.2401 'PRO-STANCES) (LIST (INIT-STANCE '(IDEALISM PRO B ENVIRONMENT ISSUE)) (INIT-STANCE '(RESPONSIBILITY PRO B ENVIRONMENT ISSUE)) (INIT-STANCE '(FUTURE PRO B ENVIRONMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.2401 'CON-STANCES) (LIST (INIT-STANCE '(DEREGULATION PRO C ENVIRONMENT ISSUE)) (INIT-STANCE '(SPENDING CON C ENVIRONMENT ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B ENVIRONMENT ISSUE)) (INIT-STANCE '(DEFICIT CON B ENVIRONMENT ISSUE)))) (SETF (SLOT-VALUE ISSUE.2401 'NORM) (INIT-STANCE '(ENVIRONMENT PRO C ISSUE.2401 ISSUE))) (SETF (SLOT-VALUE ISSUE.2401 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2401 'DATE-OPEN) (LIST->DATE '(9 1 1988))) (SETF (SLOT-VALUE ISSUE.2401 'SYMBOL) 'ISSUE.2401))
(INSERT-ITEM ISSUE ISSUE.2401)
(DEFVAR ISSUE.3824)
(PROG1 (SETF ISSUE.3824 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3824 'NAME) "Equal Rights Amendment") (SETF (SLOT-VALUE ISSUE.3824 'TYPE) 'PROPOSAL) (SETF (SLOT-VALUE ISSUE.3824 'SYNONYMS) (LIST 'ERA)) (SETF (SLOT-VALUE ISSUE.3824 'ISA) (LIST 'WOMENS-RIGHTS)) (SETF (SLOT-VALUE ISSUE.3824 'POLARITY) "Support Equal Rights Amendment") (SETF (SLOT-VALUE ISSUE.3824 'ENGLISH) "an Equal Rights Amendment to the Constitution") (SETF (SLOT-VALUE ISSUE.3824 'ENGLISH-SHORT) "the Equal Rights Amendment") (SETF (SLOT-VALUE ISSUE.3824 'PRO-STANCES) (LIST (INIT-STANCE '(WOMENS-RIGHTS PRO A ERA ISSUE)) (INIT-STANCE '(FAIRNESS PRO B ERA ISSUE)) (INIT-STANCE '(EQUALITY PRO B ERA ISSUE)) (INIT-STANCE '(PRIVACY PRO B ERA ISSUE)))) (SETF (SLOT-VALUE ISSUE.3824 'CON-STANCES) (LIST (INIT-STANCE '(REGULATION CON A ERA ISSUE)))) (SETF (SLOT-VALUE ISSUE.3824 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3824 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3824 'SYMBOL) 'ISSUE.3824))
(INSERT-ITEM ISSUE ISSUE.3824)
(DEFVAR ISSUE.2653)
(PROG1 (SETF ISSUE.2653 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2653 'NAME) "Equality") (SETF (SLOT-VALUE ISSUE.2653 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.2653 'SYNONYMS) (LIST 'EQUALITY 'EQUITY)) (SETF (SLOT-VALUE ISSUE.2653 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.2653 'POLARITY) "Support principle of equality under the law") (SETF (SLOT-VALUE ISSUE.2653 'ENGLISH) "equality") (SETF (SLOT-VALUE ISSUE.2653 'PRO-STANCES) (LIST (INIT-STANCE '(FREEDOM PRO B EQUALITY ISSUE)) (INIT-STANCE '(FAIRNESS PRO B EQUALITY ISSUE)) (INIT-STANCE '(VALUES PRO B EQUALITY ISSUE)) (INIT-STANCE '(JUSTICE PRO B EQUALITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.2653 'CON-STANCES) (LIST (INIT-STANCE '(FREE-MARKET PRO B EQUALITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.2653 'NORM) (INIT-STANCE '(EQUALITY PRO B ISSUE.2653 ISSUE))) (SETF (SLOT-VALUE ISSUE.2653 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2653 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2653 'SYMBOL) 'ISSUE.2653))
(INSERT-ITEM ISSUE ISSUE.2653)
(DEFVAR ISSUE.3835)
(PROG1 (SETF ISSUE.3835 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3835 'NAME) "Euromissile Treaty") (SETF (SLOT-VALUE ISSUE.3835 'SYNONYMS) (LIST 'INF-TREATY)) (SETF (SLOT-VALUE ISSUE.3835 'ISA) (LIST 'ARMS-CONTROL)) (SETF (SLOT-VALUE ISSUE.3835 'POLARITY) "Support Euromissile Treaty") (SETF (SLOT-VALUE ISSUE.3835 'ENGLISH) "the Euromissile Treaty") (SETF (SLOT-VALUE ISSUE.3835 'ENGLISH-SHORT) "the INF Treaty") (SETF (SLOT-VALUE ISSUE.3835 'PRO-STANCES) (LIST (INIT-STANCE '(ARMS-CONTROL PRO B INF-TREATY ISSUE)) (INIT-STANCE '(PEACE PRO B INF-TREATY ISSUE)) (INIT-STANCE '(NATO PRO B INF-TREATY ISSUE)))) (SETF (SLOT-VALUE ISSUE.3835 'CON-STANCES) (LIST (INIT-STANCE '(COMMUNISM PRO B INF-TREATY ISSUE)) (INIT-STANCE '(NUCLEAR-WEAPON PRO C INF-TREATY ISSUE)) (INIT-STANCE '(NATIONAL-SECURITY PRO B INF-TREATY ISSUE)))) (SETF (SLOT-VALUE ISSUE.3835 'NORM) (INIT-STANCE '(INF-TREATY PRO C ISSUE.3835 ISSUE))) (SETF (SLOT-VALUE ISSUE.3835 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3835 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3835 'SYMBOL) 'ISSUE.3835))
(INSERT-ITEM ISSUE ISSUE.3835)
(DEFVAR ISSUE.25)
(PROG1 (SETF ISSUE.25 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.25 'NAME) "Fair Trial") (SETF (SLOT-VALUE ISSUE.25 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.25 'SYNONYMS) (LIST 'FAIR-TRIAL 'DUE-PROCESS)) (SETF (SLOT-VALUE ISSUE.25 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.25 'POLARITY) "Support principle of due process and a fair trial") (SETF (SLOT-VALUE ISSUE.25 'ENGLISH) "due process and a fair trial") (SETF (SLOT-VALUE ISSUE.25 'ENGLISH-SHORT) "due process") (SETF (SLOT-VALUE ISSUE.25 'PRO-STANCES) (LIST (INIT-STANCE '(FREEDOM PRO B FAIR-TRIAL ISSUE)) (INIT-STANCE '(DEMOCRACY PRO B FAIR-TRIAL ISSUE)) (INIT-STANCE '(FAIRNESS PRO B FAIR-TRIAL ISSUE)) (INIT-STANCE '(JUSTICE PRO B FAIR-TRIAL ISSUE)))) (SETF (SLOT-VALUE ISSUE.25 'NORM) (INIT-STANCE '(FAIR-TRIAL PRO B ISSUE.25 ISSUE))) (SETF (SLOT-VALUE ISSUE.25 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.25 'DATE-OPEN) (LIST->DATE '(3 10 1990))) (SETF (SLOT-VALUE ISSUE.25 'SYMBOL) 'ISSUE.25))
(INSERT-ITEM ISSUE ISSUE.25)
(DEFVAR ISSUE.967)
(PROG1 (SETF ISSUE.967 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.967 'NAME) "Fairness") (SETF (SLOT-VALUE ISSUE.967 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.967 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.967 'POLARITY) "Support principle of fairness in society") (SETF (SLOT-VALUE ISSUE.967 'ENGLISH) "fairness in society") (SETF (SLOT-VALUE ISSUE.967 'ENGLISH-SHORT) "fairness") (SETF (SLOT-VALUE ISSUE.967 'PRO-STANCES) (LIST (INIT-STANCE '(EQUITY PRO B FAIRNESS ISSUE)) (INIT-STANCE '(VALUES PRO B FAIRNESS ISSUE)) (INIT-STANCE '(COMPASSION PRO B FAIRNESS ISSUE)) (INIT-STANCE '(IDEALISM PRO B FAIRNESS ISSUE)))) (SETF (SLOT-VALUE ISSUE.967 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B FAIRNESS ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B FAIRNESS ISSUE)))) (SETF (SLOT-VALUE ISSUE.967 'NORM) (INIT-STANCE '(FAIRNESS PRO C ISSUE.967 ISSUE))) (SETF (SLOT-VALUE ISSUE.967 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.967 'DATE-OPEN) (LIST->DATE '(4 14 1989))) (SETF (SLOT-VALUE ISSUE.967 'SYMBOL) 'ISSUE.967))
(INSERT-ITEM ISSUE ISSUE.967)
(DEFVAR ISSUE.23)
(PROG1 (SETF ISSUE.23 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.23 'NAME) "Family values") (SETF (SLOT-VALUE ISSUE.23 'TYPE) 'SOCIAL) (SETF (SLOT-VALUE ISSUE.23 'SYNONYMS) (LIST 'FAMILY 'FAMILY-VALUES)) (SETF (SLOT-VALUE ISSUE.23 'ISA) (LIST 'SOCIAL)) (SETF (SLOT-VALUE ISSUE.23 'POLARITY) "Support traditional family values") (SETF (SLOT-VALUE ISSUE.23 'ENGLISH) "traditional family values") (SETF (SLOT-VALUE ISSUE.23 'ENGLISH-SHORT) "family values") (SETF (SLOT-VALUE ISSUE.23 'NUMBER) 'PLUR) (SETF (SLOT-VALUE ISSUE.23 'PRO-STANCES) (LIST (INIT-STANCE '(IDEALISM PRO B FAMILY ISSUE)) (INIT-STANCE '(TRADITION PRO B FAMILY ISSUE)))) (SETF (SLOT-VALUE ISSUE.23 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B FAMILY ISSUE)) (INIT-STANCE '(PROGRESS PRO B FAMILY ISSUE)))) (SETF (SLOT-VALUE ISSUE.23 'NORM) (INIT-STANCE '(FAMILY PRO C ISSUE.23 ISSUE))) (SETF (SLOT-VALUE ISSUE.23 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.23 'DATE-OPEN) (LIST->DATE '(3 10 1990))) (SETF (SLOT-VALUE ISSUE.23 'SYMBOL) 'ISSUE.23))
(INSERT-ITEM ISSUE ISSUE.23)
(DEFVAR ISSUE.1268)
(PROG1 (SETF ISSUE.1268 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1268 'NAME) "Federal programs") (SETF (SLOT-VALUE ISSUE.1268 'TYPE) 'ISSUE) (SETF (SLOT-VALUE ISSUE.1268 'SYNONYMS) (LIST 'FEDERAL-PROGRAMS)) (SETF (SLOT-VALUE ISSUE.1268 'ISA) (LIST 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1268 'POLARITY) "Support federal programs") (SETF (SLOT-VALUE ISSUE.1268 'ENGLISH) "federal programs") (SETF (SLOT-VALUE ISSUE.1268 'PRO-STANCES) (LIST (INIT-STANCE '(EQUALITY PRO B FEDERAL-PROGRAMS ISSUE)) (INIT-STANCE '(FAIRNESS PRO B FEDERAL-PROGRAMS ISSUE)) (INIT-STANCE '(CIVIL-RIGHTS PRO B FEDERAL-PROGRAMS ISSUE)) (INIT-STANCE '(DEFENSE PRO B FEDERAL-PROGRAMS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1268 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B FEDERAL-PROGRAMS ISSUE)) (INIT-STANCE '(DEREGULATION PRO B FEDERAL-PROGRAMS ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B FEDERAL-PROGRAMS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1268 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1268 'DATE-OPEN) (LIST->DATE '(11 1 1989))) (SETF (SLOT-VALUE ISSUE.1268 'SYMBOL) 'ISSUE.1268))
(INSERT-ITEM ISSUE ISSUE.1268)
(DEFVAR ISSUE.435)
(PROG1 (SETF ISSUE.435 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.435 'NAME) "Fiscal responsibility") (SETF (SLOT-VALUE ISSUE.435 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.435 'SYNONYMS) (LIST 'FISCAL-RESPONSIBILITY)) (SETF (SLOT-VALUE ISSUE.435 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.435 'POLARITY) "Support principle of fiscal responsibility") (SETF (SLOT-VALUE ISSUE.435 'ENGLISH) "fiscal responsibility") (SETF (SLOT-VALUE ISSUE.435 'PRO-STANCES) (LIST (INIT-STANCE '(BUSINESS PRO C FISCAL-RESPONSIBILITY ISSUE)) (INIT-STANCE '(BALANCED-BUDGET PRO C FISCAL-RESPONSIBILITY ISSUE)) (INIT-STANCE '(WASTE PRO C FISCAL-RESPONSIBILITY ISSUE)) (INIT-STANCE '(RESPONSIBILITY PRO C FISCAL-RESPONSIBILITY ISSUE)) (INIT-STANCE '(FUTURE PRO B FISCAL-RESPONSIBILITY ISSUE)))) (SETF (SLOT-VALUE ISSUE.435 'NORM) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B ISSUE.435 ISSUE))) (SETF (SLOT-VALUE ISSUE.435 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.435 'DATE-OPEN) (LIST->DATE '(10 19 1989))) (SETF (SLOT-VALUE ISSUE.435 'SYMBOL) 'ISSUE.435))
(INSERT-ITEM ISSUE ISSUE.435)
(DEFVAR ISSUE.1077)
(PROG1 (SETF ISSUE.1077 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1077 'NAME) "Flag Burning") (SETF (SLOT-VALUE ISSUE.1077 'TYPE) 'RIGHT) (SETF (SLOT-VALUE ISSUE.1077 'SYNONYMS) (LIST 'FLAG-BURNING)) (SETF (SLOT-VALUE ISSUE.1077 'ISA) (LIST 'CONSTITUTION)) (SETF (SLOT-VALUE ISSUE.1077 'POLARITY) "Support right to burn American flag in protest.") (SETF (SLOT-VALUE ISSUE.1077 'ENGLISH) "burning the American flag in protest") (SETF (SLOT-VALUE ISSUE.1077 'ENGLISH-SHORT) "flag burning") (SETF (SLOT-VALUE ISSUE.1077 'FRENCH) "bru^ler le drapeau ame'ricain lors de une manifestation") (SETF (SLOT-VALUE ISSUE.1077 'PRO-STANCES) (LIST (INIT-STANCE '(BILL-OF-RIGHTS PRO B FLAG-BURNING ISSUE)))) (SETF (SLOT-VALUE ISSUE.1077 'CON-STANCES) (LIST (INIT-STANCE '(PATRIOTISM PRO B FLAG-BURNING ISSUE)))) (SETF (SLOT-VALUE ISSUE.1077 'NORM) (INIT-STANCE '(FLAG-BURNING CON C ISSUE.1077 ISSUE))) (SETF (SLOT-VALUE ISSUE.1077 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1077 'DATE-OPEN) (LIST->DATE '(7 14 1989))) (SETF (SLOT-VALUE ISSUE.1077 'SYMBOL) 'ISSUE.1077))
(INSERT-ITEM ISSUE ISSUE.1077)
(DEFVAR ISSUE.3217)
(PROG1 (SETF ISSUE.3217 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3217 'NAME) "Food Stamps") (SETF (SLOT-VALUE ISSUE.3217 'SYNONYMS) (LIST 'FOOD-STAMPS)) (SETF (SLOT-VALUE ISSUE.3217 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3217 'POLARITY) "Support federal food stamps program") (SETF (SLOT-VALUE ISSUE.3217 'ENGLISH) "the food stamps program") (SETF (SLOT-VALUE ISSUE.3217 'ENGLISH-SHORT) "food stamps") (SETF (SLOT-VALUE ISSUE.3217 'PRO-ENGLISH) "increased funding for food stamps") (SETF (SLOT-VALUE ISSUE.3217 'PRO-STANCES) (LIST (INIT-STANCE '(POVERTY PRO B FOOD-STAMPS ISSUE)) (INIT-STANCE '(HEALTH PRO C FOOD-STAMPS ISSUE)) (INIT-STANCE '(COMPASSION PRO C FOOD-STAMPS ISSUE)))) (SETF (SLOT-VALUE ISSUE.3217 'CON-STANCES) (LIST (INIT-STANCE '(HARD-WORK PRO B FOOD-STAMPS ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B FOOD-STAMPS ISSUE)) (INIT-STANCE '(FEDERAL-PROGRAMS CON B FOOD-STAMPS ISSUE)))) (SETF (SLOT-VALUE ISSUE.3217 'NORM) (INIT-STANCE '(FOOD-STAMPS PRO C ISSUE.3217 ISSUE))) (SETF (SLOT-VALUE ISSUE.3217 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3217 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE ISSUE.3217 'SYMBOL) 'ISSUE.3217))
(INSERT-ITEM ISSUE ISSUE.3217)
(DEFVAR ISSUE.3826)
(PROG1 (SETF ISSUE.3826 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3826 'NAME) "Foreign Policy") (SETF (SLOT-VALUE ISSUE.3826 'SYNONYMS) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.3826 'ISA) (LIST 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3826 'POLARITY) "Support the nation's foreign policy") (SETF (SLOT-VALUE ISSUE.3826 'ENGLISH) "this nation's foreign policy") (SETF (SLOT-VALUE ISSUE.3826 'ENGLISH-SHORT) "US foreign policy") (SETF (SLOT-VALUE ISSUE.3826 'PRO-STANCES) (LIST (INIT-STANCE '(NATIONAL-SECURITY PRO B FOREIGN ISSUE)) (INIT-STANCE '(AFRICA PRO B FOREIGN ISSUE)) (INIT-STANCE '(ARMS-CONTROL PRO B FOREIGN ISSUE)) (INIT-STANCE '(CENTRAL-AMERICA PRO B FOREIGN ISSUE)) (INIT-STANCE '(EAST-WEST PRO B FOREIGN ISSUE)) (INIT-STANCE '(LATIN-AMERICA PRO B FOREIGN ISSUE)) (INIT-STANCE '(NATO PRO B FOREIGN ISSUE)) (INIT-STANCE '(PERSIAN-GULF PRO B FOREIGN ISSUE)) (INIT-STANCE '(PHILIPPINES PRO B FOREIGN ISSUE)) (INIT-STANCE '(POLAND PRO B FOREIGN ISSUE)) (INIT-STANCE '(SOUTH-AFRICA PRO C FOREIGN ISSUE)) (INIT-STANCE '(HUMAN-RIGHTS PRO C FOREIGN ISSUE)))) (SETF (SLOT-VALUE ISSUE.3826 'CON-STANCES) (LIST (INIT-STANCE '(ISOLATIONISM PRO A FOREIGN ISSUE)))) (SETF (SLOT-VALUE ISSUE.3826 'NORM) (INIT-STANCE '(FOREIGN PRO B ISSUE.3826 ISSUE))) (SETF (SLOT-VALUE ISSUE.3826 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3826 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3826 'SYMBOL) 'ISSUE.3826))
(INSERT-ITEM ISSUE ISSUE.3826)
(DEFVAR ISSUE.884)
(PROG1 (SETF ISSUE.884 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.884 'NAME) "Foreign Relations Organizations") (SETF (SLOT-VALUE ISSUE.884 'TYPE) 'GROUP) (SETF (SLOT-VALUE ISSUE.884 'SYNONYMS) (LIST 'FOREIGN-ORG)) (SETF (SLOT-VALUE ISSUE.884 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.884 'ENGLISH) "multi-lateral international organizations") (SETF (SLOT-VALUE ISSUE.884 'ENGLISH-SHORT) "international organizations") (SETF (SLOT-VALUE ISSUE.884 'PRO-STANCES) (LIST (INIT-STANCE '(PEACE PRO B FOREIGN-ORG ISSUE)) (INIT-STANCE '(TRADE PRO B FOREIGN-ORG ISSUE)) (INIT-STANCE '(NATIONALISM PRO C FOREIGN-ORG ISSUE)))) (SETF (SLOT-VALUE ISSUE.884 'CON-STANCES) (LIST (INIT-STANCE '(ISOLATIONISM PRO B FOREIGN-ORG ISSUE)))) (SETF (SLOT-VALUE ISSUE.884 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.884 'DATE-OPEN) (LIST->DATE '(9 4 1988))) (SETF (SLOT-VALUE ISSUE.884 'SYMBOL) 'ISSUE.884))
(INSERT-ITEM ISSUE ISSUE.884)
(DEFVAR ISSUE.966)
(PROG1 (SETF ISSUE.966 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.966 'NAME) "Free Enterprise") (SETF (SLOT-VALUE ISSUE.966 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.966 'SYNONYMS) (LIST 'FREE-ENTERPRISE 'CAPITALISM 'FREE-MARKET)) (SETF (SLOT-VALUE ISSUE.966 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.966 'POLARITY) "Support free enterprise system") (SETF (SLOT-VALUE ISSUE.966 'ENGLISH) "free enterprise and capitalism") (SETF (SLOT-VALUE ISSUE.966 'PRO-STANCES) (LIST (INIT-STANCE '(PROSPERITY PRO B FREE-ENTERPRISE ISSUE)) (INIT-STANCE '(TRADE PRO C FREE-ENTERPRISE ISSUE)) (INIT-STANCE '(HARD-WORK PRO B FREE-ENTERPRISE ISSUE)) (INIT-STANCE '(FREEDOM PRO B FREE-ENTERPRISE ISSUE)))) (SETF (SLOT-VALUE ISSUE.966 'CON-STANCES) (LIST (INIT-STANCE '(FAIRNESS PRO B FREE-ENTERPRISE ISSUE)) (INIT-STANCE '(EQUALITY PRO B FREE-ENTERPRISE ISSUE)) (INIT-STANCE '(REGULATION PRO B FREE-ENTERPRISE ISSUE)))) (SETF (SLOT-VALUE ISSUE.966 'NORM) (INIT-STANCE '(FREE-ENTERPRISE PRO C ISSUE.966 ISSUE))) (SETF (SLOT-VALUE ISSUE.966 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.966 'DATE-OPEN) (LIST->DATE '(4 14 1989))) (SETF (SLOT-VALUE ISSUE.966 'SYMBOL) 'ISSUE.966))
(INSERT-ITEM ISSUE ISSUE.966)
(DEFVAR ISSUE.3222)
(PROG1 (SETF ISSUE.3222 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3222 'NAME) "Free Trade") (SETF (SLOT-VALUE ISSUE.3222 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.3222 'SYNONYMS) (LIST 'FREE-TRADE)) (SETF (SLOT-VALUE ISSUE.3222 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.3222 'POLARITY) "Support free trade among countries") (SETF (SLOT-VALUE ISSUE.3222 'ENGLISH) "free trade among countries") (SETF (SLOT-VALUE ISSUE.3222 'ENGLISH-SHORT) "free trade") (SETF (SLOT-VALUE ISSUE.3222 'PRO-STANCES) (LIST (INIT-STANCE '(FREE-ENTERPRISE PRO C FREE-TRADE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3222 'CON-STANCES) (LIST (INIT-STANCE '(TRADE-RESTRICTIONS PRO B FREE-TRADE ISSUE)) (INIT-STANCE '(JOBS PRO B FREE-TRADE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3222 'OPPOSITE) 'TRADE-RESTRICTIONS) (SETF (SLOT-VALUE ISSUE.3222 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3222 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE ISSUE.3222 'SYMBOL) 'ISSUE.3222))
(INSERT-ITEM ISSUE ISSUE.3222)
(DEFVAR ISSUE.724)
(PROG1 (SETF ISSUE.724 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.724 'NAME) "Freedom") (SETF (SLOT-VALUE ISSUE.724 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.724 'SYNONYMS) (LIST 'FREEDOM 'LIBERTY)) (SETF (SLOT-VALUE ISSUE.724 'ISA) (LIST 'PRINCIPLE)) (SETF (SLOT-VALUE ISSUE.724 'POLARITY) "Support the principle of freedom and liberty") (SETF (SLOT-VALUE ISSUE.724 'ENGLISH) "freedom and liberty") (SETF (SLOT-VALUE ISSUE.724 'ENGLISH-SHORT) "freedom") (SETF (SLOT-VALUE ISSUE.724 'NUMBER) 'PLUR) (SETF (SLOT-VALUE ISSUE.724 'PRO-STANCES) (LIST (INIT-STANCE '(IDEALISM PRO B FREEDOM ISSUE)) (INIT-STANCE '(VALUES PRO A FREEDOM ISSUE)) (INIT-STANCE '(HUMAN-RIGHTS PRO A FREEDOM ISSUE)))) (SETF (SLOT-VALUE ISSUE.724 'CON-STANCES) (LIST (INIT-STANCE '(TOTALITARIANISM PRO B FREEDOM ISSUE)))) (SETF (SLOT-VALUE ISSUE.724 'NORM) (INIT-STANCE '(FREEDOM PRO A ISSUE.724 ISSUE))) (SETF (SLOT-VALUE ISSUE.724 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.724 'DATE-OPEN) (LIST->DATE '(11 2 1989))) (SETF (SLOT-VALUE ISSUE.724 'SYMBOL) 'ISSUE.724))
(INSERT-ITEM ISSUE ISSUE.724)
(DEFVAR ISSUE.1078)
(PROG1 (SETF ISSUE.1078 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1078 'NAME) "Freedom of Speech") (SETF (SLOT-VALUE ISSUE.1078 'TYPE) 'RIGHT) (SETF (SLOT-VALUE ISSUE.1078 'SYNONYMS) (LIST 'FREE-SPEECH)) (SETF (SLOT-VALUE ISSUE.1078 'ISA) (LIST 'CONSTITUTION)) (SETF (SLOT-VALUE ISSUE.1078 'POLARITY) "Support freedom of speech.") (SETF (SLOT-VALUE ISSUE.1078 'ENGLISH) "freedom of speech") (SETF (SLOT-VALUE ISSUE.1078 'ENGLISH-SHORT) "free speech") (SETF (SLOT-VALUE ISSUE.1078 'FRENCH) "le droit de libre expression") (SETF (SLOT-VALUE ISSUE.1078 'PRO-STANCES) (LIST (INIT-STANCE '(FREEDOM PRO B FREE-SPEECH ISSUE)) (INIT-STANCE '(RELIGION PRO B FREE-SPEECH ISSUE)) (INIT-STANCE '(CONSTITUTION PRO B FREE-SPEECH ISSUE)))) (SETF (SLOT-VALUE ISSUE.1078 'NORM) (INIT-STANCE '(FREE-SPEECH PRO B ISSUE.1078 ISSUE))) (SETF (SLOT-VALUE ISSUE.1078 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1078 'DATE-OPEN) (LIST->DATE '(7 14 1989))) (SETF (SLOT-VALUE ISSUE.1078 'SYMBOL) 'ISSUE.1078))
(INSERT-ITEM ISSUE ISSUE.1078)
(DEFVAR ISSUE.2661)
(PROG1 (SETF ISSUE.2661 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2661 'NAME) "Freedom of the Press") (SETF (SLOT-VALUE ISSUE.2661 'TYPE) 'RIGHT) (SETF (SLOT-VALUE ISSUE.2661 'SYNONYMS) (LIST 'FREEDOM-OF-THE-PRESS)) (SETF (SLOT-VALUE ISSUE.2661 'ISA) (LIST 'BILL-OF-RIGHTS)) (SETF (SLOT-VALUE ISSUE.2661 'POLARITY) "Support freedom of the press") (SETF (SLOT-VALUE ISSUE.2661 'ENGLISH) "freedom of the press") (SETF (SLOT-VALUE ISSUE.2661 'ENGLISH-SHORT) "a free press") (SETF (SLOT-VALUE ISSUE.2661 'PRO-STANCES) (LIST (INIT-STANCE '(FREE-SPEECH PRO B FREEDOM-OF-THE-PRESS ISSUE)) (INIT-STANCE '(FAIRNESS PRO C FREEDOM-OF-THE-PRESS ISSUE)) (INIT-STANCE '(JUSTICE PRO B FREEDOM-OF-THE-PRESS ISSUE)))) (SETF (SLOT-VALUE ISSUE.2661 'NORM) (INIT-STANCE '(FREEDOM-OF-THE-PRESS PRO C ISSUE.2661 ISSUE))) (SETF (SLOT-VALUE ISSUE.2661 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2661 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2661 'SYMBOL) 'ISSUE.2661))
(INSERT-ITEM ISSUE ISSUE.2661)
(DEFVAR ISSUE.2666)
(PROG1 (SETF ISSUE.2666 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2666 'NAME) "Full employment") (SETF (SLOT-VALUE ISSUE.2666 'SYNONYMS) (LIST 'JOBS 'EMPLOYMENT)) (SETF (SLOT-VALUE ISSUE.2666 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.2666 'POLARITY) "Support efforts promoting job creation and full employment") (SETF (SLOT-VALUE ISSUE.2666 'ENGLISH) "efforts for job creation and full employment") (SETF (SLOT-VALUE ISSUE.2666 'ENGLISH-SHORT) "full employment") (SETF (SLOT-VALUE ISSUE.2666 'PRO-STANCES) (LIST (INIT-STANCE '(UNEMPLOYMENT PRO B JOBS ISSUE)) (INIT-STANCE '(PROSPERITY PRO B JOBS ISSUE)) (INIT-STANCE '(HARD-WORK PRO B JOBS ISSUE)) (INIT-STANCE '(FAMILY PRO C JOBS ISSUE)))) (SETF (SLOT-VALUE ISSUE.2666 'CON-STANCES) (LIST (INIT-STANCE '(INFLATION PRO B JOBS ISSUE)))) (SETF (SLOT-VALUE ISSUE.2666 'NORM) (INIT-STANCE '(JOBS PRO B ISSUE.2666 ISSUE))) (SETF (SLOT-VALUE ISSUE.2666 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2666 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2666 'SYMBOL) 'ISSUE.2666))
(INSERT-ITEM ISSUE ISSUE.2666)
(DEFVAR ISSUE.155)
(PROG1 (SETF ISSUE.155 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.155 'NAME) "Future of the Country") (SETF (SLOT-VALUE ISSUE.155 'SYNONYMS) (LIST 'FUTURE)) (SETF (SLOT-VALUE ISSUE.155 'POLARITY) "Support policies that benefit future generations") (SETF (SLOT-VALUE ISSUE.155 'ENGLISH) "the future of the country") (SETF (SLOT-VALUE ISSUE.155 'ENGLISH-SHORT) "future generations") (SETF (SLOT-VALUE ISSUE.155 'PRO-ENGLISH) "the welfare of future generations") (SETF (SLOT-VALUE ISSUE.155 'PRO-STANCES) (LIST (INIT-STANCE '(RESPONSIBILITY PRO B FUTURE ISSUE)))) (SETF (SLOT-VALUE ISSUE.155 'NORM) (INIT-STANCE '(FUTURE PRO B ISSUE.155 ISSUE))) (SETF (SLOT-VALUE ISSUE.155 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.155 'DATE-OPEN) (LIST->DATE '(4 4 1990))) (SETF (SLOT-VALUE ISSUE.155 'SYMBOL) 'ISSUE.155))
(INSERT-ITEM ISSUE ISSUE.155)
(DEFVAR ISSUE.1252)
(PROG1 (SETF ISSUE.1252 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1252 'NAME) "Gay Rights") (SETF (SLOT-VALUE ISSUE.1252 'SYNONYMS) (LIST 'GAY-RIGHTS)) (SETF (SLOT-VALUE ISSUE.1252 'ISA) (LIST 'RIGHT)) (SETF (SLOT-VALUE ISSUE.1252 'POLARITY) "Support civil rights of homosexuals") (SETF (SLOT-VALUE ISSUE.1252 'ENGLISH) "the legitimate rights of homosexuals") (SETF (SLOT-VALUE ISSUE.1252 'ENGLISH-SHORT) "gay rights") (SETF (SLOT-VALUE ISSUE.1252 'NUMBER) 'PLUR) (SETF (SLOT-VALUE ISSUE.1252 'PRO-STANCES) (LIST (INIT-STANCE '(EQUALITY PRO B GAY-RIGHTS ISSUE)) (INIT-STANCE '(CIVIL-RIGHTS PRO B GAY-RIGHTS ISSUE)) (INIT-STANCE '(COMPASSION PRO C GAY-RIGHTS ISSUE)) (INIT-STANCE '(JUSTICE PRO C GAY-RIGHTS ISSUE)) (INIT-STANCE '(PROGRESS PRO B GAY-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1252 'CON-STANCES) (LIST (INIT-STANCE '(FAMILY PRO B GAY-RIGHTS ISSUE)) (INIT-STANCE '(TRADITION PRO B GAY-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.1252 'NORM) (INIT-STANCE '(GAY-RIGHTS CON C ISSUE.1252 ISSUE))) (SETF (SLOT-VALUE ISSUE.1252 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1252 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1252 'SYMBOL) 'ISSUE.1252))
(INSERT-ITEM ISSUE ISSUE.1252)
(DEFVAR ISSUE.699)
(PROG1 (SETF ISSUE.699 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.699 'NAME) "Generic Issue") (SETF (SLOT-VALUE ISSUE.699 'SYNONYMS) (LIST 'ISSUE 'ISSUES)) (SETF (SLOT-VALUE ISSUE.699 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.699 'DATE-OPEN) (LIST->DATE '(1 31 1989))) (SETF (SLOT-VALUE ISSUE.699 'SYMBOL) 'ISSUE.699))
(INSERT-ITEM ISSUE ISSUE.699)
(DEFVAR ISSUE.3241)
(PROG1 (SETF ISSUE.3241 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3241 'NAME) "Government Spending") (SETF (SLOT-VALUE ISSUE.3241 'SYNONYMS) (LIST 'SPENDING)) (SETF (SLOT-VALUE ISSUE.3241 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.3241 'POLARITY) "Support federal spending to address national concerns") (SETF (SLOT-VALUE ISSUE.3241 'ENGLISH) "federal spending to address national concerns") (SETF (SLOT-VALUE ISSUE.3241 'ENGLISH-SHORT) "government spending") (SETF (SLOT-VALUE ISSUE.3241 'PRO-ENGLISH) "prudent spending in support of legitimate programs") (SETF (SLOT-VALUE ISSUE.3241 'CON-ENGLISH) "wasteful government spending") (SETF (SLOT-VALUE ISSUE.3241 'PRO-STANCES) (LIST (INIT-STANCE '(MILITARY PRO B SPENDING ISSUE)) (INIT-STANCE '(HEALTH PRO C SPENDING ISSUE)) (INIT-STANCE '(AIDS PRO C SPENDING ISSUE)) (INIT-STANCE '(SPACE PRO C SPENDING ISSUE)) (INIT-STANCE '(SOCIAL-SECURITY PRO B SPENDING ISSUE)) (INIT-STANCE '(FEDERAL-PROGRAMS PRO B SPENDING ISSUE)) (INIT-STANCE '(REGULATION PRO C SPENDING ISSUE)))) (SETF (SLOT-VALUE ISSUE.3241 'CON-STANCES) (LIST (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO A SPENDING ISSUE)) (INIT-STANCE '(DEFICIT CON A SPENDING ISSUE)) (INIT-STANCE '(FREE-MARKET PRO B SPENDING ISSUE)) (INIT-STANCE '(CUT-TAXES PRO B SPENDING ISSUE)) (INIT-STANCE '(PROSPERITY PRO B SPENDING ISSUE)) (INIT-STANCE '(INFLATION PRO B SPENDING ISSUE)) (INIT-STANCE '(TRADE PRO B SPENDING ISSUE)))) (SETF (SLOT-VALUE ISSUE.3241 'NORM) (INIT-STANCE '(SPENDING CON C ISSUE.3241 ISSUE))) (SETF (SLOT-VALUE ISSUE.3241 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3241 'DATE-OPEN) (LIST->DATE '(8 31 1988))) (SETF (SLOT-VALUE ISSUE.3241 'SYMBOL) 'ISSUE.3241))
(INSERT-ITEM ISSUE ISSUE.3241)
(DEFVAR ISSUE.2660)
(PROG1 (SETF ISSUE.2660 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.2660 'NAME) "Government waste control") (SETF (SLOT-VALUE ISSUE.2660 'SYNONYMS) (LIST 'WASTE)) (SETF (SLOT-VALUE ISSUE.2660 'ISA) (LIST 'SPENDING)) (SETF (SLOT-VALUE ISSUE.2660 'POLARITY) "Support efforts to reduce government waste") (SETF (SLOT-VALUE ISSUE.2660 'ENGLISH) "efforts to reduce government waste") (SETF (SLOT-VALUE ISSUE.2660 'ENGLISH-SHORT) "government waste control") (SETF (SLOT-VALUE ISSUE.2660 'PRO-STANCES) (LIST (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B WASTE ISSUE)) (INIT-STANCE '(DEFICIT CON B WASTE ISSUE)))) (SETF (SLOT-VALUE ISSUE.2660 'NORM) (INIT-STANCE '(WASTE PRO B ISSUE.2660 ISSUE))) (SETF (SLOT-VALUE ISSUE.2660 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.2660 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE ISSUE.2660 'SYMBOL) 'ISSUE.2660))
(INSERT-ITEM ISSUE ISSUE.2660)
(DEFVAR ISSUE.3818)
(PROG1 (SETF ISSUE.3818 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3818 'NAME) "Gun Control") (SETF (SLOT-VALUE ISSUE.3818 'TYPE) 'CAUSE) (SETF (SLOT-VALUE ISSUE.3818 'SYNONYMS) (LIST 'GUN-CONTROL)) (SETF (SLOT-VALUE ISSUE.3818 'ISA) (LIST 'LAW-AND-ORDER)) (SETF (SLOT-VALUE ISSUE.3818 'POLARITY) "Support federal regulation of firearms") (SETF (SLOT-VALUE ISSUE.3818 'ENGLISH) "federal regulation of firearms") (SETF (SLOT-VALUE ISSUE.3818 'ENGLISH-SHORT) "gun control") (SETF (SLOT-VALUE ISSUE.3818 'PRO-STANCES) (LIST (INIT-STANCE '(LAW-AND-ORDER PRO B GUN-CONTROL ISSUE)) (INIT-STANCE '(PROGRESS PRO B GUN-CONTROL ISSUE)))) (SETF (SLOT-VALUE ISSUE.3818 'CON-STANCES) (LIST (INIT-STANCE '(CONSTITUTION PRO B GUN-CONTROL ISSUE)) (INIT-STANCE '(FAMILY PRO B GUN-CONTROL ISSUE)) (INIT-STANCE '(TRADITION PRO B GUN-CONTROL ISSUE)))) (SETF (SLOT-VALUE ISSUE.3818 'NORM) (INIT-STANCE '(GUN-CONTROL PRO C ISSUE.3818 ISSUE))) (SETF (SLOT-VALUE ISSUE.3818 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3818 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3818 'SYMBOL) 'ISSUE.3818) (SETF (SLOT-VALUE ISSUE.3818 'KEYWORDS) (LIST 'HANDGUN 'HANDGUNS)))
(INSERT-ITEM ISSUE ISSUE.3818)
(DEFVAR ISSUE.1260)
(PROG1 (SETF ISSUE.1260 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.1260 'NAME) "Handicapped") (SETF (SLOT-VALUE ISSUE.1260 'TYPE) 'GROUP) (SETF (SLOT-VALUE ISSUE.1260 'ISA) (LIST 'CIVIL-RIGHTS)) (SETF (SLOT-VALUE ISSUE.1260 'POLARITY) "Support federal efforts to help the handicapped") (SETF (SLOT-VALUE ISSUE.1260 'ENGLISH) "handicapped and disabled Americans") (SETF (SLOT-VALUE ISSUE.1260 'ENGLISH-SHORT) "the handicapped") (SETF (SLOT-VALUE ISSUE.1260 'PRO-STANCES) (LIST (INIT-STANCE '(HEALTH PRO B HANDICAPPED ISSUE)) (INIT-STANCE '(FAIRNESS PRO B HANDICAPPED ISSUE)) (INIT-STANCE '(CIVIL-RIGHTS PRO C HANDICAPPED ISSUE)) (INIT-STANCE '(PROGRESS PRO B HANDICAPPED ISSUE)))) (SETF (SLOT-VALUE ISSUE.1260 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B HANDICAPPED ISSUE)) (INIT-STANCE '(SPENDING CON C HANDICAPPED ISSUE)) (INIT-STANCE '(TRADITION PRO B HANDICAPPED ISSUE)))) (SETF (SLOT-VALUE ISSUE.1260 'NORM) (INIT-STANCE '(HANDICAPPED PRO C ISSUE.1260 ISSUE))) (SETF (SLOT-VALUE ISSUE.1260 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.1260 'DATE-OPEN) (LIST->DATE '(9 18 1989))) (SETF (SLOT-VALUE ISSUE.1260 'SYMBOL) 'ISSUE.1260))
(INSERT-ITEM ISSUE ISSUE.1260)
(DEFVAR ISSUE.112)
(PROG1 (SETF ISSUE.112 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.112 'NAME) "Hard work") (SETF (SLOT-VALUE ISSUE.112 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.112 'SYNONYMS) (LIST 'HARD-WORK)) (SETF (SLOT-VALUE ISSUE.112 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.112 'POLARITY) "Support principle of hard work") (SETF (SLOT-VALUE ISSUE.112 'ENGLISH) "working to earn a living") (SETF (SLOT-VALUE ISSUE.112 'ENGLISH-SHORT) "hard work") (SETF (SLOT-VALUE ISSUE.112 'PRO-STANCES) (LIST (INIT-STANCE '(FAMILY PRO B HARD-WORK ISSUE)) (INIT-STANCE '(VALUES PRO B HARD-WORK ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B HARD-WORK ISSUE)))) (SETF (SLOT-VALUE ISSUE.112 'NORM) (INIT-STANCE '(HARD-WORK PRO B ISSUE.112 ISSUE))) (SETF (SLOT-VALUE ISSUE.112 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.112 'DATE-OPEN) (LIST->DATE '(1 19 1990))) (SETF (SLOT-VALUE ISSUE.112 'SYMBOL) 'ISSUE.112))
(INSERT-ITEM ISSUE ISSUE.112)
(DEFVAR ISSUE.3813)
(PROG1 (SETF ISSUE.3813 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3813 'NAME) "Health Care") (SETF (SLOT-VALUE ISSUE.3813 'TYPE) 'CAUSE) (SETF (SLOT-VALUE ISSUE.3813 'SYNONYMS) (LIST 'HEALTH-CARE 'HEALTH)) (SETF (SLOT-VALUE ISSUE.3813 'ISA) (LIST 'DOMESTIC)) (SETF (SLOT-VALUE ISSUE.3813 'POLARITY) "Support federal regulation and funding of health care") (SETF (SLOT-VALUE ISSUE.3813 'ENGLISH) "improving health care") (SETF (SLOT-VALUE ISSUE.3813 'ENGLISH-SHORT) "health care") (SETF (SLOT-VALUE ISSUE.3813 'PRO-STANCES) (LIST (INIT-STANCE '(COMPASSION PRO B HEALTH-CARE ISSUE)) (INIT-STANCE '(HUMANITARIANISM PRO B HEALTH-CARE ISSUE)) (INIT-STANCE '(IDEALISM PRO B HEALTH-CARE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3813 'CON-STANCES) (LIST (INIT-STANCE '(DEFICIT CON B HEALTH-CARE ISSUE)))) (SETF (SLOT-VALUE ISSUE.3813 'NORM) (INIT-STANCE '(HEALTH-CARE PRO B ISSUE.3813 ISSUE))) (SETF (SLOT-VALUE ISSUE.3813 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3813 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3813 'SYMBOL) 'ISSUE.3813))
(INSERT-ITEM ISSUE ISSUE.3813)
(DEFVAR ISSUE.710)
(PROG1 (SETF ISSUE.710 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.710 'NAME) "Help wealthy citizens") (SETF (SLOT-VALUE ISSUE.710 'TYPE) 'ECONOMIC) (SETF (SLOT-VALUE ISSUE.710 'SYNONYMS) (LIST 'HELP-WEALTHY)) (SETF (SLOT-VALUE ISSUE.710 'ISA) (LIST 'ECONOMIC)) (SETF (SLOT-VALUE ISSUE.710 'POLARITY) "Support programs that help the wealthy") (SETF (SLOT-VALUE ISSUE.710 'ENGLISH) "programs that help the wealthy") (SETF (SLOT-VALUE ISSUE.710 'PRO-ENGLISH) "programs that spur investment among the upper middle class") (SETF (SLOT-VALUE ISSUE.710 'CON-ENGLISH) "programs that are unreasonably generous to wealthy taxpayers") (SETF (SLOT-VALUE ISSUE.710 'PRO-STANCES) (LIST (INIT-STANCE '(SPUR-INVESTMENT PRO B HELP-WEALTHY ISSUE)) (INIT-STANCE '(PROSPERITY PRO C HELP-WEALTHY ISSUE)))) (SETF (SLOT-VALUE ISSUE.710 'CON-STANCES) (LIST (INIT-STANCE '(FAIRNESS PRO C HELP-WEALTHY ISSUE)))) (SETF (SLOT-VALUE ISSUE.710 'NORM) (INIT-STANCE '(HELP-WEALTHY CON C ISSUE.710 ISSUE))) (SETF (SLOT-VALUE ISSUE.710 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.710 'DATE-OPEN) (LIST->DATE '(9 29 1989))) (SETF (SLOT-VALUE ISSUE.710 'SYMBOL) 'ISSUE.710))
(INSERT-ITEM ISSUE ISSUE.710)
(DEFVAR ISSUE.3858)
(PROG1 (SETF ISSUE.3858 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3858 'NAME) "Homelessness") (SETF (SLOT-VALUE ISSUE.3858 'TYPE) 'GROUP) (SETF (SLOT-VALUE ISSUE.3858 'SYNONYMS) (LIST 'HOMELESS 'HOMELESSNESS)) (SETF (SLOT-VALUE ISSUE.3858 'ISA) (LIST 'POVERTY)) (SETF (SLOT-VALUE ISSUE.3858 'POLARITY) "Support federal efforts to relieve homelessness") (SETF (SLOT-VALUE ISSUE.3858 'ENGLISH) "the homeless and destitute") (SETF (SLOT-VALUE ISSUE.3858 'ENGLISH-SHORT) "the homeless") (SETF (SLOT-VALUE ISSUE.3858 'PRO-STANCES) (LIST (INIT-STANCE '(COMPASSION PRO B HOMELESSNESS ISSUE)) (INIT-STANCE '(HUMANITARIANISM PRO A HOMELESSNESS ISSUE)) (INIT-STANCE '(HUNGER PRO B HOMELESSNESS ISSUE)) (INIT-STANCE '(POVERTY PRO A HOMELESSNESS ISSUE)))) (SETF (SLOT-VALUE ISSUE.3858 'CON-STANCES) (LIST (INIT-STANCE '(HARD-WORK PRO B HOMELESSNESS ISSUE)) (INIT-STANCE '(FISCAL-RESPONSIBILITY PRO B HOMELESSNESS ISSUE)))) (SETF (SLOT-VALUE ISSUE.3858 'NORM) (INIT-STANCE '(HOMELESSNESS PRO C ISSUE.3858 ISSUE))) (SETF (SLOT-VALUE ISSUE.3858 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3858 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3858 'SYMBOL) 'ISSUE.3858))
(INSERT-ITEM ISSUE ISSUE.3858)
(DEFVAR ISSUE.113)
(PROG1 (SETF ISSUE.113 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.113 'NAME) "Honesty") (SETF (SLOT-VALUE ISSUE.113 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.113 'SYNONYMS) (LIST 'HONESTY)) (SETF (SLOT-VALUE ISSUE.113 'ISA) (LIST 'VALUE)) (SETF (SLOT-VALUE ISSUE.113 'POLARITY) "Support principle of honesty") (SETF (SLOT-VALUE ISSUE.113 'ENGLISH) "honesty in society") (SETF (SLOT-VALUE ISSUE.113 'ENGLISH-SHORT) "honesty") (SETF (SLOT-VALUE ISSUE.113 'PRO-STANCES) (LIST (INIT-STANCE '(FAMILY PRO B HONESTY ISSUE)) (INIT-STANCE '(JUSTICE PRO B HONESTY ISSUE)) (INIT-STANCE '(FAIRNESS PRO B HONESTY ISSUE)))) (SETF (SLOT-VALUE ISSUE.113 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B HONESTY ISSUE)))) (SETF (SLOT-VALUE ISSUE.113 'NORM) (INIT-STANCE '(HONESTY PRO B ISSUE.113 ISSUE))) (SETF (SLOT-VALUE ISSUE.113 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.113 'DATE-OPEN) (LIST->DATE '(1 19 1990))) (SETF (SLOT-VALUE ISSUE.113 'SYMBOL) 'ISSUE.113))
(INSERT-ITEM ISSUE ISSUE.113)
(DEFVAR ISSUE.3859)
(PROG1 (SETF ISSUE.3859 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3859 'NAME) "Housing") (SETF (SLOT-VALUE ISSUE.3859 'ISA) (LIST 'POVERTY)) (SETF (SLOT-VALUE ISSUE.3859 'POLARITY) "Support federal efforts to subsidize housing") (SETF (SLOT-VALUE ISSUE.3859 'ENGLISH) "federal efforts to provide housing") (SETF (SLOT-VALUE ISSUE.3859 'ENGLISH-SHORT) "federal housing projects") (SETF (SLOT-VALUE ISSUE.3859 'PRO-STANCES) (LIST (INIT-STANCE '(HOMELESS PRO B HOUSING ISSUE)) (INIT-STANCE '(HUMANITARIANISM PRO B HOUSING ISSUE)) (INIT-STANCE '(POVERTY PRO B HOUSING ISSUE)))) (SETF (SLOT-VALUE ISSUE.3859 'CON-STANCES) (LIST (INIT-STANCE '(HARD-WORK PRO B HOUSING ISSUE)) (INIT-STANCE '(DEFICIT CON B HOUSING ISSUE)))) (SETF (SLOT-VALUE ISSUE.3859 'NORM) (INIT-STANCE '(HOUSING PRO C ISSUE.3859 ISSUE))) (SETF (SLOT-VALUE ISSUE.3859 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3859 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3859 'SYMBOL) 'ISSUE.3859))
(INSERT-ITEM ISSUE ISSUE.3859)
(DEFVAR ISSUE.3832)
(PROG1 (SETF ISSUE.3832 (MAKE-INSTANCE 'ISSUE)) (SETF (SLOT-VALUE ISSUE.3832 'NAME) "Human Rights") (SETF (SLOT-VALUE ISSUE.3832 'TYPE) 'PRINCIPLE) (SETF (SLOT-VALUE ISSUE.3832 'SYNONYMS) (LIST 'HUMAN-RIGHTS)) (SETF (SLOT-VALUE ISSUE.3832 'ISA) (LIST 'FOREIGN)) (SETF (SLOT-VALUE ISSUE.3832 'POLARITY) "Support federal efforts to promote human rights abroad") (SETF (SLOT-VALUE ISSUE.3832 'ENGLISH) "inalienable human rights") (SETF (SLOT-VALUE ISSUE.3832 'ENGLISH-SHORT) "human rights") (SETF (SLOT-VALUE ISSUE.3832 'NUMBER) 'PLUR) (SETF (SLOT-VALUE ISSUE.3832 'GROUPS) (LIST 'AMNESTY-INTERNATIONAL 'RED-CROSS)) (SETF (SLOT-VALUE ISSUE.3832 'PRO-STANCES) (LIST (INIT-STANCE '(FREEDOM PRO B HUMAN-RIGHTS ISSUE)) (INIT-STANCE '(HUMANITARIANISM PRO B HUMAN-RIGHTS ISSUE)) (INIT-STANCE '(IDEALISM PRO B HUMAN-RIGHTS ISSUE)) (INIT-STANCE '(FAIR-TRIAL PRO B HUMAN-RIGHTS ISSUE)) (INIT-STANCE '(CIVIL-RIGHTS PRO B HUMAN-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.3832 'CON-STANCES) (LIST (INIT-STANCE '(PRAGMATISM PRO B HUMAN-RIGHTS ISSUE)) (INIT-STANCE '(TOTALITARIANISM PRO B HUMAN-RIGHTS ISSUE)))) (SETF (SLOT-VALUE ISSUE.3832 'NORM) (INIT-STANCE '(HUMAN-RIGHTS PRO C ISSUE.3832 ISSUE))) (SETF (SLOT-VALUE ISSUE.3832 'STATUS) "Active") (SETF (SLOT-VALUE ISSUE.3832 'DATE-OPEN) (LIST->DATE '(8 28 1988))) (SETF (SLOT-VALUE ISSUE.3832 'SYMBOL) 'ISSUE.3832))
(INSERT-ITEM ISSUE ISSUE.3832)
(DEFVAR ISSUE.1267)

(PROG1 (SETF ISSUE.1267 (MAKE-INSTANCE 'ISSUE))
       (SETF (SLOT-VALUE ISSUE.1267 'NAME) "Human values")
       (SETF (SLOT-VALUE ISSUE.1267 'TYPE) 'ISSUE)
       (SETF (SLOT-VALUE ISSUE.1267 'SYNONYMS)
             (LIST 'HUMAN-VALUES 'VALUES 'VALUE 'SOCIAL-VALUE))
       (SETF (SLOT-VALUE ISSUE.1267 'ISA) (LIST 'SOCIAL))
       (SETF (SLOT-VALUE ISSUE.1267 'POLARITY) "Support basic human values")
       (SETF (SLOT-VALUE ISSUE.1267 'ENGLISH) "basic human values")
       (SETF (SLOT-VALUE ISSUE.1267 'PRO-STANCES)
             (LIST (INIT-STANCE '(IDEALISM PRO B HUMAN-VALUES ISSUE))
                   (INIT-STANCE '(FAMILY PRO B HUMAN-VALUES ISSUE))
                   (INIT-STANCE '(COMPASSION PRO B HUMAN-VALUES ISSUE))))
       (SETF (SLOT-VALUE ISSUE.1267 'CON-STANCES)
             (LIST (INIT-STANCE '(PRAGMATISM PRO B HUMAN-VALUES ISSUE))))
       (SETF (SLOT-VALUE ISSUE.1267 'NORM)
             (INIT-STANCE '(HUMAN-VALUES PRO A ISSUE.1267 ISSUE)))
       (SETF (SLOT-VALUE ISSUE.1267 'STATUS) "Active")
       (SETF (SLOT-VALUE ISSUE.1267 'DATE-OPEN) (LIST->DATE '(11 1 1989)))
       (SETF (SLOT-VALUE ISSUE.1267 'SYMBOL) 'ISSUE.1267))