;; Macintosh HD:lisp:db:data:issue

;; list of command aliases.
(SETF (db-aliases ISSUE)  (list  (list  'DAY-CARE 'CHILD-CARE)
 (list  'EDITC 'EDIT 'CON-STANCES)
 (list  'EDITP 'EDIT 'PRO-STANCES)
 (list  'CONS 'CON-STANCES)
 (list  'PROS 'PRO-STANCES)
 (list  'ACON 'APPEND 'CON-STANCES)
 (list  'APRO 'APPEND 'PRO-STANCES)
 (list  'CON-STANCE 'CON-STANCES)
 (list  'PRO-STANCE 'PRO-STANCES)
 (list  'HL 'HEADERS 'LAST)
 (list  'HEADER 'HEADERS)
 (list  'HC 'HEADERS 'CURRENT)
)
)


;; Items for Database: ISSUE
(defvar ISSUE.3817)
(prog1 (setf ISSUE.3817 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3817 'NAME)  "AIDS") 
(setf (slot-value ISSUE.3817 'ISA)  (list  'HEALTH)
) 
(setf (slot-value ISSUE.3817 'POLARITY)  "Support AIDS research and education") 
(setf (slot-value ISSUE.3817 'ENGLISH)  "funding AIDS research and education") 
(setf (slot-value ISSUE.3817 'ENGLISH-SHORT)  "AIDS research") 
(setf (slot-value ISSUE.3817 'PRO-ENGLISH)  "increased funding for AIDS research and education") 
(setf (slot-value ISSUE.3817 'PRO-STANCES)  (list (init-stance '(COMPASSION PRO C AIDS ISSUE))
(init-stance '(HEALTH PRO C AIDS ISSUE))
)
) 
(setf (slot-value ISSUE.3817 'CON-STANCES)  (list (init-stance '(SPENDING CON C AIDS ISSUE))
(init-stance '(GAY-RIGHTS CON B AIDS ISSUE))
)
) 
(setf (slot-value ISSUE.3817 'NORM) (init-stance '(AIDS PRO B ISSUE.3817 ISSUE))
) 
(setf (slot-value ISSUE.3817 'STATUS)  "Active") 
(setf (slot-value ISSUE.3817 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3817 'SYMBOL)  'ISSUE.3817) )
(insert-item ISSUE ISSUE.3817)
(defvar ISSUE.3820)
(prog1 (setf ISSUE.3820 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3820 'NAME)  "Abortion") 
(setf (slot-value ISSUE.3820 'ISA)  (list  'SOCIAL)
) 
(setf (slot-value ISSUE.3820 'POLARITY)  "Support women's right to abortion") 
(setf (slot-value ISSUE.3820 'ENGLISH)  "a woman's right to have an abortion") 
(setf (slot-value ISSUE.3820 'ENGLISH-SHORT)  "abortion") 
(setf (slot-value ISSUE.3820 'PRO-ENGLISH)  "a woman's right to have an abortion") 
(setf (slot-value ISSUE.3820 'CON-ENGLISH)  "the killing of the unborn through abortion") 
(setf (slot-value ISSUE.3820 'PRO-STANCES)  (list (init-stance '(WOMENS-RIGHTS PRO B ABORTION ISSUE))
(init-stance '(PRIVACY PRO C ABORTION ISSUE))
)
) 
(setf (slot-value ISSUE.3820 'CON-STANCES)  (list (init-stance '(COMPASSION PRO B ABORTION ISSUE))
(init-stance '(VALUES PRO B ABORTION ISSUE))
)
) 
(setf (slot-value ISSUE.3820 'NORM) (init-stance '(ABORTION PRO C ISSUE.3820 ISSUE))
) 
(setf (slot-value ISSUE.3820 'STATUS)  "Active") 
(setf (slot-value ISSUE.3820 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3820 'SYMBOL)  'ISSUE.3820) )
(insert-item ISSUE ISSUE.3820)
(defvar ISSUE.3081)
(prog1 (setf ISSUE.3081 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3081 'NAME)  "Acid Rain Control") 
(setf (slot-value ISSUE.3081 'SYNONYMS)  (list  'ACID-RAIN-CONTROL)
) 
(setf (slot-value ISSUE.3081 'ISA)  (list  'ENVIRONMENT)
) 
(setf (slot-value ISSUE.3081 'POLARITY)  "Support federal efforts to fight acid rain") 
(setf (slot-value ISSUE.3081 'ENGLISH)  "efforts to fight acid rain") 
(setf (slot-value ISSUE.3081 'ENGLISH-SHORT)  "acid rain controls") 
(setf (slot-value ISSUE.3081 'NUMBER)  'PLUR) 
(setf (slot-value ISSUE.3081 'GROUPS)  (list  'ENVIRONMENTAL-DEFENSE-FUND)
) 
(setf (slot-value ISSUE.3081 'PRO-STANCES)  (list (init-stance '(ENVIRONMENT PRO C ACID-RAIN-CONTROL ISSUE))
)
) 
(setf (slot-value ISSUE.3081 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO C ACID-RAIN-CONTROL ISSUE))
)
) 
(setf (slot-value ISSUE.3081 'NORM) (init-stance '(ACID-RAIN-CONTROL PRO C ISSUE.3081 ISSUE))
) 
(setf (slot-value ISSUE.3081 'STATUS)  "Active") 
(setf (slot-value ISSUE.3081 'DATE-OPEN) (list->date '(3 23 1989))) 
(setf (slot-value ISSUE.3081 'SYMBOL)  'ISSUE.3081) )
(insert-item ISSUE ISSUE.3081)
(defvar ISSUE.3849)
(prog1 (setf ISSUE.3849 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3849 'NAME)  "Affirmative Action") 
(setf (slot-value ISSUE.3849 'SYNONYMS)  (list  'AFFIRMATIVE-ACTION)
) 
(setf (slot-value ISSUE.3849 'ISA)  (list  'CIVIL-RIGHTS)
) 
(setf (slot-value ISSUE.3849 'POLARITY)  "Support affirmative action to achieve racial balance") 
(setf (slot-value ISSUE.3849 'ENGLISH)  "affirmative action to achieve racial balance") 
(setf (slot-value ISSUE.3849 'ENGLISH-SHORT)  "affirmative action") 
(setf (slot-value ISSUE.3849 'PRO-ENGLISH)  "affirmative action to redress a history of racial injustice") 
(setf (slot-value ISSUE.3849 'CON-ENGLISH)  "reverse discrimination through affirmative action") 
(setf (slot-value ISSUE.3849 'PRO-STANCES)  (list (init-stance '(CIVIL-RIGHTS PRO C AFFIRMATIVE-ACTION ISSUE))
(init-stance '(FAIRNESS PRO B AFFIRMATIVE-ACTION ISSUE))
(init-stance '(JUSTICE PRO B AFFIRMATIVE-ACTION ISSUE))
(init-stance '(PROGRESS PRO C AFFIRMATIVE-ACTION ISSUE))
)
) 
(setf (slot-value ISSUE.3849 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO C AFFIRMATIVE-ACTION ISSUE))
(init-stance '(STATES-RIGHTS PRO C AFFIRMATIVE-ACTION ISSUE))
(init-stance '(TRADITION PRO C AFFIRMATIVE-ACTION ISSUE))
)
) 
(setf (slot-value ISSUE.3849 'NORM) (init-stance '(AFFIRMATIVE-ACTION PRO C ISSUE.3849 ISSUE))
) 
(setf (slot-value ISSUE.3849 'STATUS)  "Active") 
(setf (slot-value ISSUE.3849 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3849 'SYMBOL)  'ISSUE.3849) )
(insert-item ISSUE ISSUE.3849)
(defvar ISSUE.891)
(prog1 (setf ISSUE.891 (make-instance 'ISSUE))
(setf (slot-value ISSUE.891 'NAME)  "Africa") 
(setf (slot-value ISSUE.891 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.891 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.891 'ENGLISH)  "African nations") 
(setf (slot-value ISSUE.891 'STATUS)  "Active") 
(setf (slot-value ISSUE.891 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.891 'SYMBOL)  'ISSUE.891) )
(insert-item ISSUE ISSUE.891)
(defvar ISSUE.1253)
(prog1 (setf ISSUE.1253 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1253 'NAME)  "Age Discrimination") 
(setf (slot-value ISSUE.1253 'TYPE)  'PROBLEM) 
(setf (slot-value ISSUE.1253 'SYNONYMS)  (list  'AGE-DISCRIMINATION)
) 
(setf (slot-value ISSUE.1253 'ISA)  (list  'CIVIL-RIGHTS)
) 
(setf (slot-value ISSUE.1253 'POLARITY)  "Support discrimination based on age") 
(setf (slot-value ISSUE.1253 'ENGLISH)  "discrimination based on age") 
(setf (slot-value ISSUE.1253 'ENGLISH-SHORT)  "age discrimination") 
(setf (slot-value ISSUE.1253 'PRO-ENGLISH)  "recognition of the tangible differences of older members of society") 
(setf (slot-value ISSUE.1253 'PRO-STANCES)  (list (init-stance '(FREE-MARKET PRO B AGE-DISCRIMINATION ISSUE))
)
) 
(setf (slot-value ISSUE.1253 'CON-STANCES)  (list (init-stance '(ELDERLY PRO B AGE-DISCRIMINATION ISSUE))
(init-stance '(FAIRNESS PRO B AGE-DISCRIMINATION ISSUE))
(init-stance '(EQUALITY PRO B AGE-DISCRIMINATION ISSUE))
)
) 
(setf (slot-value ISSUE.1253 'NORM) (init-stance '(AGE-DISCRIMINATION CON C ISSUE.1253 ISSUE))
) 
(setf (slot-value ISSUE.1253 'STATUS)  "Active") 
(setf (slot-value ISSUE.1253 'DATE-OPEN) (list->date '(9 18 1989))) 
(setf (slot-value ISSUE.1253 'SYMBOL)  'ISSUE.1253) )
(insert-item ISSUE ISSUE.1253)
(defvar ISSUE.2404)
(prog1 (setf ISSUE.2404 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2404 'NAME)  "Agricultural subsidies") 
(setf (slot-value ISSUE.2404 'SYNONYMS)  (list  'FARM 'AGRICULTURE)
) 
(setf (slot-value ISSUE.2404 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.2404 'POLARITY)  "Support agricultural subsidies") 
(setf (slot-value ISSUE.2404 'ENGLISH)  "agricultural subsidies") 
(setf (slot-value ISSUE.2404 'PRO-ENGLISH)  "price-supports for farmers") 
(setf (slot-value ISSUE.2404 'PRO-STANCES)  (list (init-stance '(JOBS PRO C FARM ISSUE))
)
) 
(setf (slot-value ISSUE.2404 'CON-STANCES)  (list (init-stance '(FREE-TRADE PRO B FARM ISSUE))
(init-stance '(FREE-MARKET PRO B FARM ISSUE))
)
) 
(setf (slot-value ISSUE.2404 'NORM) (init-stance '(FARM CON C ISSUE.2404 ISSUE))
) 
(setf (slot-value ISSUE.2404 'STATUS)  "Active") 
(setf (slot-value ISSUE.2404 'DATE-OPEN) (list->date '(9 1 1988))) 
(setf (slot-value ISSUE.2404 'SYMBOL)  'ISSUE.2404) )
(insert-item ISSUE ISSUE.2404)
(defvar ISSUE.3812)
(prog1 (setf ISSUE.3812 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3812 'NAME)  "Aid to Nicaraguan Contras") 
(setf (slot-value ISSUE.3812 'SYNONYMS)  (list  'CONTRA-AID 'CONTRAS)
) 
(setf (slot-value ISSUE.3812 'ISA)  (list  'NICARAGUA)
) 
(setf (slot-value ISSUE.3812 'POLARITY)  "Support aid to Contras") 
(setf (slot-value ISSUE.3812 'ENGLISH)  "aid to the Nicaraguan Contras") 
(setf (slot-value ISSUE.3812 'ENGLISH-SHORT)  "Contra aid") 
(setf (slot-value ISSUE.3812 'PRO-ENGLISH)  "aid to the freedom fighting Nicaraguan Contras") 
(setf (slot-value ISSUE.3812 'PRO-STANCES)  (list (init-stance '(MILITARY-SOLUTION PRO C CONTRA-AID ISSUE))
(init-stance '(FREEDOM PRO B CONTRA-AID ISSUE))
(init-stance '(COMMUNISM PRO B CONTRA-AID ISSUE))
)
) 
(setf (slot-value ISSUE.3812 'CON-STANCES)  (list (init-stance '(NON-INVOLVEMENT PRO B CONTRA-AID ISSUE))
(init-stance '(NATIONAL-AUTONOMY PRO B CONTRA-AID ISSUE))
)
) 
(setf (slot-value ISSUE.3812 'STATUS)  "Active") 
(setf (slot-value ISSUE.3812 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3812 'SYMBOL)  'ISSUE.3812) )
(insert-item ISSUE ISSUE.3812)
(defvar ISSUE.2403)
(prog1 (setf ISSUE.2403 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2403 'NAME)  "Air Pollution Control") 
(setf (slot-value ISSUE.2403 'TYPE)  'POLICY) 
(setf (slot-value ISSUE.2403 'SYNONYMS)  (list  'CLEAN-AIR 'AIR-POLLUTION-CONTROL)
) 
(setf (slot-value ISSUE.2403 'ISA)  (list  'ENVIRONMENT)
) 
(setf (slot-value ISSUE.2403 'POLARITY)  "Support government air quality control efforts") 
(setf (slot-value ISSUE.2403 'ENGLISH)  "government efforts to fight air pollution") 
(setf (slot-value ISSUE.2403 'ENGLISH-SHORT)  "clean air") 
(setf (slot-value ISSUE.2403 'PRO-ENGLISH)  "increased funding for air pollution control") 
(setf (slot-value ISSUE.2403 'CON-ENGLISH)  "stronger air pollution controls") 
(setf (slot-value ISSUE.2403 'PRO-STANCES)  (list (init-stance '(ENVIRONMENT PRO B CLEAN-AIR ISSUE))
(init-stance '(REGULATION PRO B CLEAN-AIR ISSUE))
)
) 
(setf (slot-value ISSUE.2403 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B CLEAN-AIR ISSUE))
(init-stance '(FREE-MARKET PRO C CLEAN-AIR ISSUE))
)
) 
(setf (slot-value ISSUE.2403 'NORM) (init-stance '(CLEAN-AIR PRO C ISSUE.2403 ISSUE))
) 
(setf (slot-value ISSUE.2403 'STATUS)  "Active") 
(setf (slot-value ISSUE.2403 'DATE-OPEN) (list->date '(9 1 1988))) 
(setf (slot-value ISSUE.2403 'SYMBOL)  'ISSUE.2403) )
(insert-item ISSUE ISSUE.2403)
(defvar ISSUE.896)
(prog1 (setf ISSUE.896 (make-instance 'ISSUE))
(setf (slot-value ISSUE.896 'NAME)  "Aircraft Carriers") 
(setf (slot-value ISSUE.896 'SYNONYMS)  (list  'CARRIERS)
) 
(setf (slot-value ISSUE.896 'ISA)  (list  'CONVENTIONAL-DEFENSE)
) 
(setf (slot-value ISSUE.896 'POLARITY)  "Support building aircraft carriers") 
(setf (slot-value ISSUE.896 'ENGLISH)  "building more aircraft carriers") 
(setf (slot-value ISSUE.896 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO C CARRIERS ISSUE))
(init-stance '(CONVENTIONAL-DEFENSE PRO C CARRIERS ISSUE))
)
) 
(setf (slot-value ISSUE.896 'CON-STANCES)  (list (init-stance '(DEFICIT CON C CARRIERS ISSUE))
)
) 
(setf (slot-value ISSUE.896 'STATUS)  "Active") 
(setf (slot-value ISSUE.896 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.896 'SYMBOL)  'ISSUE.896) )
(insert-item ISSUE ISSUE.896)
(defvar ISSUE.2407)
(prog1 (setf ISSUE.2407 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2407 'NAME)  "Angola") 
(setf (slot-value ISSUE.2407 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.2407 'ISA)  (list  'AFRICA)
) 
(setf (slot-value ISSUE.2407 'ENGLISH)  "Angola") 
(setf (slot-value ISSUE.2407 'GROUPS)  (list  'UNITA)
) 
(setf (slot-value ISSUE.2407 'STATUS)  "Active") 
(setf (slot-value ISSUE.2407 'DATE-OPEN) (list->date '(9 1 1988))) 
(setf (slot-value ISSUE.2407 'SYMBOL)  'ISSUE.2407) )
(insert-item ISSUE ISSUE.2407)
(defvar ISSUE.807)
(prog1 (setf ISSUE.807 (make-instance 'ISSUE))
(setf (slot-value ISSUE.807 'NAME)  "Angola Rebels") 
(setf (slot-value ISSUE.807 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.807 'SYNONYMS)  (list  'ANGOLA-REBELS)
) 
(setf (slot-value ISSUE.807 'ISA)  (list  'ANGOLA)
) 
(setf (slot-value ISSUE.807 'ENGLISH)  "the Angolan rebels") 
(setf (slot-value ISSUE.807 'GROUPS)  (list  'UNITA)
) 
(setf (slot-value ISSUE.807 'STATUS)  "Active") 
(setf (slot-value ISSUE.807 'DATE-OPEN) (list->date '(2 18 1989))) 
(setf (slot-value ISSUE.807 'SYMBOL)  'ISSUE.807) )
(insert-item ISSUE ISSUE.807)
(defvar ISSUE.900)
(prog1 (setf ISSUE.900 (make-instance 'ISSUE))
(setf (slot-value ISSUE.900 'NAME)  "Anti-Ballistic Missile Treaty") 
(setf (slot-value ISSUE.900 'SYNONYMS)  (list  'ABM)
) 
(setf (slot-value ISSUE.900 'ISA)  (list  'ARMS-CONTROL)
) 
(setf (slot-value ISSUE.900 'POLARITY)  "Support ABM Treaty") 
(setf (slot-value ISSUE.900 'ENGLISH)  "the Anti-ballistic missile treaty") 
(setf (slot-value ISSUE.900 'ENGLISH-SHORT)  "the ABM treaty") 
(setf (slot-value ISSUE.900 'PRO-STANCES)  (list (init-stance '(SECURITY PRO B ABM ISSUE))
(init-stance '(DEFICIT CON C ABM ISSUE))
(init-stance '(ARMS-CONTROL PRO B ABM ISSUE))
)
) 
(setf (slot-value ISSUE.900 'CON-STANCES)  (list (init-stance '(DEFENSE PRO B ABM ISSUE))
(init-stance '(COMMUNISM PRO B ABM ISSUE))
)
) 
(setf (slot-value ISSUE.900 'NORM) (init-stance '(ABM PRO C ISSUE.900 ISSUE))
) 
(setf (slot-value ISSUE.900 'STATUS)  "Active") 
(setf (slot-value ISSUE.900 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.900 'SYMBOL)  'ISSUE.900) )
(insert-item ISSUE ISSUE.900)
(defvar ISSUE.814)
(prog1 (setf ISSUE.814 (make-instance 'ISSUE))
(setf (slot-value ISSUE.814 'NAME)  "Anti-Semitism") 
(setf (slot-value ISSUE.814 'ISA)  (list  'RACISM)
) 
(setf (slot-value ISSUE.814 'POLARITY)  "Oppose Jews") 
(setf (slot-value ISSUE.814 'ENGLISH)  "anti-Semitism in all its forms") 
(setf (slot-value ISSUE.814 'ENGLISH-SHORT)  "anti-Semitism") 
(setf (slot-value ISSUE.814 'CON-STANCES)  (list (init-stance '(VALUES PRO B ANTI-SEMITISM ISSUE))
(init-stance '(CIVIL-RIGHTS PRO B ANTI-SEMITISM ISSUE))
)
) 
(setf (slot-value ISSUE.814 'NORM) (init-stance '(ANTI-SEMITISM CON B ISSUE.814 ISSUE))
) 
(setf (slot-value ISSUE.814 'STATUS)  "Active") 
(setf (slot-value ISSUE.814 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.814 'SYMBOL)  'ISSUE.814) )
(insert-item ISSUE ISSUE.814)
(defvar ISSUE.2655)
(prog1 (setf ISSUE.2655 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2655 'NAME)  "Anti-trust reform") 
(setf (slot-value ISSUE.2655 'SYNONYMS)  (list  'ANTI-TRUST-REFORM)
) 
(setf (slot-value ISSUE.2655 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.2655 'POLARITY)  "Support efforts to reform anti-trust policy") 
(setf (slot-value ISSUE.2655 'ENGLISH)  "reform of anti-trust laws") 
(setf (slot-value ISSUE.2655 'ENGLISH-SHORT)  "anti-trust reform") 
(setf (slot-value ISSUE.2655 'PRO-STANCES)  (list (init-stance '(FAIRNESS PRO B ANTI-TRUST-REFORM ISSUE))
(init-stance '(REGULATION PRO B ANTI-TRUST-REFORM ISSUE))
)
) 
(setf (slot-value ISSUE.2655 'CON-STANCES)  (list (init-stance '(BUSINESS PRO C ANTI-TRUST-REFORM ISSUE))
(init-stance '(FREE-MARKET PRO B ANTI-TRUST-REFORM ISSUE))
(init-stance '(DEREGULATION PRO B ANTI-TRUST-REFORM ISSUE))
)
) 
(setf (slot-value ISSUE.2655 'NORM) (init-stance '(ANTI-TRUST-REFORM PRO C ISSUE.2655 ISSUE))
) 
(setf (slot-value ISSUE.2655 'STATUS)  "Active") 
(setf (slot-value ISSUE.2655 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2655 'SYMBOL)  'ISSUE.2655) )
(insert-item ISSUE ISSUE.2655)
(defvar ISSUE.3816)
(prog1 (setf ISSUE.3816 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3816 'NAME)  "Apartheid") 
(setf (slot-value ISSUE.3816 'TYPE)  'PROBLEM) 
(setf (slot-value ISSUE.3816 'ISA)  (list  'SOUTH-AFRICA)
) 
(setf (slot-value ISSUE.3816 'POLARITY)  "Support white rule in South Africa") 
(setf (slot-value ISSUE.3816 'ENGLISH)  "apartheid and white rule in South Africa") 
(setf (slot-value ISSUE.3816 'ENGLISH-SHORT)  "apartheid") 
(setf (slot-value ISSUE.3816 'PRO-STANCES)  (list (init-stance '(SOUTH-AFRICA PRO C APARTHEID ISSUE))
)
) 
(setf (slot-value ISSUE.3816 'CON-STANCES)  (list (init-stance '(CIVIL-RIGHTS PRO B APARTHEID ISSUE))
(init-stance '(VOTING-RIGHTS PRO B APARTHEID ISSUE))
(init-stance '(EQUALITY PRO B APARTHEID ISSUE))
(init-stance '(FREEDOM PRO B APARTHEID ISSUE))
(init-stance '(FAIRNESS PRO B APARTHEID ISSUE))
)
) 
(setf (slot-value ISSUE.3816 'NORM) (init-stance '(APARTHEID CON B ISSUE.3816 ISSUE))
) 
(setf (slot-value ISSUE.3816 'STATUS)  "Active") 
(setf (slot-value ISSUE.3816 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3816 'SYMBOL)  'ISSUE.3816) )
(insert-item ISSUE ISSUE.3816)
(defvar ISSUE.816)
(prog1 (setf ISSUE.816 (make-instance 'ISSUE))
(setf (slot-value ISSUE.816 'NAME)  "Arab-Israeli Conflict") 
(setf (slot-value ISSUE.816 'SYNONYMS)  (list  'ARAB-ISRAELI-CONFLICT)
) 
(setf (slot-value ISSUE.816 'ISA)  (list  'MID-EAST)
) 
(setf (slot-value ISSUE.816 'ENGLISH)  "a resolution of the Arab-Israeli conflict") 
(setf (slot-value ISSUE.816 'ENGLISH-SHORT)  "a Middle East peace settlement") 
(setf (slot-value ISSUE.816 'GROUPS)  (list  'ISRAEL 'PLO)
) 
(setf (slot-value ISSUE.816 'PRO-STANCES)  (list (init-stance '(PEACE PRO B ARAB-ISRAELI-CONFLICT ISSUE))
(init-stance '(PALESTINIAN-HOMELAND PRO B ARAB-ISRAELI-CONFLICT ISSUE))
)
) 
(setf (slot-value ISSUE.816 'NORM) (init-stance '(ARAB-ISRAELI-CONFLICT PRO B ISSUE.816 ISSUE))
) 
(setf (slot-value ISSUE.816 'STATUS)  "Active") 
(setf (slot-value ISSUE.816 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.816 'SYMBOL)  'ISSUE.816) )
(insert-item ISSUE ISSUE.816)
(defvar ISSUE.902)
(prog1 (setf ISSUE.902 (make-instance 'ISSUE))
(setf (slot-value ISSUE.902 'NAME)  "Armored Divisions") 
(setf (slot-value ISSUE.902 'SYNONYMS)  (list  'ARMORED-DIVISIONS 'TANKS)
) 
(setf (slot-value ISSUE.902 'ISA)  (list  'CONVENTIONAL-DEFENSE)
) 
(setf (slot-value ISSUE.902 'POLARITY)  "Support building armored divisions") 
(setf (slot-value ISSUE.902 'ENGLISH)  "building more armored divisions") 
(setf (slot-value ISSUE.902 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO C ARMORED-DIVISIONS ISSUE))
(init-stance '(CONVENTIONAL-DEFENSE PRO C ARMORED-DIVISIONS ISSUE))
)
) 
(setf (slot-value ISSUE.902 'CON-STANCES)  (list (init-stance '(DEFICIT CON C ARMORED-DIVISIONS ISSUE))
)
) 
(setf (slot-value ISSUE.902 'STATUS)  "Active") 
(setf (slot-value ISSUE.902 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.902 'SYMBOL)  'ISSUE.902) )
(insert-item ISSUE ISSUE.902)
(defvar ISSUE.3811)
(prog1 (setf ISSUE.3811 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3811 'NAME)  "Arms Control") 
(setf (slot-value ISSUE.3811 'SYNONYMS)  (list  'ARMS-CONTROL)
) 
(setf (slot-value ISSUE.3811 'ISA)  (list  'DEFENSE)
) 
(setf (slot-value ISSUE.3811 'POLARITY)  "Support federal efforts to negotiate arms control agreements") 
(setf (slot-value ISSUE.3811 'ENGLISH)  "efforts to negotiate arms control agreements") 
(setf (slot-value ISSUE.3811 'ENGLISH-SHORT)  "arms control") 
(setf (slot-value ISSUE.3811 'PRO-STANCES)  (list (init-stance '(SECURITY PRO B ARMS-CONTROL ISSUE))
(init-stance '(DEFICIT CON C ARMS-CONTROL ISSUE))
(init-stance '(FUTURE PRO B ARMS-CONTROL ISSUE))
)
) 
(setf (slot-value ISSUE.3811 'CON-STANCES)  (list (init-stance '(DEFENSE PRO B ARMS-CONTROL ISSUE))
)
) 
(setf (slot-value ISSUE.3811 'NORM) (init-stance '(ARMS-CONTROL PRO B ISSUE.3811 ISSUE))
) 
(setf (slot-value ISSUE.3811 'STATUS)  "Active") 
(setf (slot-value ISSUE.3811 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3811 'SYMBOL)  'ISSUE.3811) )
(insert-item ISSUE ISSUE.3811)
(defvar ISSUE.908)
(prog1 (setf ISSUE.908 (make-instance 'ISSUE))
(setf (slot-value ISSUE.908 'NAME)  "B-1 Bomber") 
(setf (slot-value ISSUE.908 'SYNONYMS)  (list  'B-1 'B1)
) 
(setf (slot-value ISSUE.908 'ISA)  (list  'NUCLEAR-WEAPON)
) 
(setf (slot-value ISSUE.908 'POLARITY)  "Support building B-1 bomber") 
(setf (slot-value ISSUE.908 'ENGLISH)  "building the B-1 bomber") 
(setf (slot-value ISSUE.908 'ENGLISH-SHORT)  "the B-1 bomber") 
(setf (slot-value ISSUE.908 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO B B-1 ISSUE))
(init-stance '(NUCLEAR-WEAPON PRO B B-1 ISSUE))
)
) 
(setf (slot-value ISSUE.908 'CON-STANCES)  (list (init-stance '(DEFICIT CON B B-1 ISSUE))
(init-stance '(PEACE PRO B B-1 ISSUE))
)
) 
(setf (slot-value ISSUE.908 'STATUS)  "Active") 
(setf (slot-value ISSUE.908 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.908 'SYMBOL)  'ISSUE.908) 
(setf (slot-value ISSUE.908 'KEYWORDS)  (list  'AIR-BASED)
) )
(insert-item ISSUE ISSUE.908)
(defvar ISSUE.45)
(prog1 (setf ISSUE.45 (make-instance 'ISSUE))
(setf (slot-value ISSUE.45 'NAME)  "Balance of Power") 
(setf (slot-value ISSUE.45 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.45 'SYNONYMS)  (list  'BALANCE-OF-POWER)
) 
(setf (slot-value ISSUE.45 'POLARITY)  "Support maintaining the balance of power between east and west") 
(setf (slot-value ISSUE.45 'ENGLISH)  "maintaining a balance of power between east and west") 
(setf (slot-value ISSUE.45 'ENGLISH-SHORT)  "the balance of power") 
(setf (slot-value ISSUE.45 'PRO-STANCES)  (list (init-stance '(PEACE PRO B BALANCE-OF-POWER ISSUE))
(init-stance '(DEFENSE PRO B BALANCE-OF-POWER ISSUE))
(init-stance '(EAST-WEST PRO C BALANCE-OF-POWER ISSUE))
)
) 
(setf (slot-value ISSUE.45 'NORM) (init-stance '(BALANCE-OF-POWER PRO B ISSUE.45 ISSUE))
) 
(setf (slot-value ISSUE.45 'STATUS)  "Active") 
(setf (slot-value ISSUE.45 'DATE-OPEN) (list->date '(3 17 1990))) 
(setf (slot-value ISSUE.45 'SYMBOL)  'ISSUE.45) )
(insert-item ISSUE ISSUE.45)
(defvar ISSUE.3242)
(prog1 (setf ISSUE.3242 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3242 'NAME)  "Balanced Budget") 
(setf (slot-value ISSUE.3242 'SYNONYMS)  (list  'BALANCED-BUDGET)
) 
(setf (slot-value ISSUE.3242 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.3242 'POLARITY)  "Support efforts to balance federal budget") 
(setf (slot-value ISSUE.3242 'ENGLISH)  "efforts to balance the federal budget") 
(setf (slot-value ISSUE.3242 'ENGLISH-SHORT)  "a balanced budget") 
(setf (slot-value ISSUE.3242 'PRO-STANCES)  (list (init-stance '(FISCAL-RESPONSIBILITY PRO B BALANCED-BUDGET ISSUE))
(init-stance '(INFLATION PRO B BALANCED-BUDGET ISSUE))
(init-stance '(FUTURE PRO B BALANCED-BUDGET ISSUE))
)
) 
(setf (slot-value ISSUE.3242 'CON-STANCES)  (list (init-stance '(TAX-CUTS PRO B BALANCED-BUDGET ISSUE))
(init-stance '(DEFENSE PRO B BALANCED-BUDGET ISSUE))
(init-stance '(JOBS PRO C BALANCED-BUDGET ISSUE))
)
) 
(setf (slot-value ISSUE.3242 'NORM) (init-stance '(BALANCED-BUDGET PRO C ISSUE.3242 ISSUE))
) 
(setf (slot-value ISSUE.3242 'OPPOSITE)  'DEFICIT) 
(setf (slot-value ISSUE.3242 'STATUS)  "Active") 
(setf (slot-value ISSUE.3242 'DATE-OPEN) (list->date '(8 31 1988))) 
(setf (slot-value ISSUE.3242 'SYMBOL)  'ISSUE.3242) )
(insert-item ISSUE ISSUE.3242)
(defvar ISSUE.2657)
(prog1 (setf ISSUE.2657 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2657 'NAME)  "Banking industry") 
(setf (slot-value ISSUE.2657 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.2657 'SYNONYMS)  (list  'BANKING)
) 
(setf (slot-value ISSUE.2657 'ISA)  (list  'INDUSTRY)
) 
(setf (slot-value ISSUE.2657 'POLARITY)  "Support regulations and funding for banking industry") 
(setf (slot-value ISSUE.2657 'ENGLISH)  "the banking industry") 
(setf (slot-value ISSUE.2657 'ENGLISH-SHORT)  "banking") 
(setf (slot-value ISSUE.2657 'PRO-STANCES)  (list (init-stance '(INDUSTRY PRO B BANKING ISSUE))
(init-stance '(FREE-ENTERPRISE PRO C BANKING ISSUE))
)
) 
(setf (slot-value ISSUE.2657 'CON-STANCES)  (list (init-stance '(CONSUMER PRO C BANKING ISSUE))
(init-stance '(REGULATIONS PRO C BANKING ISSUE))
)
) 
(setf (slot-value ISSUE.2657 'STATUS)  "Active") 
(setf (slot-value ISSUE.2657 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2657 'SYMBOL)  'ISSUE.2657) )
(insert-item ISSUE ISSUE.2657)
(defvar ISSUE.3819)
(prog1 (setf ISSUE.3819 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3819 'NAME)  "Birth Control") 
(setf (slot-value ISSUE.3819 'TYPE)  'RIGHT) 
(setf (slot-value ISSUE.3819 'SYNONYMS)  (list  'BIRTH-CONTROL)
) 
(setf (slot-value ISSUE.3819 'ISA)  (list  'SOCIAL)
) 
(setf (slot-value ISSUE.3819 'POLARITY)  "Support rights for artificial birth control") 
(setf (slot-value ISSUE.3819 'ENGLISH)  "artificial birth control") 
(setf (slot-value ISSUE.3819 'ENGLISH-SHORT)  "birth control") 
(setf (slot-value ISSUE.3819 'PRO-STANCES)  (list (init-stance '(PRIVACY PRO B BIRTH-CONTROL ISSUE))
(init-stance '(FAIRNESS PRO C BIRTH-CONTROL ISSUE))
(init-stance '(WOMENS-RIGHTS PRO B BIRTH-CONTROL ISSUE))
)
) 
(setf (slot-value ISSUE.3819 'NORM) (init-stance '(BIRTH-CONTROL PRO C ISSUE.3819 ISSUE))
) 
(setf (slot-value ISSUE.3819 'STATUS)  "Active") 
(setf (slot-value ISSUE.3819 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3819 'SYMBOL)  'ISSUE.3819) )
(insert-item ISSUE ISSUE.3819)
(defvar ISSUE.2659)
(prog1 (setf ISSUE.2659 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2659 'NAME)  "Bond Taxation") 
(setf (slot-value ISSUE.2659 'SYNONYMS)  (list  'BOND-TAXATION)
) 
(setf (slot-value ISSUE.2659 'ISA)  (list  'TAXES)
) 
(setf (slot-value ISSUE.2659 'POLARITY)  "Support taxes on municipal bonds") 
(setf (slot-value ISSUE.2659 'ENGLISH)  "taxes on municipal bonds") 
(setf (slot-value ISSUE.2659 'PRO-STANCES)  (list (init-stance '(HELP-WEALTHY CON B BOND-TAXATION ISSUE))
(init-stance '(FAIRNESS PRO B BOND-TAXATION ISSUE))
)
) 
(setf (slot-value ISSUE.2659 'CON-STANCES)  (list (init-stance '(PROSPERITY PRO C BOND-TAXATION ISSUE))
(init-stance '(TAX-CUTS PRO B BOND-TAXATION ISSUE))
)
) 
(setf (slot-value ISSUE.2659 'NORM) (init-stance '(BOND-TAXATION CON C ISSUE.2659 ISSUE))
) 
(setf (slot-value ISSUE.2659 'STATUS)  "Active") 
(setf (slot-value ISSUE.2659 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2659 'SYMBOL)  'ISSUE.2659) )
(insert-item ISSUE ISSUE.2659)
(defvar ISSUE.3847)
(prog1 (setf ISSUE.3847 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3847 'NAME)  "Bork Appointment") 
(setf (slot-value ISSUE.3847 'TYPE)  'NOMINATION) 
(setf (slot-value ISSUE.3847 'SYNONYMS)  (list  'BORK)
) 
(setf (slot-value ISSUE.3847 'ISA)  (list  'JUDGESHIP)
) 
(setf (slot-value ISSUE.3847 'POLARITY)  "Support nomination of Robert Bork to Supreme Court") 
(setf (slot-value ISSUE.3847 'ENGLISH)  "Robert Bork to the Supreme Court") 
(setf (slot-value ISSUE.3847 'PRO-STANCES)  (list (init-stance '(DEREGULATION PRO B BORK ISSUE))
(init-stance '(CONSTITUTION PRO B BORK ISSUE))
(init-stance '(PRAYER PRO B BORK ISSUE))
)
) 
(setf (slot-value ISSUE.3847 'CON-STANCES)  (list (init-stance '(AFFIRMATIVE-ACTION PRO B BORK ISSUE))
(init-stance '(CIVIL-RIGHTS PRO B BORK ISSUE))
(init-stance '(PRIVACY PRO B BORK ISSUE))
(init-stance '(FAIRNESS PRO B BORK ISSUE))
(init-stance '(GAY-RIGHTS PRO B BORK ISSUE))
)
) 
(setf (slot-value ISSUE.3847 'STATUS)  "Active") 
(setf (slot-value ISSUE.3847 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3847 'SYMBOL)  'ISSUE.3847) )
(insert-item ISSUE ISSUE.3847)
(defvar ISSUE.835)
(prog1 (setf ISSUE.835 (make-instance 'ISSUE))
(setf (slot-value ISSUE.835 'NAME)  "Budget Freeze") 
(setf (slot-value ISSUE.835 'TYPE)  'PROPOSAL) 
(setf (slot-value ISSUE.835 'SYNONYMS)  (list  'BUDGET-FREEZE 'FREEZE)
) 
(setf (slot-value ISSUE.835 'ISA)  (list  'SPENDING)
) 
(setf (slot-value ISSUE.835 'POLARITY)  "Support freeze on federal spending") 
(setf (slot-value ISSUE.835 'ENGLISH)  "a freeze on federal spending") 
(setf (slot-value ISSUE.835 'ENGLISH-SHORT)  "a budget freeze") 
(setf (slot-value ISSUE.835 'PRO-STANCES)  (list (init-stance '(BALANCED-BUDGET PRO C BUDGET-FREEZE ISSUE))
(init-stance '(BUDGET-DEFICIT CON C BUDGET-FREEZE ISSUE))
(init-stance '(FISCAL-RESPONSIBILITY PRO B BUDGET-FREEZE ISSUE))
)
) 
(setf (slot-value ISSUE.835 'CON-STANCES)  (list (init-stance '(SPENDING CON C BUDGET-FREEZE ISSUE))
(init-stance '(DEFENSE PRO B BUDGET-FREEZE ISSUE))
)
) 
(setf (slot-value ISSUE.835 'STATUS)  "Active") 
(setf (slot-value ISSUE.835 'DATE-OPEN) (list->date '(4 14 1989))) 
(setf (slot-value ISSUE.835 'SYMBOL)  'ISSUE.835) )
(insert-item ISSUE ISSUE.835)
(defvar ISSUE.2139)
(prog1 (setf ISSUE.2139 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2139 'NAME)  "Business") 
(setf (slot-value ISSUE.2139 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.2139 'SYNONYMS)  (list  'INDUSTRY)
) 
(setf (slot-value ISSUE.2139 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.2139 'POLARITY)  "Support federal actions favorable to business") 
(setf (slot-value ISSUE.2139 'ENGLISH)  "the business community") 
(setf (slot-value ISSUE.2139 'ENGLISH-SHORT)  "big business") 
(setf (slot-value ISSUE.2139 'PRO-STANCES)  (list (init-stance '(PROSPERITY PRO B BUSINESS ISSUE))
(init-stance '(DEREGULATION PRO B BUSINESS ISSUE))
)
) 
(setf (slot-value ISSUE.2139 'CON-STANCES)  (list (init-stance '(CONSUMER PRO B BUSINESS ISSUE))
(init-stance '(ECOLOGY PRO B BUSINESS ISSUE))
)
) 
(setf (slot-value ISSUE.2139 'STATUS)  "Active") 
(setf (slot-value ISSUE.2139 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2139 'SYMBOL)  'ISSUE.2139) )
(insert-item ISSUE ISSUE.2139)
(defvar ISSUE.3839)
(prog1 (setf ISSUE.3839 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3839 'NAME)  "Cabinet Level Veterans Department") 
(setf (slot-value ISSUE.3839 'TYPE)  'PROPOSAL) 
(setf (slot-value ISSUE.3839 'SYNONYMS)  (list  'CABINET-VETERANS)
) 
(setf (slot-value ISSUE.3839 'ISA)  (list  'VETERANS)
) 
(setf (slot-value ISSUE.3839 'POLARITY)  "Support establishment of cabinet level veterans department") 
(setf (slot-value ISSUE.3839 'ENGLISH)  "Cabinet-level Veterans' Department") 
(setf (slot-value ISSUE.3839 'ENGLISH-SHORT)  "Veterans' Department") 
(setf (slot-value ISSUE.3839 'PRO-STANCES)  (list (init-stance '(VETERANS PRO A CABINET-VETERANS ISSUE))
(init-stance '(DEFENSE PRO C CABINET-VETERANS ISSUE))
)
) 
(setf (slot-value ISSUE.3839 'NORM) (init-stance '(CABINET-VETERANS PRO C ISSUE.3839 ISSUE))
) 
(setf (slot-value ISSUE.3839 'STATUS)  "Active") 
(setf (slot-value ISSUE.3839 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3839 'SYMBOL)  'ISSUE.3839) )
(insert-item ISSUE ISSUE.3839)
(defvar ISSUE.2656)
(prog1 (setf ISSUE.2656 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2656 'NAME)  "Campaign Finance Reform") 
(setf (slot-value ISSUE.2656 'SYNONYMS)  (list  'CAMPAIGN-FINANCE)
) 
(setf (slot-value ISSUE.2656 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.2656 'POLARITY)  "Support government funding of political campaigns") 
(setf (slot-value ISSUE.2656 'ENGLISH)  "government funding of political campaigns") 
(setf (slot-value ISSUE.2656 'ENGLISH-SHORT)  "campaign reform") 
(setf (slot-value ISSUE.2656 'PRO-STANCES)  (list (init-stance '(HONESTY PRO B CAMPAIGN-FINANCE ISSUE))
(init-stance '(ELECTION PRO B CAMPAIGN-FINANCE ISSUE))
(init-stance '(PROGRESS PRO C CAMPAIGN-FINANCE ISSUE))
)
) 
(setf (slot-value ISSUE.2656 'CON-STANCES)  (list (init-stance '(FREE-ENTERPRISE PRO B CAMPAIGN-FINANCE ISSUE))
(init-stance '(DEFICIT CON C CAMPAIGN-FINANCE ISSUE))
(init-stance '(TRADITION PRO C CAMPAIGN-FINANCE ISSUE))
)
) 
(setf (slot-value ISSUE.2656 'NORM) (init-stance '(CAMPAIGN-FINANCE PRO C ISSUE.2656 ISSUE))
) 
(setf (slot-value ISSUE.2656 'STATUS)  "Active") 
(setf (slot-value ISSUE.2656 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2656 'SYMBOL)  'ISSUE.2656) )
(insert-item ISSUE ISSUE.2656)
(defvar ISSUE.720)
(prog1 (setf ISSUE.720 (make-instance 'ISSUE))
(setf (slot-value ISSUE.720 'NAME)  "Cancer research") 
(setf (slot-value ISSUE.720 'SYNONYMS)  (list  'CANCER)
) 
(setf (slot-value ISSUE.720 'ISA)  (list  'HEALTH)
) 
(setf (slot-value ISSUE.720 'POLARITY)  "Support funding cancer research") 
(setf (slot-value ISSUE.720 'ENGLISH)  "increased funding for cancer research") 
(setf (slot-value ISSUE.720 'ENGLISH-SHORT)  "cancer research") 
(setf (slot-value ISSUE.720 'PRO-ENGLISH)  "increased funding for cancer research") 
(setf (slot-value ISSUE.720 'PRO-STANCES)  (list (init-stance '(COMPASSION PRO C CANCER ISSUE))
(init-stance '(HEALTH PRO C CANCER ISSUE))
)
) 
(setf (slot-value ISSUE.720 'CON-STANCES)  (list (init-stance '(SPENDING CON C CANCER ISSUE))
(init-stance '(DEFICIT CON B CANCER ISSUE))
)
) 
(setf (slot-value ISSUE.720 'NORM) (init-stance '(CANCER PRO B ISSUE.720 ISSUE))
) 
(setf (slot-value ISSUE.720 'STATUS)  "Active") 
(setf (slot-value ISSUE.720 'DATE-OPEN) (list->date '(11 2 1989))) 
(setf (slot-value ISSUE.720 'SYMBOL)  'ISSUE.720) )
(insert-item ISSUE ISSUE.720)
(defvar ISSUE.3856)
(prog1 (setf ISSUE.3856 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3856 'NAME)  "Capital Punishment") 
(setf (slot-value ISSUE.3856 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.3856 'SYNONYMS)  (list  'CAPITAL-PUNISHMENT 'DEATH-PENALTY)
) 
(setf (slot-value ISSUE.3856 'ISA)  (list  'LAW-ENFORCEMENT)
) 
(setf (slot-value ISSUE.3856 'POLARITY)  "Support capital punishment for criminals") 
(setf (slot-value ISSUE.3856 'ENGLISH)  "capital punishment") 
(setf (slot-value ISSUE.3856 'ENGLISH-SHORT)  "the death penalty") 
(setf (slot-value ISSUE.3856 'PRO-STANCES)  (list (init-stance '(LAW-AND-ORDER PRO B CAPITAL-PUNISHMENT ISSUE))
(init-stance '(RETRIBUTION PRO B CAPITAL-PUNISHMENT ISSUE))
)
) 
(setf (slot-value ISSUE.3856 'CON-STANCES)  (list (init-stance '(COMPASSION PRO C CAPITAL-PUNISHMENT ISSUE))
(init-stance '(VALUES PRO B CAPITAL-PUNISHMENT ISSUE))
(init-stance '(CONSTITUTION PRO C CAPITAL-PUNISHMENT ISSUE))
)
) 
(setf (slot-value ISSUE.3856 'NORM) (init-stance '(CAPITAL-PUNISHMENT PRO C ISSUE.3856 ISSUE))
) 
(setf (slot-value ISSUE.3856 'STATUS)  "Active") 
(setf (slot-value ISSUE.3856 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3856 'SYMBOL)  'ISSUE.3856) )
(insert-item ISSUE ISSUE.3856)
(defvar ISSUE.713)
(prog1 (setf ISSUE.713 (make-instance 'ISSUE))
(setf (slot-value ISSUE.713 'NAME)  "Capital gains tax cut") 
(setf (slot-value ISSUE.713 'TYPE)  'ECONOMIC) 
(setf (slot-value ISSUE.713 'SYNONYMS)  (list  'CAPITAL-GAINS-TAX-CUT)
) 
(setf (slot-value ISSUE.713 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.713 'POLARITY)  "Support a cut in the capital gains tax") 
(setf (slot-value ISSUE.713 'ENGLISH)  "a cut in the capital gains tax") 
(setf (slot-value ISSUE.713 'ENGLISH-SHORT)  "a capital gains tax cut") 
(setf (slot-value ISSUE.713 'PRO-ENGLISH)  "a capital gains tax cut to spur investment") 
(setf (slot-value ISSUE.713 'CON-ENGLISH)  "a capital gains cut which amounts to welfare for the rich") 
(setf (slot-value ISSUE.713 'PRO-STANCES)  (list (init-stance '(SPUR-INVESTMENT PRO B CAPITAL-GAINS-TAX-CUT ISSUE))
(init-stance '(CUT-TAXES PRO B CAPITAL-GAINS-TAX-CUT ISSUE))
(init-stance '(BUSINESS PRO C CAPITAL-GAINS-TAX-CUT ISSUE))
(init-stance '(JOBS PRO C CAPITAL-GAINS-TAX-CUT ISSUE))
)
) 
(setf (slot-value ISSUE.713 'CON-STANCES)  (list (init-stance '(FAIRNESS PRO B CAPITAL-GAINS-TAX-CUT ISSUE))
(init-stance '(DEFICIT CON C CAPITAL-GAINS-TAX-CUT ISSUE))
)
) 
(setf (slot-value ISSUE.713 'NORM) (init-stance '(CAPITAL-GAINS-TAX-CUT PRO C ISSUE.713 ISSUE))
) 
(setf (slot-value ISSUE.713 'STATUS)  "Active") 
(setf (slot-value ISSUE.713 'DATE-OPEN) (list->date '(9 29 1989))) 
(setf (slot-value ISSUE.713 'SYMBOL)  'ISSUE.713) )
(insert-item ISSUE ISSUE.713)
(defvar ISSUE.1016)
(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)
(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) )
(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)
(prog1 (setf ISSUE.885 (make-instance 'ISSUE))
(setf (slot-value ISSUE.885 'NAME)  "North Atlantic Treaty Organization") 
(setf (slot-value ISSUE.885 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.885 'SYNONYMS)  (list  'NATO)
) 
(setf (slot-value ISSUE.885 'ISA)  (list  'FOREIGN-ORG)
) 
(setf (slot-value ISSUE.885 'ENGLISH)  "the North Atlantic Treaty Organization") 
(setf (slot-value ISSUE.885 'ENGLISH-SHORT)  "NATO") 
(setf (slot-value ISSUE.885 'PRO-STANCES)  (list (init-stance '(FOREIGN-ORG PRO B NATO ISSUE))
(init-stance '(FOREIGN PRO B NATO ISSUE))
(init-stance '(EAST-WEST PRO B NATO ISSUE))
(init-stance '(NATIONAL-SECURITY PRO B NATO ISSUE))
)
) 
(setf (slot-value ISSUE.885 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO B NATO ISSUE))
)
) 
(setf (slot-value ISSUE.885 'NORM) (init-stance '(NATO PRO C ISSUE.885 ISSUE))
) 
(setf (slot-value ISSUE.885 'STATUS)  "Active") 
(setf (slot-value ISSUE.885 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.885 'SYMBOL)  'ISSUE.885) )
(insert-item ISSUE ISSUE.885)
(defvar ISSUE.888)
(prog1 (setf ISSUE.888 (make-instance 'ISSUE))
(setf (slot-value ISSUE.888 'NAME)  "North-South Relationships") 
(setf (slot-value ISSUE.888 'SYNONYMS)  (list  'THIRD-WORLD 'NORTH-SOUTH 'RICH-POOR)
) 
(setf (slot-value ISSUE.888 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.888 'ENGLISH)  "third world countries") 
(setf (slot-value ISSUE.888 'ENGLISH-SHORT)  "the third world") 
(setf (slot-value ISSUE.888 'NUMBER)  'PLUR) 
(setf (slot-value ISSUE.888 'PRO-STANCES)  (list (init-stance '(CENTRAL-AMERICA PRO B THIRD-WORLD ISSUE))
(init-stance '(THIRD-WORLD-DEBT PRO B THIRD-WORLD ISSUE))
(init-stance '(PEACE PRO B THIRD-WORLD ISSUE))
(init-stance '(HUNGER PRO B THIRD-WORLD ISSUE))
)
) 
(setf (slot-value ISSUE.888 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO C THIRD-WORLD ISSUE))
)
) 
(setf (slot-value ISSUE.888 'NORM) (init-stance '(THIRD-WORLD PRO C ISSUE.888 ISSUE))
) 
(setf (slot-value ISSUE.888 'STATUS)  "Active") 
(setf (slot-value ISSUE.888 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.888 'SYMBOL)  'ISSUE.888) )
(insert-item ISSUE ISSUE.888)
(defvar ISSUE.897)
(prog1 (setf ISSUE.897 (make-instance 'ISSUE))
(setf (slot-value ISSUE.897 'NAME)  "Nuclear Freeze") 
(setf (slot-value ISSUE.897 'TYPE)  'PROPOSAL) 
(setf (slot-value ISSUE.897 'SYNONYMS)  (list  'NUCLEAR-FREEZE)
) 
(setf (slot-value ISSUE.897 'ISA)  (list  'ARMS-CONTROL)
) 
(setf (slot-value ISSUE.897 'POLARITY)  "Support nuclear freeze proposal") 
(setf (slot-value ISSUE.897 'ENGLISH)  "a nuclear freeze") 
(setf (slot-value ISSUE.897 'PRO-ENGLISH)  "a verifiable nuclear freeze") 
(setf (slot-value ISSUE.897 'PRO-STANCES)  (list (init-stance '(NUCLEAR-WEAPON CON B NUCLEAR-FREEZE ISSUE))
(init-stance '(PEACE PRO B NUCLEAR-FREEZE ISSUE))
(init-stance '(ARMS-CONTROL PRO B NUCLEAR-FREEZE ISSUE))
(init-stance '(DEFICIT CON B NUCLEAR-FREEZE ISSUE))
)
) 
(setf (slot-value ISSUE.897 'CON-STANCES)  (list (init-stance '(NATIONAL-SECURITY PRO B NUCLEAR-FREEZE ISSUE))
(init-stance '(DEFENSE PRO B NUCLEAR-FREEZE ISSUE))
)
) 
(setf (slot-value ISSUE.897 'NORM) (init-stance '(NUCLEAR-FREEZE PRO C ISSUE.897 ISSUE))
) 
(setf (slot-value ISSUE.897 'STATUS)  "Active") 
(setf (slot-value ISSUE.897 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.897 'SYMBOL)  'ISSUE.897) )
(insert-item ISSUE ISSUE.897)
(defvar ISSUE.909)
(prog1 (setf ISSUE.909 (make-instance 'ISSUE))
(setf (slot-value ISSUE.909 'NAME)  "Nuclear Test Ban") 
(setf (slot-value ISSUE.909 'SYNONYMS)  (list  'NUCLEAR-TEST-BAN)
) 
(setf (slot-value ISSUE.909 'ISA)  (list  'ARMS-CONTROL)
) 
(setf (slot-value ISSUE.909 'POLARITY)  "Support nuclear test ban treaty") 
(setf (slot-value ISSUE.909 'ENGLISH)  "the Nuclear Test Ban Treaty") 
(setf (slot-value ISSUE.909 'PRO-STANCES)  (list (init-stance '(ARMS-CONTROL PRO B NUCLEAR-TEST-BAN ISSUE))
(init-stance '(PEACE PRO B NUCLEAR-TEST-BAN ISSUE))
)
) 
(setf (slot-value ISSUE.909 'CON-STANCES)  (list (init-stance '(NATIONAL-SECURITY PRO B NUCLEAR-TEST-BAN ISSUE))
(init-stance '(NUCLEAR-WEAPON PRO B NUCLEAR-TEST-BAN ISSUE))
)
) 
(setf (slot-value ISSUE.909 'NORM) (init-stance '(NUCLEAR-TEST-BAN PRO C ISSUE.909 ISSUE))
) 
(setf (slot-value ISSUE.909 'STATUS)  "Active") 
(setf (slot-value ISSUE.909 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.909 'SYMBOL)  'ISSUE.909) )
(insert-item ISSUE ISSUE.909)
(defvar ISSUE.904)
(prog1 (setf ISSUE.904 (make-instance 'ISSUE))
(setf (slot-value ISSUE.904 'NAME)  "Nuclear Weapons") 
(setf (slot-value ISSUE.904 'SYNONYMS)  (list  'NUCLEAR-WEAPON)
) 
(setf (slot-value ISSUE.904 'ISA)  (list  'WEAPONS)
) 
(setf (slot-value ISSUE.904 'POLARITY)  "Support building nuclear weapons") 
(setf (slot-value ISSUE.904 'ENGLISH)  "developing more effective nuclear weapons") 
(setf (slot-value ISSUE.904 'ENGLISH-SHORT)  "nuclear weapons") 
(setf (slot-value ISSUE.904 'CON-ENGLISH)  "the needless growth of our nuclear arsenal") 
(setf (slot-value ISSUE.904 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO B NUCLEAR-WEAPON ISSUE))
(init-stance '(NATIONAL-SECURITY PRO B NUCLEAR-WEAPON ISSUE))
(init-stance '(BALANCE-OF-POWER PRO A NUCLEAR-WEAPON ISSUE))
)
) 
(setf (slot-value ISSUE.904 'CON-STANCES)  (list (init-stance '(PEACE PRO B NUCLEAR-WEAPON ISSUE))
(init-stance '(FUTURE PRO B NUCLEAR-WEAPON ISSUE))
)
) 
(setf (slot-value ISSUE.904 'NORM) (init-stance '(NUCLEAR-WEAPON CON C ISSUE.904 ISSUE))
) 
(setf (slot-value ISSUE.904 'STATUS)  "Active") 
(setf (slot-value ISSUE.904 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.904 'SYMBOL)  'ISSUE.904) )
(insert-item ISSUE ISSUE.904)
(defvar ISSUE.1755)
(prog1 (setf ISSUE.1755 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1755 'NAME)  "Occupational Safety and Health") 
(setf (slot-value ISSUE.1755 'SYNONYMS)  (list  'SAFETY 'OSHA)
) 
(setf (slot-value ISSUE.1755 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.1755 'POLARITY)  "Support federal regulation of health and safety in the work place") 
(setf (slot-value ISSUE.1755 'ENGLISH)  "federal regulation of health and safety in the work place") 
(setf (slot-value ISSUE.1755 'ENGLISH-SHORT)  "OSHA") 
(setf (slot-value ISSUE.1755 'GROUPS)  (list  'OSHA 'CFA)
) 
(setf (slot-value ISSUE.1755 'PRO-STANCES)  (list (init-stance '(REGULATION PRO B SAFETY ISSUE))
(init-stance '(HEALTH PRO B SAFETY ISSUE))
(init-stance '(LABOR PRO B SAFETY ISSUE))
(init-stance '(FAIRNESS PRO B SAFETY ISSUE))
(init-stance '(PROGRESS PRO B SAFETY ISSUE))
)
) 
(setf (slot-value ISSUE.1755 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B SAFETY ISSUE))
(init-stance '(BUSINESS PRO B SAFETY ISSUE))
(init-stance '(FREE-MARKET PRO B SAFETY ISSUE))
(init-stance '(TRADITION PRO B SAFETY ISSUE))
)
) 
(setf (slot-value ISSUE.1755 'NORM) (init-stance '(SAFETY PRO C ISSUE.1755 ISSUE))
) 
(setf (slot-value ISSUE.1755 'STATUS)  "Active") 
(setf (slot-value ISSUE.1755 'DATE-OPEN) (list->date '(3 22 1989))) 
(setf (slot-value ISSUE.1755 'SYMBOL)  'ISSUE.1755) )
(insert-item ISSUE ISSUE.1755)
(defvar ISSUE.3853)
(prog1 (setf ISSUE.3853 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3853 'NAME)  "Open Housing") 
(setf (slot-value ISSUE.3853 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.3853 'SYNONYMS)  (list  'OPEN-HOUSING)
) 
(setf (slot-value ISSUE.3853 'ISA)  (list  'CIVIL-RIGHTS)
) 
(setf (slot-value ISSUE.3853 'POLARITY)  "Oppose housing discrimination") 
(setf (slot-value ISSUE.3853 'ENGLISH)  "eliminating housing discrimination") 
(setf (slot-value ISSUE.3853 'ENGLISH-SHORT)  "open housing") 
(setf (slot-value ISSUE.3853 'PRO-STANCES)  (list (init-stance '(CIVIL-RIGHTS PRO B OPEN-HOUSING ISSUE))
(init-stance '(FAIRNESS PRO B OPEN-HOUSING ISSUE))
(init-stance '(HOUSING PRO B OPEN-HOUSING ISSUE))
(init-stance '(JUSTICE PRO B OPEN-HOUSING ISSUE))
)
) 
(setf (slot-value ISSUE.3853 'NORM) (init-stance '(OPEN-HOUSING PRO C ISSUE.3853 ISSUE))
) 
(setf (slot-value ISSUE.3853 'STATUS)  "Active") 
(setf (slot-value ISSUE.3853 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3853 'SYMBOL)  'ISSUE.3853) )
(insert-item ISSUE ISSUE.3853)
(defvar ISSUE.3827)
(prog1 (setf ISSUE.3827 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3827 'NAME)  "Opposition to communism") 
(setf (slot-value ISSUE.3827 'SYNONYMS)  (list  'COMMUNISM)
) 
(setf (slot-value ISSUE.3827 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.3827 'POLARITY)  "Oppose communist aggression") 
(setf (slot-value ISSUE.3827 'ENGLISH)  "efforts to thwart communist aggression") 
(setf (slot-value ISSUE.3827 'ENGLISH-SHORT)  "fighting communism") 
(setf (slot-value ISSUE.3827 'PRO-STANCES)  (list (init-stance '(FREEDOM PRO A COMMUNISM ISSUE))
(init-stance '(FREE-MARKET PRO B COMMUNISM ISSUE))
(init-stance '(FREE-SPEECH PRO C COMMUNISM ISSUE))
)
) 
(setf (slot-value ISSUE.3827 'CON-STANCES)  (list (init-stance '(NON-INVOLVEMENT PRO B COMMUNISM ISSUE))
)
) 
(setf (slot-value ISSUE.3827 'NORM) (init-stance '(COMMUNISM PRO B ISSUE.3827 ISSUE))
) 
(setf (slot-value ISSUE.3827 'STATUS)  "Active") 
(setf (slot-value ISSUE.3827 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3827 'SYMBOL)  'ISSUE.3827) )
(insert-item ISSUE ISSUE.3827)
(defvar ISSUE.832)
(prog1 (setf ISSUE.832 (make-instance 'ISSUE))
(setf (slot-value ISSUE.832 'NAME)  "POWs") 
(setf (slot-value ISSUE.832 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.832 'ISA)  (list  'VETERANS)
) 
(setf (slot-value ISSUE.832 'POLARITY)  "Support efforts to release Vietnam POWs") 
(setf (slot-value ISSUE.832 'ENGLISH)  "Vietnam POWs") 
(setf (slot-value ISSUE.832 'ENGLISH-SHORT)  "POWs") 
(setf (slot-value ISSUE.832 'PRO-STANCES)  (list (init-stance '(VETERANS PRO B POWS ISSUE))
(init-stance '(PATRIOTISM PRO B POWS ISSUE))
)
) 
(setf (slot-value ISSUE.832 'NORM) (init-stance '(POWS PRO B ISSUE.832 ISSUE))
) 
(setf (slot-value ISSUE.832 'STATUS)  "Active") 
(setf (slot-value ISSUE.832 'DATE-OPEN) (list->date '(4 14 1989))) 
(setf (slot-value ISSUE.832 'SYMBOL)  'ISSUE.832) )
(insert-item ISSUE ISSUE.832)
(defvar ISSUE.911)
(prog1 (setf ISSUE.911 (make-instance 'ISSUE))
(setf (slot-value ISSUE.911 'NAME)  "Palestinian Homeland") 
(setf (slot-value ISSUE.911 'SYNONYMS)  (list  'PALESTINIAN-HOMELAND)
) 
(setf (slot-value ISSUE.911 'ISA)  (list  'MID-EAST)
) 
(setf (slot-value ISSUE.911 'POLARITY)  "Support the creation of a Palestinian homeland") 
(setf (slot-value ISSUE.911 'ENGLISH)  "the creation of a Palestinian homeland") 
(setf (slot-value ISSUE.911 'ENGLISH-SHORT)  "a Palestinian homeland") 
(setf (slot-value ISSUE.911 'GROUPS)  (list  'PLO 'ISRAEL)
) 
(setf (slot-value ISSUE.911 'PRO-STANCES)  (list (init-stance '(DIPLOMACY PRO B PALESTINIAN-HOMELAND ISSUE))
(init-stance '(MIDDLE-EAST PRO B PALESTINIAN-HOMELAND ISSUE))
)
) 
(setf (slot-value ISSUE.911 'CON-STANCES)  (list (init-stance '(ISRAEL PRO B PALESTINIAN-HOMELAND ISSUE))
)
) 
(setf (slot-value ISSUE.911 'NORM) (init-stance '(PALESTINIAN-HOMELAND PRO C ISSUE.911 ISSUE))
) 
(setf (slot-value ISSUE.911 'STATUS)  "Active") 
(setf (slot-value ISSUE.911 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.911 'SYMBOL)  'ISSUE.911) )
(insert-item ISSUE ISSUE.911)
(defvar ISSUE.3831)
(prog1 (setf ISSUE.3831 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3831 'NAME)  "Panama") 
(setf (slot-value ISSUE.3831 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.3831 'ISA)  (list  'CENTRAL-AMERICA)
) 
(setf (slot-value ISSUE.3831 'ENGLISH)  "the country of Panama") 
(setf (slot-value ISSUE.3831 'ENGLISH-SHORT)  "Panama") 
(setf (slot-value ISSUE.3831 'PRO-STANCES)  (list (init-stance '(CENTRAL-AMERICA PRO B PANAMA ISSUE))
)
) 
(setf (slot-value ISSUE.3831 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO C PANAMA ISSUE))
)
) 
(setf (slot-value ISSUE.3831 'NORM) (init-stance '(PANAMA PRO C ISSUE.3831 ISSUE))
) 
(setf (slot-value ISSUE.3831 'STATUS)  "Active") 
(setf (slot-value ISSUE.3831 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3831 'SYMBOL)  'ISSUE.3831) )
(insert-item ISSUE ISSUE.3831)
(defvar ISSUE.3822)
(prog1 (setf ISSUE.3822 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3822 'NAME)  "Patriotism") 
(setf (slot-value ISSUE.3822 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.3822 'ISA)  (list  'NATIONALISM)
) 
(setf (slot-value ISSUE.3822 'POLARITY)  "Wave the flag") 
(setf (slot-value ISSUE.3822 'ENGLISH)  "patriotism and devotion to this country") 
(setf (slot-value ISSUE.3822 'ENGLISH-SHORT)  "patriotism") 
(setf (slot-value ISSUE.3822 'PRO-STANCES)  (list (init-stance '(NATIONALISM PRO B PATRIOTISM ISSUE))
(init-stance '(FREEDOM PRO B PATRIOTISM ISSUE))
)
) 
(setf (slot-value ISSUE.3822 'NORM) (init-stance '(PATRIOTISM PRO B ISSUE.3822 ISSUE))
) 
(setf (slot-value ISSUE.3822 'STATUS)  "Active") 
(setf (slot-value ISSUE.3822 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3822 'SYMBOL)  'ISSUE.3822) )
(insert-item ISSUE ISSUE.3822)
(defvar ISSUE.332)
(prog1 (setf ISSUE.332 (make-instance 'ISSUE))
(setf (slot-value ISSUE.332 'NAME)  "Peace") 
(setf (slot-value ISSUE.332 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.332 'SYNONYMS)  (list  'PEACE)
) 
(setf (slot-value ISSUE.332 'POLARITY)  "Support efforts to bring about peace") 
(setf (slot-value ISSUE.332 'ENGLISH)  "peace throughout the world") 
(setf (slot-value ISSUE.332 'ENGLISH-SHORT)  "peace") 
(setf (slot-value ISSUE.332 'PRO-STANCES)  (list (init-stance '(IDEALISM PRO B PEACE ISSUE))
)
) 
(setf (slot-value ISSUE.332 'CON-STANCES)  (list (init-stance '(PRAGMATISM PRO B PEACE ISSUE))
)
) 
(setf (slot-value ISSUE.332 'NORM) (init-stance '(PEACE PRO B ISSUE.332 ISSUE))
) 
(setf (slot-value ISSUE.332 'STATUS)  "Active") 
(setf (slot-value ISSUE.332 'DATE-OPEN) (list->date '(3 8 1990))) 
(setf (slot-value ISSUE.332 'SYMBOL)  'ISSUE.332) )
(insert-item ISSUE ISSUE.332)
(defvar ISSUE.893)
(prog1 (setf ISSUE.893 (make-instance 'ISSUE))
(setf (slot-value ISSUE.893 'NAME)  "Persian Gulf Policy") 
(setf (slot-value ISSUE.893 'SYNONYMS)  (list  'PERSIAN-GULF)
) 
(setf (slot-value ISSUE.893 'ISA)  (list  'MID-EAST)
) 
(setf (slot-value ISSUE.893 'POLARITY)  "Support U.S. policy in the Persian Gulf") 
(setf (slot-value ISSUE.893 'ENGLISH)  "U.S. foreign policy in the Persian Gulf") 
(setf (slot-value ISSUE.893 'ENGLISH-SHORT)  "Persian Gulf policy") 
(setf (slot-value ISSUE.893 'PRO-STANCES)  (list (init-stance '(MID-EAST PRO B PERSIAN-GULF ISSUE))
(init-stance '(MILITARY-SOLUTION PRO B PERSIAN-GULF ISSUE))
)
) 
(setf (slot-value ISSUE.893 'CON-STANCES)  (list (init-stance '(DIPLOMACY PRO B PERSIAN-GULF ISSUE))
(init-stance '(NON-INVOLVEMENT PRO B PERSIAN-GULF ISSUE))
)
) 
(setf (slot-value ISSUE.893 'NORM) (init-stance '(PERSIAN-GULF PRO C ISSUE.893 ISSUE))
) 
(setf (slot-value ISSUE.893 'STATUS)  "Active") 
(setf (slot-value ISSUE.893 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.893 'SYMBOL)  'ISSUE.893) )
(insert-item ISSUE ISSUE.893)
(defvar ISSUE.1439)
(prog1 (setf ISSUE.1439 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1439 'NAME)  "Philippines") 
(setf (slot-value ISSUE.1439 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.1439 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.1439 'ENGLISH)  "the country of the Philippines") 
(setf (slot-value ISSUE.1439 'ENGLISH-SHORT)  "the Philippines") 
(setf (slot-value ISSUE.1439 'PRO-STANCES)  (list (init-stance '(NATIONAL-SECURITY PRO B PHILIPPINES ISSUE))
(init-stance '(DEMOCRACY PRO B PHILIPPINES ISSUE))
)
) 
(setf (slot-value ISSUE.1439 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO B PHILIPPINES ISSUE))
)
) 
(setf (slot-value ISSUE.1439 'NORM) (init-stance '(PHILIPPINES PRO C ISSUE.1439 ISSUE))
) 
(setf (slot-value ISSUE.1439 'STATUS)  "Active") 
(setf (slot-value ISSUE.1439 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.1439 'SYMBOL)  'ISSUE.1439) 
(setf (slot-value ISSUE.1439 'KEYWORDS)  (list  'MARCOS)
) )
(insert-item ISSUE ISSUE.1439)
(defvar ISSUE.3843)
(prog1 (setf ISSUE.3843 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3843 'NAME)  "Plant Closing") 
(setf (slot-value ISSUE.3843 'TYPE)  'PROPOSAL) 
(setf (slot-value ISSUE.3843 'SYNONYMS)  (list  'PLANT-CLOSING)
) 
(setf (slot-value ISSUE.3843 'ISA)  (list  'LABOR)
) 
(setf (slot-value ISSUE.3843 'POLARITY)  "Support notification requirement for plant closings") 
(setf (slot-value ISSUE.3843 'ENGLISH)  "requiring 60 days notice prior to closing a factory") 
(setf (slot-value ISSUE.3843 'ENGLISH-SHORT)  "plant closing notice") 
(setf (slot-value ISSUE.3843 'PRO-STANCES)  (list (init-stance '(LABOR PRO B PLANT-CLOSING ISSUE))
(init-stance '(JOBS PRO B PLANT-CLOSING ISSUE))
(init-stance '(REGULATION PRO B PLANT-CLOSING ISSUE))
(init-stance '(FAIRNESS PRO B PLANT-CLOSING ISSUE))
(init-stance '(JOB-PROTECTION PRO B PLANT-CLOSING ISSUE))
(init-stance '(PROGRESS PRO B PLANT-CLOSING ISSUE))
)
) 
(setf (slot-value ISSUE.3843 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B PLANT-CLOSING ISSUE))
(init-stance '(FREE-MARKET PRO B PLANT-CLOSING ISSUE))
(init-stance '(BUSINESS PRO B PLANT-CLOSING ISSUE))
(init-stance '(TRADITION PRO B PLANT-CLOSING ISSUE))
)
) 
(setf (slot-value ISSUE.3843 'STATUS)  "Active") 
(setf (slot-value ISSUE.3843 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3843 'SYMBOL)  'ISSUE.3843) )
(insert-item ISSUE ISSUE.3843)
(defvar ISSUE.914)
(prog1 (setf ISSUE.914 (make-instance 'ISSUE))
(setf (slot-value ISSUE.914 'NAME)  "Pledge of Allegiance") 
(setf (slot-value ISSUE.914 'SYNONYMS)  (list  'PLEDGE)
) 
(setf (slot-value ISSUE.914 'ISA)  (list  'PATRIOTISM)
) 
(setf (slot-value ISSUE.914 'POLARITY)  "Support mandatory pledge of allegiance") 
(setf (slot-value ISSUE.914 'ENGLISH)  "the required recitation of the Pledge of Allegiance") 
(setf (slot-value ISSUE.914 'ENGLISH-SHORT)  "the Pledge of Allegiance") 
(setf (slot-value ISSUE.914 'PRO-ENGLISH)  "the patriotic sentiment embodied in the Pledge of Allegiance") 
(setf (slot-value ISSUE.914 'CON-ENGLISH)  "the abridgement of freedom resulting from mandatory recitation of the Pledge of Allegiance") 
(setf (slot-value ISSUE.914 'PRO-STANCES)  (list (init-stance '(PATRIOTISM PRO B PLEDGE ISSUE))
)
) 
(setf (slot-value ISSUE.914 'CON-STANCES)  (list (init-stance '(FREE-SPEECH PRO A PLEDGE ISSUE))
(init-stance '(CONSTITUTION PRO B PLEDGE ISSUE))
)
) 
(setf (slot-value ISSUE.914 'NORM) (init-stance '(PLEDGE PRO B ISSUE.914 ISSUE))
) 
(setf (slot-value ISSUE.914 'STATUS)  "Active") 
(setf (slot-value ISSUE.914 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.914 'SYMBOL)  'ISSUE.914) )
(insert-item ISSUE ISSUE.914)
(defvar ISSUE.3833)
(prog1 (setf ISSUE.3833 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3833 'NAME)  "Poland") 
(setf (slot-value ISSUE.3833 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.3833 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.3833 'ENGLISH)  "the country of Poland") 
(setf (slot-value ISSUE.3833 'ENGLISH-SHORT)  "Poland") 
(setf (slot-value ISSUE.3833 'PRO-STANCES)  (list (init-stance '(EAST-WEST PRO B POLAND ISSUE))
(init-stance '(DEMOCRACY PRO B POLAND ISSUE))
(init-stance '(FREEDOM PRO B POLAND ISSUE))
)
) 
(setf (slot-value ISSUE.3833 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO B POLAND ISSUE))
)
) 
(setf (slot-value ISSUE.3833 'NORM) (init-stance '(POLAND PRO C ISSUE.3833 ISSUE))
) 
(setf (slot-value ISSUE.3833 'STATUS)  "Active") 
(setf (slot-value ISSUE.3833 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3833 'SYMBOL)  'ISSUE.3833) )
(insert-item ISSUE ISSUE.3833)
(defvar ISSUE.3857)
(prog1 (setf ISSUE.3857 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3857 'NAME)  "Poverty Programs") 
(setf (slot-value ISSUE.3857 'SYNONYMS)  (list  'POVERTY)
) 
(setf (slot-value ISSUE.3857 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.3857 'POLARITY)  "Support federal anti-poverty programs") 
(setf (slot-value ISSUE.3857 'ENGLISH)  "efforts to reduce poverty in our society") 
(setf (slot-value ISSUE.3857 'ENGLISH-SHORT)  "the war on poverty") 
(setf (slot-value ISSUE.3857 'PRO-STANCES)  (list (init-stance '(COMPASSION PRO B POVERTY ISSUE))
(init-stance '(FAIRNESS PRO C POVERTY ISSUE))
(init-stance '(HUMANITARIANISM PRO B POVERTY ISSUE))
)
) 
(setf (slot-value ISSUE.3857 'CON-STANCES)  (list (init-stance '(FISCAL-RESPONSIBILITY PRO C POVERTY ISSUE))
(init-stance '(HARD-WORK PRO B POVERTY ISSUE))
)
) 
(setf (slot-value ISSUE.3857 'NORM) (init-stance '(POVERTY PRO C ISSUE.3857 ISSUE))
) 
(setf (slot-value ISSUE.3857 'STATUS)  "Active") 
(setf (slot-value ISSUE.3857 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3857 'SYMBOL)  'ISSUE.3857) )
(insert-item ISSUE ISSUE.3857)
(defvar ISSUE.26)
(prog1 (setf ISSUE.26 (make-instance 'ISSUE))
(setf (slot-value ISSUE.26 'NAME)  "Pragmatism") 
(setf (slot-value ISSUE.26 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.26 'POLARITY)  "Support a pragmatic approach to problem solving") 
(setf (slot-value ISSUE.26 'ENGLISH)  "pragmatism in public policy") 
(setf (slot-value ISSUE.26 'ENGLISH-SHORT)  "pragmatism") 
(setf (slot-value ISSUE.26 'OPPOSITE)  'IDEALISM) 
(setf (slot-value ISSUE.26 'STATUS)  "Active") 
(setf (slot-value ISSUE.26 'DATE-OPEN) (list->date '(3 10 1990))) 
(setf (slot-value ISSUE.26 'SYMBOL)  'ISSUE.26) )
(insert-item ISSUE ISSUE.26)
(defvar ISSUE.969)
(prog1 (setf ISSUE.969 (make-instance 'ISSUE))
(setf (slot-value ISSUE.969 'NAME)  "President") 
(setf (slot-value ISSUE.969 'ISA)  (list  'NATIONALISM)
) 
(setf (slot-value ISSUE.969 'POLARITY)  "Support the policies of the President") 
(setf (slot-value ISSUE.969 'ENGLISH)  "the leadership of the President") 
(setf (slot-value ISSUE.969 'ENGLISH-SHORT)  "the President") 
(setf (slot-value ISSUE.969 'PRO-ENGLISH)  "the strong leadership and vision of the President") 
(setf (slot-value ISSUE.969 'PRO-STANCES)  (list (init-stance '(PATRIOTISM PRO B PRESIDENT ISSUE))
(init-stance '(NATIONALISM PRO B PRESIDENT ISSUE))
)
) 
(setf (slot-value ISSUE.969 'NORM) (init-stance '(PRESIDENT PRO C ISSUE.969 ISSUE))
) 
(setf (slot-value ISSUE.969 'STATUS)  "Active") 
(setf (slot-value ISSUE.969 'DATE-OPEN) (list->date '(4 14 1989))) 
(setf (slot-value ISSUE.969 'SYMBOL)  'ISSUE.969) )
(insert-item ISSUE ISSUE.969)
(defvar ISSUE.709)
(prog1 (setf ISSUE.709 (make-instance 'ISSUE))
(setf (slot-value ISSUE.709 'NAME)  "President Bush") 
(setf (slot-value ISSUE.709 'SYNONYMS)  (list  'BUSH)
) 
(setf (slot-value ISSUE.709 'ISA)  (list  'PRESIDENT)
) 
(setf (slot-value ISSUE.709 'POLARITY)  "Support the policies of President Bush") 
(setf (slot-value ISSUE.709 'ENGLISH)  "the policies of President Bush") 
(setf (slot-value ISSUE.709 'ENGLISH-SHORT)  "George Bush") 
(setf (slot-value ISSUE.709 'PRO-STANCES)  (list (init-stance '(PRESIDENT PRO B BUSH ISSUE))
)
) 
(setf (slot-value ISSUE.709 'NORM) (init-stance '(BUSH PRO C ISSUE.709 ISSUE))
) 
(setf (slot-value ISSUE.709 'STATUS)  "Active") 
(setf (slot-value ISSUE.709 'DATE-OPEN) (list->date '(9 29 1989))) 
(setf (slot-value ISSUE.709 'SYMBOL)  'ISSUE.709) )
(insert-item ISSUE ISSUE.709)
(defvar ISSUE.968)
(prog1 (setf ISSUE.968 (make-instance 'ISSUE))
(setf (slot-value ISSUE.968 'NAME)  "President Reagan") 
(setf (slot-value ISSUE.968 'SYNONYMS)  (list  'REAGAN)
) 
(setf (slot-value ISSUE.968 'ISA)  (list  'PRESIDENT)
) 
(setf (slot-value ISSUE.968 'POLARITY)  "Support the policies of President Reagan") 
(setf (slot-value ISSUE.968 'ENGLISH)  "the policies of President Reagan") 
(setf (slot-value ISSUE.968 'ENGLISH-SHORT)  "Ronald Reagan") 
(setf (slot-value ISSUE.968 'PRO-STANCES)  (list (init-stance '(PRESIDENT PRO B REAGAN ISSUE))
)
) 
(setf (slot-value ISSUE.968 'NORM) (init-stance '(REAGAN PRO C ISSUE.968 ISSUE))
) 
(setf (slot-value ISSUE.968 'STATUS)  "Active") 
(setf (slot-value ISSUE.968 'DATE-OPEN) (list->date '(4 14 1989))) 
(setf (slot-value ISSUE.968 'SYMBOL)  'ISSUE.968) )
(insert-item ISSUE ISSUE.968)
(defvar ISSUE.2654)
(prog1 (setf ISSUE.2654 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2654 'NAME)  "Prevention of Smoking") 
(setf (slot-value ISSUE.2654 'SYNONYMS)  (list  'SMOKING-BAN 'SMOKING-WARNINGS)
) 
(setf (slot-value ISSUE.2654 'ISA)  (list  'HEALTH)
) 
(setf (slot-value ISSUE.2654 'POLARITY)  "Support efforts to prevent smoking") 
(setf (slot-value ISSUE.2654 'ENGLISH)  "the elimination of smoking") 
(setf (slot-value ISSUE.2654 'ENGLISH-SHORT)  "a smoking ban") 
(setf (slot-value ISSUE.2654 'PRO-STANCES)  (list (init-stance '(HEALTH PRO B SMOKING-BAN ISSUE))
(init-stance '(OSHA PRO B SMOKING-BAN ISSUE))
)
) 
(setf (slot-value ISSUE.2654 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B SMOKING-BAN ISSUE))
(init-stance '(FREEDOM PRO B SMOKING-BAN ISSUE))
)
) 
(setf (slot-value ISSUE.2654 'NORM) (init-stance '(SMOKING-BAN PRO C ISSUE.2654 ISSUE))
) 
(setf (slot-value ISSUE.2654 'STATUS)  "Active") 
(setf (slot-value ISSUE.2654 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2654 'SYMBOL)  'ISSUE.2654) )
(insert-item ISSUE ISSUE.2654)
(defvar ISSUE.912)
(prog1 (setf ISSUE.912 (make-instance 'ISSUE))
(setf (slot-value ISSUE.912 'NAME)  "Prison and Corrections") 
(setf (slot-value ISSUE.912 'TYPE)  'REFORM) 
(setf (slot-value ISSUE.912 'SYNONYMS)  (list  'PRISON)
) 
(setf (slot-value ISSUE.912 'ISA)  (list  'LAW-AND-ORDER)
) 
(setf (slot-value ISSUE.912 'ENGLISH)  "our prisons and correctional facilities") 
(setf (slot-value ISSUE.912 'ENGLISH-SHORT)  "prisons") 
(setf (slot-value ISSUE.912 'PRO-STANCES)  (list (init-stance '(RETRIBUTION PRO B PRISON ISSUE))
(init-stance '(JUSTICE PRO B PRISON ISSUE))
(init-stance '(LAW-AND-ORDER PRO B PRISON ISSUE))
)
) 
(setf (slot-value ISSUE.912 'NORM) (init-stance '(PRISON PRO B ISSUE.912 ISSUE))
) 
(setf (slot-value ISSUE.912 'STATUS)  "Active") 
(setf (slot-value ISSUE.912 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.912 'SYMBOL)  'ISSUE.912) )
(insert-item ISSUE ISSUE.912)
(defvar ISSUE.913)
(prog1 (setf ISSUE.913 (make-instance 'ISSUE))
(setf (slot-value ISSUE.913 'NAME)  "Prisoner Furloughs") 
(setf (slot-value ISSUE.913 'TYPE)  'POLICY) 
(setf (slot-value ISSUE.913 'SYNONYMS)  (list  'FURLOUGHS)
) 
(setf (slot-value ISSUE.913 'ISA)  (list  'PRISON)
) 
(setf (slot-value ISSUE.913 'POLARITY)  "Support prisoner furlough programs") 
(setf (slot-value ISSUE.913 'ENGLISH)  "prisoner furloughs") 
(setf (slot-value ISSUE.913 'PRO-STANCES)  (list (init-stance '(COMPASSION PRO C FURLOUGHS ISSUE))
)
) 
(setf (slot-value ISSUE.913 'CON-STANCES)  (list (init-stance '(RETRIBUTION PRO B FURLOUGHS ISSUE))
(init-stance '(LAW-AND-ORDER PRO B FURLOUGHS ISSUE))
)
) 
(setf (slot-value ISSUE.913 'NORM) (init-stance '(FURLOUGHS CON C ISSUE.913 ISSUE))
) 
(setf (slot-value ISSUE.913 'STATUS)  "Active") 
(setf (slot-value ISSUE.913 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.913 'SYMBOL)  'ISSUE.913) )
(insert-item ISSUE ISSUE.913)
(defvar ISSUE.2406)
(prog1 (setf ISSUE.2406 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2406 'NAME)  "Privacy Protection") 
(setf (slot-value ISSUE.2406 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.2406 'SYNONYMS)  (list  'PRIVACY)
) 
(setf (slot-value ISSUE.2406 'ISA)  (list  'SOCIAL)
) 
(setf (slot-value ISSUE.2406 'POLARITY)  "Support federal protection of privacy") 
(setf (slot-value ISSUE.2406 'ENGLISH)  "a right to privacy") 
(setf (slot-value ISSUE.2406 'ENGLISH-SHORT)  "privacy") 
(setf (slot-value ISSUE.2406 'PRO-STANCES)  (list (init-stance '(FREEDOM PRO B PRIVACY ISSUE))
(init-stance '(CIVIL-LIBERTIES PRO B PRIVACY ISSUE))
)
) 
(setf (slot-value ISSUE.2406 'CON-STANCES)  (list (init-stance '(LAW-AND-ORDER PRO C PRIVACY ISSUE))
(init-stance '(DRUG-ENFORCEMENT PRO C PRIVACY ISSUE))
)
) 
(setf (slot-value ISSUE.2406 'NORM) (init-stance '(PRIVACY PRO C ISSUE.2406 ISSUE))
) 
(setf (slot-value ISSUE.2406 'STATUS)  "Active") 
(setf (slot-value ISSUE.2406 'DATE-OPEN) (list->date '(9 1 1988))) 
(setf (slot-value ISSUE.2406 'SYMBOL)  'ISSUE.2406) )
(insert-item ISSUE ISSUE.2406)
(defvar ISSUE.1753)
(prog1 (setf ISSUE.1753 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1753 'NAME)  "Privatization") 
(setf (slot-value ISSUE.1753 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.1753 'POLARITY)  "Support transfer of public organizations to the private sector") 
(setf (slot-value ISSUE.1753 'ENGLISH)  "converting public enterprises to private ownership") 
(setf (slot-value ISSUE.1753 'ENGLISH-SHORT)  "privatization") 
(setf (slot-value ISSUE.1753 'GROUPS)  (list  'CEI)
) 
(setf (slot-value ISSUE.1753 'PRO-STANCES)  (list (init-stance '(DEREGULATION PRO B PRIVATIZATION ISSUE))
(init-stance '(DEFICIT CON B PRIVATIZATION ISSUE))
(init-stance '(FREE-MARKET PRO B PRIVATIZATION ISSUE))
)
) 
(setf (slot-value ISSUE.1753 'CON-STANCES)  (list (init-stance '(FEDERAL-PROGRAMS PRO B PRIVATIZATION ISSUE))
)
) 
(setf (slot-value ISSUE.1753 'NORM) (init-stance '(PRIVATIZATION CON C ISSUE.1753 ISSUE))
) 
(setf (slot-value ISSUE.1753 'STATUS)  "Active") 
(setf (slot-value ISSUE.1753 'DATE-OPEN) (list->date '(3 22 1989))) 
(setf (slot-value ISSUE.1753 'SYMBOL)  'ISSUE.1753) )
(insert-item ISSUE ISSUE.1753)
(defvar ISSUE.55)
(prog1 (setf ISSUE.55 (make-instance 'ISSUE))
(setf (slot-value ISSUE.55 'NAME)  "Progress") 
(setf (slot-value ISSUE.55 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.55 'ISA)  (list  'VALUE)
) 
(setf (slot-value ISSUE.55 'POLARITY)  "Support progress and change in society") 
(setf (slot-value ISSUE.55 'ENGLISH)  "progress and change in society") 
(setf (slot-value ISSUE.55 'ENGLISH-SHORT)  "progress") 
(setf (slot-value ISSUE.55 'CON-STANCES)  (list (init-stance '(TRADITION PRO B PROGRESS ISSUE))
)
) 
(setf (slot-value ISSUE.55 'OPPOSITE)  'TRADITION) 
(setf (slot-value ISSUE.55 'STATUS)  "Active") 
(setf (slot-value ISSUE.55 'DATE-OPEN) (list->date '(3 18 1990))) 
(setf (slot-value ISSUE.55 'SYMBOL)  'ISSUE.55) )
(insert-item ISSUE ISSUE.55)
(defvar ISSUE.260)
(prog1 (setf ISSUE.260 (make-instance 'ISSUE))
(setf (slot-value ISSUE.260 'NAME)  "Prosperity") 
(setf (slot-value ISSUE.260 'TYPE)  'ECONOMIC) 
(setf (slot-value ISSUE.260 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.260 'POLARITY)  "Support prosperity at all levels of society") 
(setf (slot-value ISSUE.260 'ENGLISH)  "prosperity at all levels of society") 
(setf (slot-value ISSUE.260 'ENGLISH-SHORT)  "prosperity") 
(setf (slot-value ISSUE.260 'PRO-STANCES)  (list (init-stance '(JOBS PRO B PROSPERITY ISSUE))
(init-stance '(SPUR-INVESTMENT PRO B PROSPERITY ISSUE))
(init-stance '(BUSINESS PRO B PROSPERITY ISSUE))
(init-stance '(LABOR PRO B PROSPERITY ISSUE))
)
) 
(setf (slot-value ISSUE.260 'NORM) (init-stance '(PROSPERITY PRO B ISSUE.260 ISSUE))
) 
(setf (slot-value ISSUE.260 'STATUS)  "Active") 
(setf (slot-value ISSUE.260 'DATE-OPEN) (list->date '(3 7 1990))) 
(setf (slot-value ISSUE.260 'SYMBOL)  'ISSUE.260) )
(insert-item ISSUE ISSUE.260)
(defvar ISSUE.723)
(prog1 (setf ISSUE.723 (make-instance 'ISSUE))
(setf (slot-value ISSUE.723 'NAME)  "Public TV and radio") 
(setf (slot-value ISSUE.723 'TYPE)  'PROGRAM) 
(setf (slot-value ISSUE.723 'SYNONYMS)  (list  'PUBLIC-TV 'PUBLIC-RADIO)
) 
(setf (slot-value ISSUE.723 'ISA)  (list  'SOCIAL)
) 
(setf (slot-value ISSUE.723 'POLARITY)  "Support funding public TV and radio") 
(setf (slot-value ISSUE.723 'ENGLISH)  "funding public TV and radio") 
(setf (slot-value ISSUE.723 'ENGLISH-SHORT)  "public television") 
(setf (slot-value ISSUE.723 'PRO-ENGLISH)  "increased funding for public television and radio") 
(setf (slot-value ISSUE.723 'PRO-STANCES)  (list (init-stance '(FREEDOM-OF-THE-PRESS PRO B PUBLIC-TV ISSUE))
(init-stance '(FEDERAL-PROGRAMS PRO B PUBLIC-TV ISSUE))
)
) 
(setf (slot-value ISSUE.723 'CON-STANCES)  (list (init-stance '(DEFICIT CON C PUBLIC-TV ISSUE))
(init-stance '(FREE-MARKET PRO B PUBLIC-TV ISSUE))
)
) 
(setf (slot-value ISSUE.723 'NORM) (init-stance '(PUBLIC-TV PRO C ISSUE.723 ISSUE))
) 
(setf (slot-value ISSUE.723 'STATUS)  "Active") 
(setf (slot-value ISSUE.723 'DATE-OPEN) (list->date '(11 2 1989))) 
(setf (slot-value ISSUE.723 'SYMBOL)  'ISSUE.723) )
(insert-item ISSUE ISSUE.723)
(defvar ISSUE.3808)
(prog1 (setf ISSUE.3808 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3808 'NAME)  "Public Works") 
(setf (slot-value ISSUE.3808 'SYNONYMS)  (list  'PUBLIC-WORKS)
) 
(setf (slot-value ISSUE.3808 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.3808 'POLARITY)  "Support federal programs of public works") 
(setf (slot-value ISSUE.3808 'ENGLISH)  "federal programs for public works") 
(setf (slot-value ISSUE.3808 'ENGLISH-SHORT)  "public works") 
(setf (slot-value ISSUE.3808 'PRO-STANCES)  (list (init-stance '(UNEMPLOYMENT PRO B PUBLIC-WORKS ISSUE))
(init-stance '(FEDERAL-PROGRAMS PRO B PUBLIC-WORKS ISSUE))
(init-stance '(JOBS PRO B PUBLIC-WORKS ISSUE))
(init-stance '(HUMANITARIANISM PRO C PUBLIC-WORKS ISSUE))
)
) 
(setf (slot-value ISSUE.3808 'CON-STANCES)  (list (init-stance '(SPENDING CON C PUBLIC-WORKS ISSUE))
(init-stance '(FREE-MARKET PRO B PUBLIC-WORKS ISSUE))
(init-stance '(DEFICIT CON B PUBLIC-WORKS ISSUE))
)
) 
(setf (slot-value ISSUE.3808 'STATUS)  "Active") 
(setf (slot-value ISSUE.3808 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3808 'SYMBOL)  'ISSUE.3808) )
(insert-item ISSUE ISSUE.3808)
(defvar ISSUE.3815)
(prog1 (setf ISSUE.3815 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3815 'NAME)  "Racism") 
(setf (slot-value ISSUE.3815 'TYPE)  'PROBLEM) 
(setf (slot-value ISSUE.3815 'ISA)  (list  'CIVIL-RIGHTS)
) 
(setf (slot-value ISSUE.3815 'POLARITY)  "Oppose civil rights") 
(setf (slot-value ISSUE.3815 'ENGLISH)  "racism in our society") 
(setf (slot-value ISSUE.3815 'ENGLISH-SHORT)  "racism") 
(setf (slot-value ISSUE.3815 'CON-STANCES)  (list (init-stance '(CIVIL-RIGHTS PRO A RACISM ISSUE))
(init-stance '(EQUALITY PRO A RACISM ISSUE))
)
) 
(setf (slot-value ISSUE.3815 'NORM) (init-stance '(RACISM CON C ISSUE.3815 ISSUE))
) 
(setf (slot-value ISSUE.3815 'STATUS)  "Active") 
(setf (slot-value ISSUE.3815 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3815 'SYMBOL)  'ISSUE.3815) )
(insert-item ISSUE ISSUE.3815)
(defvar ISSUE.726)
(prog1 (setf ISSUE.726 (make-instance 'ISSUE))
(setf (slot-value ISSUE.726 'NAME)  "Regulation") 
(setf (slot-value ISSUE.726 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.726 'SYNONYMS)  (list  'REGULATION)
) 
(setf (slot-value ISSUE.726 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.726 'POLARITY)  "Support government's regulatory role") 
(setf (slot-value ISSUE.726 'ENGLISH)  "government regulations in the national interest") 
(setf (slot-value ISSUE.726 'ENGLISH-SHORT)  "government regulations") 
(setf (slot-value ISSUE.726 'NUMBER)  'PLUR) 
(setf (slot-value ISSUE.726 'PRO-STANCES)  (list (init-stance '(FAIRNESS PRO B REGULATION ISSUE))
(init-stance '(HEALTH PRO B REGULATION ISSUE))
)
) 
(setf (slot-value ISSUE.726 'CON-STANCES)  (list (init-stance '(BUSINESS PRO B REGULATION ISSUE))
(init-stance '(DEREGULATION PRO B REGULATION ISSUE))
(init-stance '(FREE-MARKET PRO B REGULATION ISSUE))
)
) 
(setf (slot-value ISSUE.726 'OPPOSITE)  'DEREGULATION) 
(setf (slot-value ISSUE.726 'STATUS)  "Active") 
(setf (slot-value ISSUE.726 'DATE-OPEN) (list->date '(11 2 1989))) 
(setf (slot-value ISSUE.726 'SYMBOL)  'ISSUE.726) )
(insert-item ISSUE ISSUE.726)
(defvar ISSUE.24)
(prog1 (setf ISSUE.24 (make-instance 'ISSUE))
(setf (slot-value ISSUE.24 'NAME)  "Religious freedom") 
(setf (slot-value ISSUE.24 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.24 'SYNONYMS)  (list  'RELIGION 'RELIGIOUS-FREEDOM)
) 
(setf (slot-value ISSUE.24 'ISA)  (list  'PRINCIPLE)
) 
(setf (slot-value ISSUE.24 'POLARITY)  "Support freedom of religion") 
(setf (slot-value ISSUE.24 'ENGLISH)  "freedom of religious expression") 
(setf (slot-value ISSUE.24 'ENGLISH-SHORT)  "religious freedom") 
(setf (slot-value ISSUE.24 'PRO-STANCES)  (list (init-stance '(CONSTITUTION PRO B RELIGION ISSUE))
(init-stance '(DEMOCRACY PRO B RELIGION ISSUE))
(init-stance '(FREEDOM PRO B RELIGION ISSUE))
)
) 
(setf (slot-value ISSUE.24 'NORM) (init-stance '(RELIGION PRO A ISSUE.24 ISSUE))
) 
(setf (slot-value ISSUE.24 'STATUS)  "Active") 
(setf (slot-value ISSUE.24 'DATE-OPEN) (list->date '(3 10 1990))) 
(setf (slot-value ISSUE.24 'SYMBOL)  'ISSUE.24) )
(insert-item ISSUE ISSUE.24)
(defvar ISSUE.35)
(prog1 (setf ISSUE.35 (make-instance 'ISSUE))
(setf (slot-value ISSUE.35 'NAME)  "Responsibility") 
(setf (slot-value ISSUE.35 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.35 'ISA)  (list  'VALUE)
) 
(setf (slot-value ISSUE.35 'POLARITY)  "Support responsible courses of action") 
(setf (slot-value ISSUE.35 'ENGLISH)  "responsibility to society") 
(setf (slot-value ISSUE.35 'ENGLISH-SHORT)  "responsibility") 
(setf (slot-value ISSUE.35 'PRO-STANCES)  (list (init-stance '(VALUE PRO B RESPONSIBILITY ISSUE))
(init-stance '(IDEALISM PRO B RESPONSIBILITY ISSUE))
(init-stance '(FUTURE PRO B RESPONSIBILITY ISSUE))
)
) 
(setf (slot-value ISSUE.35 'NORM) (init-stance '(RESPONSIBILITY PRO B ISSUE.35 ISSUE))
) 
(setf (slot-value ISSUE.35 'STATUS)  "Active") 
(setf (slot-value ISSUE.35 'DATE-OPEN) (list->date '(3 15 1990))) 
(setf (slot-value ISSUE.35 'SYMBOL)  'ISSUE.35) )
(insert-item ISSUE ISSUE.35)
(defvar ISSUE.22)
(prog1 (setf ISSUE.22 (make-instance 'ISSUE))
(setf (slot-value ISSUE.22 'NAME)  "Retribution") 
(setf (slot-value ISSUE.22 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.22 'POLARITY)  "Support principle of retribution ") 
(setf (slot-value ISSUE.22 'ENGLISH)  "retribution and punishment") 
(setf (slot-value ISSUE.22 'ENGLISH-SHORT)  "retribution") 
(setf (slot-value ISSUE.22 'PRO-STANCES)  (list (init-stance '(LAW-AND-ORDER PRO B RETRIBUTION ISSUE))
(init-stance '(JUSTICE PRO B RETRIBUTION ISSUE))
(init-stance '(PRISON PRO B RETRIBUTION ISSUE))
)
) 
(setf (slot-value ISSUE.22 'CON-STANCES)  (list (init-stance '(COMPASSION PRO B RETRIBUTION ISSUE))
)
) 
(setf (slot-value ISSUE.22 'NORM) (init-stance '(RETRIBUTION PRO C ISSUE.22 ISSUE))
) 
(setf (slot-value ISSUE.22 'STATUS)  "Active") 
(setf (slot-value ISSUE.22 'DATE-OPEN) (list->date '(3 10 1990))) 
(setf (slot-value ISSUE.22 'SYMBOL)  'ISSUE.22) )
(insert-item ISSUE ISSUE.22)
(defvar ISSUE.1254)
(prog1 (setf ISSUE.1254 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1254 'NAME)  "Right to an Education") 
(setf (slot-value ISSUE.1254 'TYPE)  'RIGHT) 
(setf (slot-value ISSUE.1254 'SYNONYMS)  (list  'EDUCATION-RIGHTS)
) 
(setf (slot-value ISSUE.1254 'ISA)  (list  'RIGHT)
) 
(setf (slot-value ISSUE.1254 'POLARITY)  "Support equal access to education") 
(setf (slot-value ISSUE.1254 'ENGLISH)  "equal access to education") 
(setf (slot-value ISSUE.1254 'ENGLISH-SHORT)  "education") 
(setf (slot-value ISSUE.1254 'PRO-STANCES)  (list (init-stance '(CIVIL-RIGHTS PRO B EDUCATION-RIGHTS ISSUE))
(init-stance '(FAIRNESS PRO B EDUCATION-RIGHTS ISSUE))
)
) 
(setf (slot-value ISSUE.1254 'NORM) (init-stance '(EDUCATION-RIGHTS PRO C ISSUE.1254 ISSUE))
) 
(setf (slot-value ISSUE.1254 'STATUS)  "Active") 
(setf (slot-value ISSUE.1254 'DATE-OPEN) (list->date '(9 18 1989))) 
(setf (slot-value ISSUE.1254 'SYMBOL)  'ISSUE.1254) )
(insert-item ISSUE ISSUE.1254)
(defvar ISSUE.1442)
(prog1 (setf ISSUE.1442 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1442 'NAME)  "Rural Electrification") 
(setf (slot-value ISSUE.1442 'TYPE)  'PROGRAM) 
(setf (slot-value ISSUE.1442 'SYNONYMS)  (list  'RURAL-ELECTRIC)
) 
(setf (slot-value ISSUE.1442 'ISA)  (list  'FARM)
) 
(setf (slot-value ISSUE.1442 'POLARITY)  "Support federal funding for rural electricity") 
(setf (slot-value ISSUE.1442 'ENGLISH)  "funding for rural electricity") 
(setf (slot-value ISSUE.1442 'ENGLISH-SHORT)  "rural electrification") 
(setf (slot-value ISSUE.1442 'PRO-STANCES)  (list (init-stance '(PROSPERITY PRO C RURAL-ELECTRIC ISSUE))
(init-stance '(EQUALITY PRO B RURAL-ELECTRIC ISSUE))
(init-stance '(PROGRESS PRO B RURAL-ELECTRIC ISSUE))
)
) 
(setf (slot-value ISSUE.1442 'CON-STANCES)  (list (init-stance '(TRADITION PRO B RURAL-ELECTRIC ISSUE))
)
) 
(setf (slot-value ISSUE.1442 'NORM) (init-stance '(RURAL-ELECTRIC PRO C ISSUE.1442 ISSUE))
) 
(setf (slot-value ISSUE.1442 'STATUS)  "Active") 
(setf (slot-value ISSUE.1442 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.1442 'SYMBOL)  'ISSUE.1442) )
(insert-item ISSUE ISSUE.1442)
(defvar ISSUE.3852)
(prog1 (setf ISSUE.3852 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3852 'NAME)  "School Bussing") 
(setf (slot-value ISSUE.3852 'TYPE)  'POLICY) 
(setf (slot-value ISSUE.3852 'SYNONYMS)  (list  'BUSSING)
) 
(setf (slot-value ISSUE.3852 'ISA)  (list  'DESEGREGATION)
) 
(setf (slot-value ISSUE.3852 'POLARITY)  "Support busing to integrate public schools") 
(setf (slot-value ISSUE.3852 'ENGLISH)  "school bussing to integrate public schools") 
(setf (slot-value ISSUE.3852 'ENGLISH-SHORT)  "bussing") 
(setf (slot-value ISSUE.3852 'PRO-STANCES)  (list (init-stance '(EDUCATION PRO B BUSSING ISSUE))
(init-stance '(EQUALITY PRO B BUSSING ISSUE))
(init-stance '(OPEN-HOUSING PRO B BUSSING ISSUE))
(init-stance '(CIVIL-RIGHTS PRO B BUSSING ISSUE))
(init-stance '(DESEGREGATION PRO B BUSSING ISSUE))
(init-stance '(PROGRESS PRO B BUSSING ISSUE))
)
) 
(setf (slot-value ISSUE.3852 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B BUSSING ISSUE))
(init-stance '(STATES-RIGHTS PRO B BUSSING ISSUE))
(init-stance '(TRADITION PRO B BUSSING ISSUE))
)
) 
(setf (slot-value ISSUE.3852 'NORM) (init-stance '(BUSSING CON C ISSUE.3852 ISSUE))
) 
(setf (slot-value ISSUE.3852 'STATUS)  "Active") 
(setf (slot-value ISSUE.3852 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3852 'SYMBOL)  'ISSUE.3852) )
(insert-item ISSUE ISSUE.3852)
(defvar ISSUE.3851)
(prog1 (setf ISSUE.3851 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3851 'NAME)  "School Desegregation") 
(setf (slot-value ISSUE.3851 'TYPE)  'POLICY) 
(setf (slot-value ISSUE.3851 'SYNONYMS)  (list  'DESEGREGATION)
) 
(setf (slot-value ISSUE.3851 'ISA)  (list  'CIVIL-RIGHTS)
) 
(setf (slot-value ISSUE.3851 'POLARITY)  "Support federal efforts to integrate public schools") 
(setf (slot-value ISSUE.3851 'ENGLISH)  "school desegregation") 
(setf (slot-value ISSUE.3851 'ENGLISH-SHORT)  "desegregation") 
(setf (slot-value ISSUE.3851 'PRO-STANCES)  (list (init-stance '(CIVIL-RIGHTS PRO B DESEGREGATION ISSUE))
(init-stance '(EQUALITY PRO B DESEGREGATION ISSUE))
(init-stance '(EDUCATION PRO B DESEGREGATION ISSUE))
(init-stance '(FAIRNESS PRO B DESEGREGATION ISSUE))
(init-stance '(PROGRESS PRO B DESEGREGATION ISSUE))
)
) 
(setf (slot-value ISSUE.3851 'CON-STANCES)  (list (init-stance '(RACISM PRO C DESEGREGATION ISSUE))
(init-stance '(STATES-RIGHTS PRO B DESEGREGATION ISSUE))
(init-stance '(DEREGULATION PRO B DESEGREGATION ISSUE))
(init-stance '(TRADITION PRO B DESEGREGATION ISSUE))
)
) 
(setf (slot-value ISSUE.3851 'NORM) (init-stance '(DESEGREGATION PRO C ISSUE.3851 ISSUE))
) 
(setf (slot-value ISSUE.3851 'STATUS)  "Active") 
(setf (slot-value ISSUE.3851 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3851 'SYMBOL)  'ISSUE.3851) )
(insert-item ISSUE ISSUE.3851)
(defvar ISSUE.3845)
(prog1 (setf ISSUE.3845 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3845 'NAME)  "School Prayer") 
(setf (slot-value ISSUE.3845 'TYPE)  'PROPOSAL) 
(setf (slot-value ISSUE.3845 'SYNONYMS)  (list  'PRAYER)
) 
(setf (slot-value ISSUE.3845 'ISA)  (list  'SOCIAL)
) 
(setf (slot-value ISSUE.3845 'POLARITY)  "Support mandatory prayer in school") 
(setf (slot-value ISSUE.3845 'ENGLISH)  "mandatory prayer in school") 
(setf (slot-value ISSUE.3845 'ENGLISH-SHORT)  "school prayer") 
(setf (slot-value ISSUE.3845 'PRO-STANCES)  (list (init-stance '(RELIGION PRO B PRAYER ISSUE))
(init-stance '(TRADITION PRO B PRAYER ISSUE))
)
) 
(setf (slot-value ISSUE.3845 'CON-STANCES)  (list (init-stance '(CONSTITUTION PRO B PRAYER ISSUE))
(init-stance '(CHURCH-AND-STATE PRO B PRAYER ISSUE))
(init-stance '(FREEDOM PRO B PRAYER ISSUE))
)
) 
(setf (slot-value ISSUE.3845 'NORM) (init-stance '(PRAYER PRO C ISSUE.3845 ISSUE))
) 
(setf (slot-value ISSUE.3845 'STATUS)  "Active") 
(setf (slot-value ISSUE.3845 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3845 'SYMBOL)  'ISSUE.3845) )
(insert-item ISSUE ISSUE.3845)
(defvar ISSUE.40)
(prog1 (setf ISSUE.40 (make-instance 'ISSUE))
(setf (slot-value ISSUE.40 'NAME)  "Self Determination") 
(setf (slot-value ISSUE.40 'TYPE)  'RIGHT) 
(setf (slot-value ISSUE.40 'SYNONYMS)  (list  'SELF-DETERMINATION)
) 
(setf (slot-value ISSUE.40 'POLARITY)  "Support right to self determination") 
(setf (slot-value ISSUE.40 'ENGLISH)  "self determination") 
(setf (slot-value ISSUE.40 'PRO-STANCES)  (list (init-stance '(DEMOCRACY PRO B SELF-DETERMINATION ISSUE))
(init-stance '(STATES-RIGHTS PRO B SELF-DETERMINATION ISSUE))
(init-stance '(FREEDOM PRO B SELF-DETERMINATION ISSUE))
)
) 
(setf (slot-value ISSUE.40 'NORM) (init-stance '(SELF-DETERMINATION PRO B ISSUE.40 ISSUE))
) 
(setf (slot-value ISSUE.40 'STATUS)  "Active") 
(setf (slot-value ISSUE.40 'DATE-OPEN) (list->date '(3 17 1990))) 
(setf (slot-value ISSUE.40 'SYMBOL)  'ISSUE.40) )
(insert-item ISSUE ISSUE.40)
(defvar ISSUE.39)
(prog1 (setf ISSUE.39 (make-instance 'ISSUE))
(setf (slot-value ISSUE.39 'NAME)  "Separation of church and state") 
(setf (slot-value ISSUE.39 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.39 'SYNONYMS)  (list  'CHURCH-AND-STATE)
) 
(setf (slot-value ISSUE.39 'POLARITY)  "Support separation of church and stae") 
(setf (slot-value ISSUE.39 'ENGLISH)  "the separation of church and state") 
(setf (slot-value ISSUE.39 'PRO-STANCES)  (list (init-stance '(CONSTITUTION PRO B CHURCH-AND-STATE ISSUE))
(init-stance '(DEMOCRACY PRO B CHURCH-AND-STATE ISSUE))
(init-stance '(RELIGION PRO B CHURCH-AND-STATE ISSUE))
)
) 
(setf (slot-value ISSUE.39 'NORM) (init-stance '(CHURCH-AND-STATE PRO C ISSUE.39 ISSUE))
) 
(setf (slot-value ISSUE.39 'STATUS)  "Active") 
(setf (slot-value ISSUE.39 'DATE-OPEN) (list->date '(3 17 1990))) 
(setf (slot-value ISSUE.39 'SYMBOL)  'ISSUE.39) )
(insert-item ISSUE ISSUE.39)
(defvar ISSUE.2709)
(prog1 (setf ISSUE.2709 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2709 'NAME)  "Social Policy") 
(setf (slot-value ISSUE.2709 'SYNONYMS)  (list  'SOCIAL)
) 
(setf (slot-value ISSUE.2709 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.2709 'ENGLISH)  "social issues") 
(setf (slot-value ISSUE.2709 'STATUS)  "Active") 
(setf (slot-value ISSUE.2709 'DATE-OPEN) (list->date '(8 31 1988))) 
(setf (slot-value ISSUE.2709 'SYMBOL)  'ISSUE.2709) )
(insert-item ISSUE ISSUE.2709)
(defvar ISSUE.3807)
(prog1 (setf ISSUE.3807 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3807 'NAME)  "Social Security") 
(setf (slot-value ISSUE.3807 'SYNONYMS)  (list  'SOCIAL-SECURITY)
) 
(setf (slot-value ISSUE.3807 'ISA)  (list  'ELDERLY)
) 
(setf (slot-value ISSUE.3807 'POLARITY)  "Support federal social security program") 
(setf (slot-value ISSUE.3807 'ENGLISH)  "the federal social security program") 
(setf (slot-value ISSUE.3807 'ENGLISH-SHORT)  "social security increases") 
(setf (slot-value ISSUE.3807 'PRO-ENGLISH)  "increases in social security payments") 
(setf (slot-value ISSUE.3807 'GROUPS)  (list  'AGED)
) 
(setf (slot-value ISSUE.3807 'PRO-STANCES)  (list (init-stance '(ELDERLY PRO B SOCIAL-SECURITY ISSUE))
)
) 
(setf (slot-value ISSUE.3807 'CON-STANCES)  (list (init-stance '(BALANCED-BUDGET PRO C SOCIAL-SECURITY ISSUE))
(init-stance '(FISCAL-RESPONSIBILITY PRO C SOCIAL-SECURITY ISSUE))
(init-stance '(INFLATION PRO C SOCIAL-SECURITY ISSUE))
)
) 
(setf (slot-value ISSUE.3807 'NORM) (init-stance '(SOCIAL-SECURITY PRO B ISSUE.3807 ISSUE))
) 
(setf (slot-value ISSUE.3807 'STATUS)  "Active") 
(setf (slot-value ISSUE.3807 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3807 'SYMBOL)  'ISSUE.3807) )
(insert-item ISSUE ISSUE.3807)
(defvar ISSUE.3829)
(prog1 (setf ISSUE.3829 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3829 'NAME)  "South Africa") 
(setf (slot-value ISSUE.3829 'SYNONYMS)  (list  'SOUTH-AFRICA)
) 
(setf (slot-value ISSUE.3829 'ISA)  (list  'AFRICA)
) 
(setf (slot-value ISSUE.3829 'POLARITY)  "Support current white regime in South Africa") 
(setf (slot-value ISSUE.3829 'ENGLISH)  "the strategic relationship with South Africa") 
(setf (slot-value ISSUE.3829 'ENGLISH-SHORT)  "South Africa") 
(setf (slot-value ISSUE.3829 'PRO-STANCES)  (list (init-stance '(NATIONAL-SECURITY PRO B SOUTH-AFRICA ISSUE))
(init-stance '(FOREIGN PRO B SOUTH-AFRICA ISSUE))
)
) 
(setf (slot-value ISSUE.3829 'CON-STANCES)  (list (init-stance '(APARTHEID CON A SOUTH-AFRICA ISSUE))
(init-stance '(RACISM CON A SOUTH-AFRICA ISSUE))
)
) 
(setf (slot-value ISSUE.3829 'NORM) (init-stance '(SOUTH-AFRICA CON C ISSUE.3829 ISSUE))
) 
(setf (slot-value ISSUE.3829 'STATUS)  "Active") 
(setf (slot-value ISSUE.3829 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3829 'SYMBOL)  'ISSUE.3829) )
(insert-item ISSUE ISSUE.3829)
(defvar ISSUE.890)
(prog1 (setf ISSUE.890 (make-instance 'ISSUE))
(setf (slot-value ISSUE.890 'NAME)  "South America") 
(setf (slot-value ISSUE.890 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.890 'SYNONYMS)  (list  'SOUTH-AMERICA)
) 
(setf (slot-value ISSUE.890 'ISA)  (list  'LATIN-AMERICA)
) 
(setf (slot-value ISSUE.890 'ENGLISH)  "the countries of South America") 
(setf (slot-value ISSUE.890 'ENGLISH-SHORT)  "South America") 
(setf (slot-value ISSUE.890 'PRO-STANCES)  (list (init-stance '(LATIN-AMERICA PRO B SOUTH-AMERICA ISSUE))
(init-stance '(THIRD-WORLD PRO B SOUTH-AMERICA ISSUE))
(init-stance '(THIRD-WORLD-DEBT PRO B SOUTH-AMERICA ISSUE))
)
) 
(setf (slot-value ISSUE.890 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO B SOUTH-AMERICA ISSUE))
)
) 
(setf (slot-value ISSUE.890 'NORM) (init-stance '(SOUTH-AMERICA PRO C ISSUE.890 ISSUE))
) 
(setf (slot-value ISSUE.890 'STATUS)  "Active") 
(setf (slot-value ISSUE.890 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.890 'SYMBOL)  'ISSUE.890) )
(insert-item ISSUE ISSUE.890)
(defvar ISSUE.3828)
(prog1 (setf ISSUE.3828 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3828 'NAME)  "Soviet Union") 
(setf (slot-value ISSUE.3828 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.3828 'SYNONYMS)  (list  'USSR 'RUSSIA)
) 
(setf (slot-value ISSUE.3828 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.3828 'POLARITY)  "Support current regime in USSR") 
(setf (slot-value ISSUE.3828 'ENGLISH)  "the Soviet Union") 
(setf (slot-value ISSUE.3828 'ENGLISH-SHORT)  "Russia") 
(setf (slot-value ISSUE.3828 'PRO-STANCES)  (list (init-stance '(PEACE PRO B USSR ISSUE))
(init-stance '(ARMS-CONTROL PRO B USSR ISSUE))
(init-stance '(BALANCE-OF-POWER PRO B USSR ISSUE))
(init-stance '(DIPLOMACY PRO B USSR ISSUE))
)
) 
(setf (slot-value ISSUE.3828 'CON-STANCES)  (list (init-stance '(COMMUNISM PRO B USSR ISSUE))
(init-stance '(ISOLATIONISM PRO B USSR ISSUE))
(init-stance '(NATIONAL-SECURITY PRO B USSR ISSUE))
)
) 
(setf (slot-value ISSUE.3828 'NORM) (init-stance '(USSR PRO C ISSUE.3828 ISSUE))
) 
(setf (slot-value ISSUE.3828 'STATUS)  "Active") 
(setf (slot-value ISSUE.3828 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3828 'SYMBOL)  'ISSUE.3828) )
(insert-item ISSUE ISSUE.3828)
(defvar ISSUE.1261)
(prog1 (setf ISSUE.1261 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1261 'NAME)  "Space Exploration") 
(setf (slot-value ISSUE.1261 'TYPE)  'PROGRAM) 
(setf (slot-value ISSUE.1261 'SYNONYMS)  (list  'SPACE)
) 
(setf (slot-value ISSUE.1261 'ISA)  (list  'FEDERAL-PROGRAMS)
) 
(setf (slot-value ISSUE.1261 'POLARITY)  "Support federal efforts for space exploration") 
(setf (slot-value ISSUE.1261 'ENGLISH)  "funding space exploration") 
(setf (slot-value ISSUE.1261 'ENGLISH-SHORT)  "space exploration") 
(setf (slot-value ISSUE.1261 'PRO-ENGLISH)  "increased funding for space exploration") 
(setf (slot-value ISSUE.1261 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO B SPACE ISSUE))
(init-stance '(IDEALISM PRO B SPACE ISSUE))
(init-stance '(PROGRESS PRO B SPACE ISSUE))
)
) 
(setf (slot-value ISSUE.1261 'CON-STANCES)  (list (init-stance '(DEFICIT CON B SPACE ISSUE))
)
) 
(setf (slot-value ISSUE.1261 'NORM) (init-stance '(SPACE PRO C ISSUE.1261 ISSUE))
) 
(setf (slot-value ISSUE.1261 'STATUS)  "Active") 
(setf (slot-value ISSUE.1261 'DATE-OPEN) (list->date '(9 18 1989))) 
(setf (slot-value ISSUE.1261 'SYMBOL)  'ISSUE.1261) )
(insert-item ISSUE ISSUE.1261)
(defvar ISSUE.1015)
(prog1 (setf ISSUE.1015 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1015 'NAME)  "States Rights") 
(setf (slot-value ISSUE.1015 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.1015 'SYNONYMS)  (list  'STATES-RIGHTS)
) 
(setf (slot-value ISSUE.1015 'ISA)  (list  'SOCIAL)
) 
(setf (slot-value ISSUE.1015 'POLARITY)  "local governments can establish laws without federal intervention") 
(setf (slot-value ISSUE.1015 'ENGLISH)  "sovereignty of state governments") 
(setf (slot-value ISSUE.1015 'ENGLISH-SHORT)  "states' rights") 
(setf (slot-value ISSUE.1015 'PRO-STANCES)  (list (init-stance '(CONSTITUTION PRO B STATES-RIGHTS ISSUE))
(init-stance '(SELF-DETERMINATION PRO B STATES-RIGHTS ISSUE))
)
) 
(setf (slot-value ISSUE.1015 'CON-STANCES)  (list (init-stance '(CIVIL-RIGHTS PRO B STATES-RIGHTS ISSUE))
)
) 
(setf (slot-value ISSUE.1015 'NORM) (init-stance '(STATES-RIGHTS PRO C ISSUE.1015 ISSUE))
) 
(setf (slot-value ISSUE.1015 'STATUS)  "Active") 
(setf (slot-value ISSUE.1015 'DATE-OPEN) (list->date '(8 18 1989))) 
(setf (slot-value ISSUE.1015 'SYMBOL)  'ISSUE.1015) )
(insert-item ISSUE ISSUE.1015)
(defvar ISSUE.907)
(prog1 (setf ISSUE.907 (make-instance 'ISSUE))
(setf (slot-value ISSUE.907 'NAME)  "Stealth Bomber") 
(setf (slot-value ISSUE.907 'SYNONYMS)  (list  'STEALTH)
) 
(setf (slot-value ISSUE.907 'ISA)  (list  'NUCLEAR-WEAPON)
) 
(setf (slot-value ISSUE.907 'POLARITY)  "Support building Stealth bomber") 
(setf (slot-value ISSUE.907 'ENGLISH)  "building the Stealth bomber") 
(setf (slot-value ISSUE.907 'ENGLISH-SHORT)  "the Stealth bomber") 
(setf (slot-value ISSUE.907 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO B STEALTH ISSUE))
(init-stance '(NUCLEAR-WEAPON PRO B STEALTH ISSUE))
)
) 
(setf (slot-value ISSUE.907 'CON-STANCES)  (list (init-stance '(DEFICIT CON B STEALTH ISSUE))
(init-stance '(PEACE PRO B STEALTH ISSUE))
)
) 
(setf (slot-value ISSUE.907 'STATUS)  "Active") 
(setf (slot-value ISSUE.907 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.907 'SYMBOL)  'ISSUE.907) 
(setf (slot-value ISSUE.907 'KEYWORDS)  (list  'AIR-BASED)
) )
(insert-item ISSUE ISSUE.907)
(defvar ISSUE.711)
(prog1 (setf ISSUE.711 (make-instance 'ISSUE))
(setf (slot-value ISSUE.711 'NAME)  "Stimulate investment") 
(setf (slot-value ISSUE.711 'TYPE)  'ECONOMIC) 
(setf (slot-value ISSUE.711 'SYNONYMS)  (list  'SPUR-INVESTMENT)
) 
(setf (slot-value ISSUE.711 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.711 'POLARITY)  "Support programs that stimulate the economy") 
(setf (slot-value ISSUE.711 'ENGLISH)  "programs that stimulate the economy") 
(setf (slot-value ISSUE.711 'PRO-STANCES)  (list (init-stance '(PROSPERITY PRO B SPUR-INVESTMENT ISSUE))
(init-stance '(UNEMPLOYMENT PRO B SPUR-INVESTMENT ISSUE))
(init-stance '(JOBS PRO B SPUR-INVESTMENT ISSUE))
(init-stance '(PROGRESS PRO B SPUR-INVESTMENT ISSUE))
)
) 
(setf (slot-value ISSUE.711 'CON-STANCES)  (list (init-stance '(INFLATION CON B SPUR-INVESTMENT ISSUE))
)
) 
(setf (slot-value ISSUE.711 'NORM) (init-stance '(SPUR-INVESTMENT PRO C ISSUE.711 ISSUE))
) 
(setf (slot-value ISSUE.711 'STATUS)  "Active") 
(setf (slot-value ISSUE.711 'DATE-OPEN) (list->date '(9 29 1989))) 
(setf (slot-value ISSUE.711 'SYMBOL)  'ISSUE.711) )
(insert-item ISSUE ISSUE.711)
(defvar ISSUE.3837)
(prog1 (setf ISSUE.3837 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3837 'NAME)  "Strategic Defense Initiative") 
(setf (slot-value ISSUE.3837 'TYPE)  'PROGRAM) 
(setf (slot-value ISSUE.3837 'SYNONYMS)  (list  'SDI)
) 
(setf (slot-value ISSUE.3837 'ISA)  (list  'WEAPONS)
) 
(setf (slot-value ISSUE.3837 'POLARITY)  "Support funding SDI") 
(setf (slot-value ISSUE.3837 'ENGLISH)  "the Strategic Defense Initiative") 
(setf (slot-value ISSUE.3837 'ENGLISH-SHORT)  "SDI") 
(setf (slot-value ISSUE.3837 'CON-ENGLISH)  "funding the wasteful Star Wars defense shield") 
(setf (slot-value ISSUE.3837 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO B SDI ISSUE))
(init-stance '(NUCLEAR-WEAPON PRO B SDI ISSUE))
)
) 
(setf (slot-value ISSUE.3837 'CON-STANCES)  (list (init-stance '(DEFICIT CON B SDI ISSUE))
(init-stance '(PEACE PRO B SDI ISSUE))
)
) 
(setf (slot-value ISSUE.3837 'NORM) (init-stance '(SDI PRO C ISSUE.3837 ISSUE))
) 
(setf (slot-value ISSUE.3837 'STATUS)  "Active") 
(setf (slot-value ISSUE.3837 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3837 'SYMBOL)  'ISSUE.3837) 
(setf (slot-value ISSUE.3837 'KEYWORDS)  (list  'STRATEGIC 'DEFENSE 'INITIATIVE)
) )
(insert-item ISSUE ISSUE.3837)
(defvar ISSUE.721)
(prog1 (setf ISSUE.721 (make-instance 'ISSUE))
(setf (slot-value ISSUE.721 'NAME)  "Student loans") 
(setf (slot-value ISSUE.721 'TYPE)  'PROGRAM) 
(setf (slot-value ISSUE.721 'SYNONYMS)  (list  'STUDENT-LOANS)
) 
(setf (slot-value ISSUE.721 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.721 'POLARITY)  "Support funding student loans") 
(setf (slot-value ISSUE.721 'ENGLISH)  "funding student loans") 
(setf (slot-value ISSUE.721 'PRO-ENGLISH)  "increased funding of student loans") 
(setf (slot-value ISSUE.721 'PRO-STANCES)  (list (init-stance '(EDUCATION PRO B STUDENT-LOANS ISSUE))
(init-stance '(EQUALITY PRO B STUDENT-LOANS ISSUE))
(init-stance '(FAMILY PRO C STUDENT-LOANS ISSUE))
(init-stance '(PROGRESS PRO B STUDENT-LOANS ISSUE))
)
) 
(setf (slot-value ISSUE.721 'CON-STANCES)  (list (init-stance '(FISCAL-RESPONSIBILITY PRO B STUDENT-LOANS ISSUE))
(init-stance '(HARD-WORK PRO B STUDENT-LOANS ISSUE))
)
) 
(setf (slot-value ISSUE.721 'NORM) (init-stance '(STUDENT-LOANS PRO C ISSUE.721 ISSUE))
) 
(setf (slot-value ISSUE.721 'STATUS)  "Active") 
(setf (slot-value ISSUE.721 'DATE-OPEN) (list->date '(11 2 1989))) 
(setf (slot-value ISSUE.721 'SYMBOL)  'ISSUE.721) )
(insert-item ISSUE ISSUE.721)
(defvar ISSUE.3218)
(prog1 (setf ISSUE.3218 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3218 'NAME)  "Superfund") 
(setf (slot-value ISSUE.3218 'SYNONYMS)  (list  'SUPERFUND)
) 
(setf (slot-value ISSUE.3218 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.3218 'POLARITY)  "Support Superfund for cleaning up toxic waste") 
(setf (slot-value ISSUE.3218 'ENGLISH)  "the Superfund program for cleaning up toxic waste") 
(setf (slot-value ISSUE.3218 'ENGLISH-SHORT)  "the Superfund") 
(setf (slot-value ISSUE.3218 'PRO-STANCES)  (list (init-stance '(TOXIC-WASTE PRO B SUPERFUND ISSUE))
(init-stance '(ENVIRONMENT PRO B SUPERFUND ISSUE))
(init-stance '(PROGRESS PRO B SUPERFUND ISSUE))
)
) 
(setf (slot-value ISSUE.3218 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B SUPERFUND ISSUE))
(init-stance '(FREE-MARKET PRO B SUPERFUND ISSUE))
(init-stance '(BUSINESS PRO B SUPERFUND ISSUE))
(init-stance '(TRADITION PRO B SUPERFUND ISSUE))
)
) 
(setf (slot-value ISSUE.3218 'NORM) (init-stance '(SUPERFUND PRO C ISSUE.3218 ISSUE))
) 
(setf (slot-value ISSUE.3218 'STATUS)  "Active") 
(setf (slot-value ISSUE.3218 'DATE-OPEN) (list->date '(5 4 1989))) 
(setf (slot-value ISSUE.3218 'SYMBOL)  'ISSUE.3218) )
(insert-item ISSUE ISSUE.3218)
(defvar ISSUE.1438)
(prog1 (setf ISSUE.1438 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1438 'NAME)  "Taiwan") 
(setf (slot-value ISSUE.1438 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.1438 'SYNONYMS)  (list  'CHINA 'TAIWAN)
) 
(setf (slot-value ISSUE.1438 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.1438 'ENGLISH)  "the country of Taiwan") 
(setf (slot-value ISSUE.1438 'ENGLISH-SHORT)  "Taiwan") 
(setf (slot-value ISSUE.1438 'PRO-STANCES)  (list (init-stance '(FOREIGN PRO B TAIWAN ISSUE))
)
) 
(setf (slot-value ISSUE.1438 'NORM) (init-stance '(TAIWAN PRO C ISSUE.1438 ISSUE))
) 
(setf (slot-value ISSUE.1438 'STATUS)  "Active") 
(setf (slot-value ISSUE.1438 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.1438 'SYMBOL)  'ISSUE.1438) )
(insert-item ISSUE ISSUE.1438)
(defvar ISSUE.808)
(prog1 (setf ISSUE.808 (make-instance 'ISSUE))
(setf (slot-value ISSUE.808 'NAME)  "Tax Reform") 
(setf (slot-value ISSUE.808 'SYNONYMS)  (list  'TAX-REFORM)
) 
(setf (slot-value ISSUE.808 'ISA)  (list  'TAXES)
) 
(setf (slot-value ISSUE.808 'POLARITY)  "Support income tax reform") 
(setf (slot-value ISSUE.808 'ENGLISH)  "efforts for income tax reform") 
(setf (slot-value ISSUE.808 'ENGLISH-SHORT)  "tax reform") 
(setf (slot-value ISSUE.808 'PRO-STANCES)  (list (init-stance '(FAIRNESS PRO B TAX-REFORM ISSUE))
(init-stance '(DEREGULATION PRO B TAX-REFORM ISSUE))
(init-stance '(CUT-TAXES PRO C TAX-REFORM ISSUE))
)
) 
(setf (slot-value ISSUE.808 'NORM) (init-stance '(TAX-REFORM PRO C ISSUE.808 ISSUE))
) 
(setf (slot-value ISSUE.808 'STATUS)  "Active") 
(setf (slot-value ISSUE.808 'DATE-OPEN) (list->date '(2 18 1989))) 
(setf (slot-value ISSUE.808 'SYMBOL)  'ISSUE.808) )
(insert-item ISSUE ISSUE.808)
(defvar ISSUE.3810)
(prog1 (setf ISSUE.3810 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3810 'NAME)  "Taxes") 
(setf (slot-value ISSUE.3810 'TYPE)  'POLICY) 
(setf (slot-value ISSUE.3810 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.3810 'POLARITY)  "Support raising taxes as a means of revenue enhancement") 
(setf (slot-value ISSUE.3810 'ENGLISH)  "increasing taxes to raise federal revenue") 
(setf (slot-value ISSUE.3810 'ENGLISH-SHORT)  "taxes") 
(setf (slot-value ISSUE.3810 'PRO-ENGLISH)  "measures to generate needed revenue for important government programs") 
(setf (slot-value ISSUE.3810 'CON-ENGLISH)  "increasing the oppressive tax burden on average Americans") 
(setf (slot-value ISSUE.3810 'PRO-STANCES)  (list (init-stance '(FISCAL-RESPONSIBILITY PRO B TAXES ISSUE))
(init-stance '(DEFICIT CON A TAXES ISSUE))
)
) 
(setf (slot-value ISSUE.3810 'CON-STANCES)  (list (init-stance '(WASTE PRO B TAXES ISSUE))
(init-stance '(SPENDING CON B TAXES ISSUE))
)
) 
(setf (slot-value ISSUE.3810 'NORM) (init-stance '(TAXES CON B ISSUE.3810 ISSUE))
) 
(setf (slot-value ISSUE.3810 'OPPOSITE)  'CUT-TAXES) 
(setf (slot-value ISSUE.3810 'STATUS)  "Active") 
(setf (slot-value ISSUE.3810 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3810 'SYMBOL)  'ISSUE.3810) )
(insert-item ISSUE ISSUE.3810)
(defvar ISSUE.2138)
(prog1 (setf ISSUE.2138 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2138 'NAME)  "Textile Industry") 
(setf (slot-value ISSUE.2138 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.2138 'SYNONYMS)  (list  'TEXTILE-INDUSTRY 'TEXTILES)
) 
(setf (slot-value ISSUE.2138 'ISA)  (list  'BUSINESS)
) 
(setf (slot-value ISSUE.2138 'POLARITY)  "Support regulations and funding for textile industry") 
(setf (slot-value ISSUE.2138 'ENGLISH)  "the textile industry") 
(setf (slot-value ISSUE.2138 'PRO-STANCES)  (list (init-stance '(BUSINESS PRO B TEXTILE-INDUSTRY ISSUE))
(init-stance '(FREE-MARKET PRO B TEXTILE-INDUSTRY ISSUE))
(init-stance '(JOB-PROTECTION PRO B TEXTILE-INDUSTRY ISSUE))
(init-stance '(TRADE-RESTRICTIONS PRO B TEXTILE-INDUSTRY ISSUE))
)
) 
(setf (slot-value ISSUE.2138 'STATUS)  "Active") 
(setf (slot-value ISSUE.2138 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2138 'SYMBOL)  'ISSUE.2138) )
(insert-item ISSUE ISSUE.2138)
(defvar ISSUE.812)
(prog1 (setf ISSUE.812 (make-instance 'ISSUE))
(setf (slot-value ISSUE.812 'NAME)  "Third World Debt") 
(setf (slot-value ISSUE.812 'SYNONYMS)  (list  'THIRD-WORLD-DEBT)
) 
(setf (slot-value ISSUE.812 'ISA)  (list  'THIRD-WORLD)
) 
(setf (slot-value ISSUE.812 'POLARITY)  "Support resolving problem of third world debt") 
(setf (slot-value ISSUE.812 'ENGLISH)  "third world debt") 
(setf (slot-value ISSUE.812 'GROUPS)  (list  'IMF 'WORLD-BANK)
) 
(setf (slot-value ISSUE.812 'PRO-STANCES)  (list (init-stance '(HUNGER PRO C THIRD-WORLD-DEBT ISSUE))
(init-stance '(THIRD-WORLD PRO B THIRD-WORLD-DEBT ISSUE))
(init-stance '(TRADE PRO B THIRD-WORLD-DEBT ISSUE))
(init-stance '(LATIN-AMERICA PRO B THIRD-WORLD-DEBT ISSUE))
(init-stance '(AFRICA PRO B THIRD-WORLD-DEBT ISSUE))
(init-stance '(BANKING PRO B THIRD-WORLD-DEBT ISSUE))
)
) 
(setf (slot-value ISSUE.812 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO B THIRD-WORLD-DEBT ISSUE))
(init-stance '(FISCAL-RESPONSIBILITY PRO B THIRD-WORLD-DEBT ISSUE))
(init-stance '(DEFICIT CON C THIRD-WORLD-DEBT ISSUE))
)
) 
(setf (slot-value ISSUE.812 'NORM) (init-stance '(THIRD-WORLD-DEBT PRO C ISSUE.812 ISSUE))
) 
(setf (slot-value ISSUE.812 'STATUS)  "Active") 
(setf (slot-value ISSUE.812 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.812 'SYMBOL)  'ISSUE.812) )
(insert-item ISSUE ISSUE.812)
(defvar ISSUE.2405)
(prog1 (setf ISSUE.2405 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2405 'NAME)  "Tobacco Price Supports") 
(setf (slot-value ISSUE.2405 'SYNONYMS)  (list  'TOBACCO-PRICE-SUPPORTS)
) 
(setf (slot-value ISSUE.2405 'ISA)  (list  'FARM)
) 
(setf (slot-value ISSUE.2405 'POLARITY)  "Support federal subsidies of tobacco") 
(setf (slot-value ISSUE.2405 'ENGLISH)  "federal subsidies of tobacco") 
(setf (slot-value ISSUE.2405 'ENGLISH-SHORT)  "tobacco price supports") 
(setf (slot-value ISSUE.2405 'CON-ENGLISH)  "give-away programs for rich tobacco farmers") 
(setf (slot-value ISSUE.2405 'PRO-STANCES)  (list (init-stance '(FARM PRO B TOBACCO-PRICE-SUPPORTS ISSUE))
(init-stance '(BUSINESS PRO C TOBACCO-PRICE-SUPPORTS ISSUE))
(init-stance '(JOB-PROTECTION PRO C TOBACCO-PRICE-SUPPORTS ISSUE))
(init-stance '(TRADITION PRO B TOBACCO-PRICE-SUPPORTS ISSUE))
)
) 
(setf (slot-value ISSUE.2405 'CON-STANCES)  (list (init-stance '(SMOKING-BAN PRO B TOBACCO-PRICE-SUPPORTS ISSUE))
)
) 
(setf (slot-value ISSUE.2405 'STATUS)  "Active") 
(setf (slot-value ISSUE.2405 'DATE-OPEN) (list->date '(9 1 1988))) 
(setf (slot-value ISSUE.2405 'SYMBOL)  'ISSUE.2405) )
(insert-item ISSUE ISSUE.2405)
(defvar ISSUE.813)
(prog1 (setf ISSUE.813 (make-instance 'ISSUE))
(setf (slot-value ISSUE.813 'NAME)  "Totalitarianism") 
(setf (slot-value ISSUE.813 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.813 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.813 'ENGLISH)  "the totalitarian form of government") 
(setf (slot-value ISSUE.813 'ENGLISH-SHORT)  "totalitarianism") 
(setf (slot-value ISSUE.813 'CON-STANCES)  (list (init-stance '(DEMOCRACY PRO A TOTALITARIANISM ISSUE))
(init-stance '(FREEDOM PRO A TOTALITARIANISM ISSUE))
(init-stance '(VALUES PRO B TOTALITARIANISM ISSUE))
(init-stance '(ELECTIONS PRO B TOTALITARIANISM ISSUE))
)
) 
(setf (slot-value ISSUE.813 'NORM) (init-stance '(TOTALITARIANISM CON B ISSUE.813 ISSUE))
) 
(setf (slot-value ISSUE.813 'OPPOSITE)  'DEMOCRACY) 
(setf (slot-value ISSUE.813 'STATUS)  "Active") 
(setf (slot-value ISSUE.813 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.813 'SYMBOL)  'ISSUE.813) )
(insert-item ISSUE ISSUE.813)
(defvar ISSUE.1756)
(prog1 (setf ISSUE.1756 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1756 'NAME)  "Tower Nomination") 
(setf (slot-value ISSUE.1756 'TYPE)  'NOMINATION) 
(setf (slot-value ISSUE.1756 'SYNONYMS)  (list  'TOWER)
) 
(setf (slot-value ISSUE.1756 'ISA)  (list  'DEFENSE)
) 
(setf (slot-value ISSUE.1756 'POLARITY)  "Support nomination of John Tower as Secretary of Defense") 
(setf (slot-value ISSUE.1756 'ENGLISH)  "John Tower as Secretary of Defense") 
(setf (slot-value ISSUE.1756 'PRO-STANCES)  (list (init-stance '(BUSH PRO B TOWER ISSUE))
)
) 
(setf (slot-value ISSUE.1756 'CON-STANCES)  (list (init-stance '(INTEGRITY PRO B TOWER ISSUE))
)
) 
(setf (slot-value ISSUE.1756 'STATUS)  "Active") 
(setf (slot-value ISSUE.1756 'DATE-OPEN) (list->date '(3 22 1989))) 
(setf (slot-value ISSUE.1756 'SYMBOL)  'ISSUE.1756) )
(insert-item ISSUE ISSUE.1756)
(defvar ISSUE.640)
(prog1 (setf ISSUE.640 (make-instance 'ISSUE))
(setf (slot-value ISSUE.640 'NAME)  "Toxic waste cleanup") 
(setf (slot-value ISSUE.640 'SYNONYMS)  (list  'TOXIC-WASTE)
) 
(setf (slot-value ISSUE.640 'ISA)  (list  'ENVIRONMENT)
) 
(setf (slot-value ISSUE.640 'POLARITY)  "Support efforts to clean up toxic waste") 
(setf (slot-value ISSUE.640 'ENGLISH)  "funding for toxic waste clean-up efforts") 
(setf (slot-value ISSUE.640 'ENGLISH-SHORT)  "toxic waste clean-up") 
(setf (slot-value ISSUE.640 'PRO-ENGLISH)  "increased funding for toxic waste clean-up efforts") 
(setf (slot-value ISSUE.640 'PRO-STANCES)  (list (init-stance '(ENVIRONMENT PRO B TOXIC-WASTE ISSUE))
(init-stance '(CLEAN-WATER PRO B TOXIC-WASTE ISSUE))
(init-stance '(CLEAN-AIR PRO B TOXIC-WASTE ISSUE))
)
) 
(setf (slot-value ISSUE.640 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B TOXIC-WASTE ISSUE))
(init-stance '(BUSINESS PRO C TOXIC-WASTE ISSUE))
)
) 
(setf (slot-value ISSUE.640 'NORM) (init-stance '(TOXIC-WASTE PRO C ISSUE.640 ISSUE))
) 
(setf (slot-value ISSUE.640 'STATUS)  "Active") 
(setf (slot-value ISSUE.640 'DATE-OPEN) (list->date '(11 3 1989))) 
(setf (slot-value ISSUE.640 'SYMBOL)  'ISSUE.640) )
(insert-item ISSUE ISSUE.640)
(defvar ISSUE.3809)
(prog1 (setf ISSUE.3809 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3809 'NAME)  "Trade") 
(setf (slot-value ISSUE.3809 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.3809 'POLARITY)  "Support foreign trade") 
(setf (slot-value ISSUE.3809 'ENGLISH)  "stimulating foreign trade and investment") 
(setf (slot-value ISSUE.3809 'ENGLISH-SHORT)  "foreign trade") 
(setf (slot-value ISSUE.3809 'PRO-STANCES)  (list (init-stance '(TRADE-DEFICIT PRO B TRADE ISSUE))
(init-stance '(BUSINESS PRO B TRADE ISSUE))
(init-stance '(DEFICIT CON B TRADE ISSUE))
(init-stance '(PROSPERITY PRO B TRADE ISSUE))
(init-stance '(FOREIGN PRO C TRADE ISSUE))
)
) 
(setf (slot-value ISSUE.3809 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO C TRADE ISSUE))
)
) 
(setf (slot-value ISSUE.3809 'NORM) (init-stance '(TRADE PRO C ISSUE.3809 ISSUE))
) 
(setf (slot-value ISSUE.3809 'STATUS)  "Active") 
(setf (slot-value ISSUE.3809 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3809 'SYMBOL)  'ISSUE.3809) )
(insert-item ISSUE ISSUE.3809)
(defvar ISSUE.2475)
(prog1 (setf ISSUE.2475 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2475 'NAME)  "Trade Deficit Reduction") 
(setf (slot-value ISSUE.2475 'SYNONYMS)  (list  'TRADE-DEFICIT)
) 
(setf (slot-value ISSUE.2475 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.2475 'POLARITY)  "Support efforts to reduce trade deficit") 
(setf (slot-value ISSUE.2475 'ENGLISH)  "efforts to reduce the foreign trade deficit") 
(setf (slot-value ISSUE.2475 'ENGLISH-SHORT)  "trade deficit reduction") 
(setf (slot-value ISSUE.2475 'PRO-STANCES)  (list (init-stance '(TRADE PRO B TRADE-DEFICIT ISSUE))
(init-stance '(FOREIGN PRO B TRADE-DEFICIT ISSUE))
(init-stance '(DEFICIT CON B TRADE-DEFICIT ISSUE))
(init-stance '(ECONOMY PRO B TRADE-DEFICIT ISSUE))
)
) 
(setf (slot-value ISSUE.2475 'NORM) (init-stance '(TRADE-DEFICIT PRO C ISSUE.2475 ISSUE))
) 
(setf (slot-value ISSUE.2475 'STATUS)  "Active") 
(setf (slot-value ISSUE.2475 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.2475 'SYMBOL)  'ISSUE.2475) )
(insert-item ISSUE ISSUE.2475)
(defvar ISSUE.809)
(prog1 (setf ISSUE.809 (make-instance 'ISSUE))
(setf (slot-value ISSUE.809 'NAME)  "Trade Restrictions") 
(setf (slot-value ISSUE.809 'TYPE)  'POLICY) 
(setf (slot-value ISSUE.809 'SYNONYMS)  (list  'TRADE-RESTRICTIONS)
) 
(setf (slot-value ISSUE.809 'ISA)  (list  'TRADE)
) 
(setf (slot-value ISSUE.809 'POLARITY)  "Support protectionist tariffs to increase price of imported goods") 
(setf (slot-value ISSUE.809 'ENGLISH)  "trade tariffs and restrictions") 
(setf (slot-value ISSUE.809 'ENGLISH-SHORT)  "protectionism") 
(setf (slot-value ISSUE.809 'PRO-STANCES)  (list (init-stance '(JOB-PROTECTION PRO B TRADE-RESTRICTIONS ISSUE))
)
) 
(setf (slot-value ISSUE.809 'CON-STANCES)  (list (init-stance '(TRADE PRO B TRADE-RESTRICTIONS ISSUE))
(init-stance '(FREE-MARKET PRO B TRADE-RESTRICTIONS ISSUE))
(init-stance '(FOREIGN PRO B TRADE-RESTRICTIONS ISSUE))
(init-stance '(FREE-TRADE PRO A TRADE-RESTRICTIONS ISSUE))
)
) 
(setf (slot-value ISSUE.809 'OPPOSITE)  'FREE-TRADE) 
(setf (slot-value ISSUE.809 'STATUS)  "Active") 
(setf (slot-value ISSUE.809 'DATE-OPEN) (list->date '(2 18 1989))) 
(setf (slot-value ISSUE.809 'SYMBOL)  'ISSUE.809) 
(setf (slot-value ISSUE.809 'KEYWORDS)  (list  'DOMESTIC 'CONTENT 'TRADE 'RESTRICTIONS)
) )
(insert-item ISSUE ISSUE.809)
(defvar ISSUE.54)
(prog1 (setf ISSUE.54 (make-instance 'ISSUE))
(setf (slot-value ISSUE.54 'NAME)  "Tradition") 
(setf (slot-value ISSUE.54 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.54 'ISA)  (list  'VALUE)
) 
(setf (slot-value ISSUE.54 'POLARITY)  "Support the traditional values of society") 
(setf (slot-value ISSUE.54 'ENGLISH)  "tradition and preserving the status quo") 
(setf (slot-value ISSUE.54 'ENGLISH-SHORT)  "tradition") 
(setf (slot-value ISSUE.54 'CON-STANCES)  (list (init-stance '(PROGRESS PRO B TRADITION ISSUE))
)
) 
(setf (slot-value ISSUE.54 'NORM) (init-stance '(TRADITION PRO C ISSUE.54 ISSUE))
) 
(setf (slot-value ISSUE.54 'OPPOSITE)  'PROGRESS) 
(setf (slot-value ISSUE.54 'STATUS)  "Active") 
(setf (slot-value ISSUE.54 'DATE-OPEN) (list->date '(3 18 1990))) 
(setf (slot-value ISSUE.54 'SYMBOL)  'ISSUE.54) )
(insert-item ISSUE ISSUE.54)
(defvar ISSUE.836)
(prog1 (setf ISSUE.836 (make-instance 'ISSUE))
(setf (slot-value ISSUE.836 'NAME)  "Transportation") 
(setf (slot-value ISSUE.836 'ISA)  (list  'DOMESTIC)
) 
(setf (slot-value ISSUE.836 'POLARITY)  "Support federal regulation and funding of transportation") 
(setf (slot-value ISSUE.836 'ENGLISH)  "federal transportation programs") 
(setf (slot-value ISSUE.836 'ENGLISH-SHORT)  "transportation programs") 
(setf (slot-value ISSUE.836 'PRO-ENGLISH)  "increased funding for federal transportation programs") 
(setf (slot-value ISSUE.836 'NUMBER)  'PLUR) 
(setf (slot-value ISSUE.836 'PRO-STANCES)  (list (init-stance '(BUSINESS PRO B TRANSPORTATION ISSUE))
(init-stance '(ECONOMY PRO C TRANSPORTATION ISSUE))
)
) 
(setf (slot-value ISSUE.836 'CON-STANCES)  (list (init-stance '(DEFICIT CON C TRANSPORTATION ISSUE))
(init-stance '(DEREGULATION PRO B TRANSPORTATION ISSUE))
)
) 
(setf (slot-value ISSUE.836 'STATUS)  "Active") 
(setf (slot-value ISSUE.836 'DATE-OPEN) (list->date '(4 14 1989))) 
(setf (slot-value ISSUE.836 'SYMBOL)  'ISSUE.836) )
(insert-item ISSUE ISSUE.836)
(defvar ISSUE.903)
(prog1 (setf ISSUE.903 (make-instance 'ISSUE))
(setf (slot-value ISSUE.903 'NAME)  "Trident 2 Submarine") 
(setf (slot-value ISSUE.903 'SYNONYMS)  (list  'TRIDENT2 'TRIDENT-II-MISSILE)
) 
(setf (slot-value ISSUE.903 'ISA)  (list  'NUCLEAR-WEAPON)
) 
(setf (slot-value ISSUE.903 'POLARITY)  "Support building Trident 2 submarine") 
(setf (slot-value ISSUE.903 'ENGLISH)  "building the Trident 2 submarine") 
(setf (slot-value ISSUE.903 'ENGLISH-SHORT)  "the Trident 2") 
(setf (slot-value ISSUE.903 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO B TRIDENT2 ISSUE))
(init-stance '(NUCLEAR-WEAPON PRO B TRIDENT2 ISSUE))
)
) 
(setf (slot-value ISSUE.903 'CON-STANCES)  (list (init-stance '(PEACE PRO B TRIDENT2 ISSUE))
(init-stance '(DEFICIT CON B TRIDENT2 ISSUE))
)
) 
(setf (slot-value ISSUE.903 'STATUS)  "Active") 
(setf (slot-value ISSUE.903 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.903 'SYMBOL)  'ISSUE.903) 
(setf (slot-value ISSUE.903 'KEYWORDS)  (list  'SEA-BASED)
) )
(insert-item ISSUE ISSUE.903)
(defvar ISSUE.2667)
(prog1 (setf ISSUE.2667 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2667 'NAME)  "Unemployment") 
(setf (slot-value ISSUE.2667 'SYNONYMS)  (list  'UNEMPLOYMENT)
) 
(setf (slot-value ISSUE.2667 'ISA)  (list  'ECONOMIC)
) 
(setf (slot-value ISSUE.2667 'POLARITY)  "Support efforts to reduce unemployment") 
(setf (slot-value ISSUE.2667 'ENGLISH)  "efforts to reduce unemployment") 
(setf (slot-value ISSUE.2667 'ENGLISH-SHORT)  "unemployment reduction") 
(setf (slot-value ISSUE.2667 'PRO-STANCES)  (list (init-stance '(JOBS PRO B UNEMPLOYMENT ISSUE))
(init-stance '(FAIRNESS PRO B UNEMPLOYMENT ISSUE))
(init-stance '(POVERTY PRO B UNEMPLOYMENT ISSUE))
(init-stance '(LABOR PRO B UNEMPLOYMENT ISSUE))
)
) 
(setf (slot-value ISSUE.2667 'CON-STANCES)  (list (init-stance '(INFLATION PRO B UNEMPLOYMENT ISSUE))
)
) 
(setf (slot-value ISSUE.2667 'NORM) (init-stance '(UNEMPLOYMENT PRO C ISSUE.2667 ISSUE))
) 
(setf (slot-value ISSUE.2667 'STATUS)  "Active") 
(setf (slot-value ISSUE.2667 'DATE-OPEN) (list->date '(4 16 1989))) 
(setf (slot-value ISSUE.2667 'SYMBOL)  'ISSUE.2667) )
(insert-item ISSUE ISSUE.2667)
(defvar ISSUE.722)
(prog1 (setf ISSUE.722 (make-instance 'ISSUE))
(setf (slot-value ISSUE.722 'NAME)  "Unemployment insurance") 
(setf (slot-value ISSUE.722 'TYPE)  'PROGRAM) 
(setf (slot-value ISSUE.722 'SYNONYMS)  (list  'UNEMPLOYMENT-INSURANCE)
) 
(setf (slot-value ISSUE.722 'ISA)  (list  'UNEMPLOYMENT)
) 
(setf (slot-value ISSUE.722 'POLARITY)  "Support funding unemployment insurance") 
(setf (slot-value ISSUE.722 'ENGLISH)  "funding unemployment insurance") 
(setf (slot-value ISSUE.722 'PRO-ENGLISH)  "increased funding for unemployment insurance") 
(setf (slot-value ISSUE.722 'PRO-STANCES)  (list (init-stance '(UNEMPLOYMENT PRO B UNEMPLOYMENT-INSURANCE ISSUE))
(init-stance '(FAIRNESS PRO C UNEMPLOYMENT-INSURANCE ISSUE))
(init-stance '(COMPASSION PRO C UNEMPLOYMENT-INSURANCE ISSUE))
(init-stance '(LABOR PRO C UNEMPLOYMENT-INSURANCE ISSUE))
)
) 
(setf (slot-value ISSUE.722 'CON-STANCES)  (list (init-stance '(BUSINESS PRO C UNEMPLOYMENT-INSURANCE ISSUE))
(init-stance '(FISCAL-RESPONSIBILITY PRO C UNEMPLOYMENT-INSURANCE ISSUE))
)
) 
(setf (slot-value ISSUE.722 'NORM) (init-stance '(UNEMPLOYMENT-INSURANCE PRO C ISSUE.722 ISSUE))
) 
(setf (slot-value ISSUE.722 'STATUS)  "Active") 
(setf (slot-value ISSUE.722 'DATE-OPEN) (list->date '(11 2 1989))) 
(setf (slot-value ISSUE.722 'SYMBOL)  'ISSUE.722) )
(insert-item ISSUE ISSUE.722)
(defvar ISSUE.883)
(prog1 (setf ISSUE.883 (make-instance 'ISSUE))
(setf (slot-value ISSUE.883 'NAME)  "United Nations") 
(setf (slot-value ISSUE.883 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.883 'SYNONYMS)  (list  'UN 'UNITED-NATIONS)
) 
(setf (slot-value ISSUE.883 'ISA)  (list  'FOREIGN-ORG)
) 
(setf (slot-value ISSUE.883 'ENGLISH)  "the United Nations") 
(setf (slot-value ISSUE.883 'ENGLISH-SHORT)  "the UN") 
(setf (slot-value ISSUE.883 'PRO-STANCES)  (list (init-stance '(FOREIGN-ORG PRO B UN ISSUE))
(init-stance '(PEACE PRO B UN ISSUE))
(init-stance '(DIPLOMACY PRO B UN ISSUE))
)
) 
(setf (slot-value ISSUE.883 'CON-STANCES)  (list (init-stance '(ISOLATIONISM PRO B UN ISSUE))
)
) 
(setf (slot-value ISSUE.883 'NORM) (init-stance '(UN PRO C ISSUE.883 ISSUE))
) 
(setf (slot-value ISSUE.883 'STATUS)  "Active") 
(setf (slot-value ISSUE.883 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.883 'SYMBOL)  'ISSUE.883) )
(insert-item ISSUE ISSUE.883)
(defvar ISSUE.1441)
(prog1 (setf ISSUE.1441 (make-instance 'ISSUE))
(setf (slot-value ISSUE.1441 'NAME)  "Urban Renewal") 
(setf (slot-value ISSUE.1441 'SYNONYMS)  (list  'SLUM 'CLEARANCE 'URBAN 'RENEWAL 'URBAN-RENEWAL)
) 
(setf (slot-value ISSUE.1441 'ISA)  (list  'HOUSING)
) 
(setf (slot-value ISSUE.1441 'POLARITY)  "Support federal efforts to build urban housing") 
(setf (slot-value ISSUE.1441 'ENGLISH)  "slum clearance and urban renewal") 
(setf (slot-value ISSUE.1441 'ENGLISH-SHORT)  "urban renewal") 
(setf (slot-value ISSUE.1441 'PRO-STANCES)  (list (init-stance '(HOUSING PRO B SLUM ISSUE))
(init-stance '(POVERTY PRO B SLUM ISSUE))
(init-stance '(HOMELESS PRO B SLUM ISSUE))
)
) 
(setf (slot-value ISSUE.1441 'CON-STANCES)  (list (init-stance '(DEFICIT CON C SLUM ISSUE))
(init-stance '(FREE-MARKET PRO B SLUM ISSUE))
)
) 
(setf (slot-value ISSUE.1441 'NORM) (init-stance '(SLUM PRO C ISSUE.1441 ISSUE))
) 
(setf (slot-value ISSUE.1441 'STATUS)  "Active") 
(setf (slot-value ISSUE.1441 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.1441 'SYMBOL)  'ISSUE.1441) )
(insert-item ISSUE ISSUE.1441)
(defvar ISSUE.3823)
(prog1 (setf ISSUE.3823 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3823 'NAME)  "Veterans Affairs") 
(setf (slot-value ISSUE.3823 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.3823 'SYNONYMS)  (list  'VETERANS 'VETERANS-BENEFITS)
) 
(setf (slot-value ISSUE.3823 'ISA)  (list  'DEFENSE)
) 
(setf (slot-value ISSUE.3823 'POLARITY)  "Support federal assistance for veterans") 
(setf (slot-value ISSUE.3823 'ENGLISH)  "American veterans") 
(setf (slot-value ISSUE.3823 'ENGLISH-SHORT)  "veterans") 
(setf (slot-value ISSUE.3823 'PRO-ENGLISH)  "patriotic American veterans") 
(setf (slot-value ISSUE.3823 'PRO-STANCES)  (list (init-stance '(PATRIOTISM PRO B VETERANS ISSUE))
(init-stance '(NATIONAL-SECURITY PRO C VETERANS ISSUE))
(init-stance '(CONVENTIONAL-DEFENSE PRO B VETERANS ISSUE))
(init-stance '(COMPASSION PRO B VETERANS ISSUE))
(init-stance '(RESPONSIBILITY PRO B VETERANS ISSUE))
)
) 
(setf (slot-value ISSUE.3823 'CON-STANCES)  (list (init-stance '(DEFICIT CON B VETERANS ISSUE))
)
) 
(setf (slot-value ISSUE.3823 'NORM) (init-stance '(VETERANS PRO C ISSUE.3823 ISSUE))
) 
(setf (slot-value ISSUE.3823 'STATUS)  "Active") 
(setf (slot-value ISSUE.3823 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3823 'SYMBOL)  'ISSUE.3823) )
(insert-item ISSUE ISSUE.3823)
(defvar ISSUE.834)
(prog1 (setf ISSUE.834 (make-instance 'ISSUE))
(setf (slot-value ISSUE.834 'NAME)  "Vietnam Trade Relations") 
(setf (slot-value ISSUE.834 'SYNONYMS)  (list  'VIETNAM-TRADE-RELATIONS)
) 
(setf (slot-value ISSUE.834 'ISA)  (list  'FOREIGN)
) 
(setf (slot-value ISSUE.834 'POLARITY)  "Support establishment of trade relations with Vietnam") 
(setf (slot-value ISSUE.834 'ENGLISH)  "opening trade relations with Vietnam") 
(setf (slot-value ISSUE.834 'ENGLISH-SHORT)  "Vietnam trade relations") 
(setf (slot-value ISSUE.834 'PRO-STANCES)  (list (init-stance '(TRADE PRO B VIETNAM-TRADE-RELATIONS ISSUE))
(init-stance '(TRADE-DEFICIT PRO B VIETNAM-TRADE-RELATIONS ISSUE))
)
) 
(setf (slot-value ISSUE.834 'CON-STANCES)  (list (init-stance '(COMMUNISM PRO B VIETNAM-TRADE-RELATIONS ISSUE))
(init-stance '(ISOLATIONISM PRO C VIETNAM-TRADE-RELATIONS ISSUE))
)
) 
(setf (slot-value ISSUE.834 'STATUS)  "Active") 
(setf (slot-value ISSUE.834 'DATE-OPEN) (list->date '(4 14 1989))) 
(setf (slot-value ISSUE.834 'SYMBOL)  'ISSUE.834) )
(insert-item ISSUE ISSUE.834)
(defvar ISSUE.3850)
(prog1 (setf ISSUE.3850 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3850 'NAME)  "Voting Rights") 
(setf (slot-value ISSUE.3850 'TYPE)  'PRINCIPLE) 
(setf (slot-value ISSUE.3850 'SYNONYMS)  (list  'VOTING-RIGHTS)
) 
(setf (slot-value ISSUE.3850 'ISA)  (list  'CIVIL-RIGHTS)
) 
(setf (slot-value ISSUE.3850 'POLARITY)  "Support universal election franchise") 
(setf (slot-value ISSUE.3850 'ENGLISH)  "equal access to the ballot") 
(setf (slot-value ISSUE.3850 'ENGLISH-SHORT)  "voting rights") 
(setf (slot-value ISSUE.3850 'PRO-STANCES)  (list (init-stance '(ELECTIONS PRO B VOTING-RIGHTS ISSUE))
(init-stance '(CIVIL-RIGHTS PRO B VOTING-RIGHTS ISSUE))
(init-stance '(DEMOCRACY PRO B VOTING-RIGHTS ISSUE))
(init-stance '(FAIRNESS PRO B VOTING-RIGHTS ISSUE))
)
) 
(setf (slot-value ISSUE.3850 'CON-STANCES)  (list (init-stance '(TOTALITARIANISM PRO B VOTING-RIGHTS ISSUE))
)
) 
(setf (slot-value ISSUE.3850 'NORM) (init-stance '(VOTING-RIGHTS PRO C ISSUE.3850 ISSUE))
) 
(setf (slot-value ISSUE.3850 'STATUS)  "Active") 
(setf (slot-value ISSUE.3850 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3850 'SYMBOL)  'ISSUE.3850) )
(insert-item ISSUE ISSUE.3850)
(defvar ISSUE.886)
(prog1 (setf ISSUE.886 (make-instance 'ISSUE))
(setf (slot-value ISSUE.886 'NAME)  "Warsaw Pact Nations") 
(setf (slot-value ISSUE.886 'TYPE)  'FOREIGN) 
(setf (slot-value ISSUE.886 'SYNONYMS)  (list  'WARSAW-PACT 'IRON-CURTAIN)
) 
(setf (slot-value ISSUE.886 'ISA)  (list  'FOREIGN-ORG)
) 
(setf (slot-value ISSUE.886 'ENGLISH)  "the countries of the Warsaw Pact") 
(setf (slot-value ISSUE.886 'ENGLISH-SHORT)  "Warsaw Pact nations") 
(setf (slot-value ISSUE.886 'NUMBER)  'PLUR) 
(setf (slot-value ISSUE.886 'PRO-STANCES)  (list (init-stance '(EAST-WEST PRO B WARSAW-PACT ISSUE))
(init-stance '(DEMOCRACY PRO B WARSAW-PACT ISSUE))
(init-stance '(TRADE PRO B WARSAW-PACT ISSUE))
(init-stance '(FOREIGN PRO B WARSAW-PACT ISSUE))
)
) 
(setf (slot-value ISSUE.886 'CON-STANCES)  (list (init-stance '(COMMUNISM PRO B WARSAW-PACT ISSUE))
(init-stance '(ISOLATIONISM PRO B WARSAW-PACT ISSUE))
)
) 
(setf (slot-value ISSUE.886 'STATUS)  "Active") 
(setf (slot-value ISSUE.886 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.886 'SYMBOL)  'ISSUE.886) 
(setf (slot-value ISSUE.886 'KEYWORDS)  (list  'COMMUNIST)
) )
(insert-item ISSUE ISSUE.886)
(defvar ISSUE.2402)
(prog1 (setf ISSUE.2402 (make-instance 'ISSUE))
(setf (slot-value ISSUE.2402 'NAME)  "Water Pollution Control") 
(setf (slot-value ISSUE.2402 'TYPE)  'PROGRAM) 
(setf (slot-value ISSUE.2402 'SYNONYMS)  (list  'CLEAN-WATER 'WATER-POLLUTION-CONTROL)
) 
(setf (slot-value ISSUE.2402 'ISA)  (list  'ENVIRONMENT)
) 
(setf (slot-value ISSUE.2402 'POLARITY)  "Support federal water quality control efforts") 
(setf (slot-value ISSUE.2402 'ENGLISH)  "federal efforts to fight water pollution") 
(setf (slot-value ISSUE.2402 'ENGLISH-SHORT)  "water pollution control") 
(setf (slot-value ISSUE.2402 'PRO-ENGLISH)  "increased funding for water pollution control") 
(setf (slot-value ISSUE.2402 'PRO-STANCES)  (list (init-stance '(ENVIRONMENT PRO B CLEAN-WATER ISSUE))
(init-stance '(REGULATION PRO B CLEAN-WATER ISSUE))
(init-stance '(PROGRESS PRO B CLEAN-WATER ISSUE))
(init-stance '(FUTURE PRO B CLEAN-WATER ISSUE))
)
) 
(setf (slot-value ISSUE.2402 'CON-STANCES)  (list (init-stance '(DEREGULATION PRO B CLEAN-WATER ISSUE))
(init-stance '(FREE-MARKET PRO B CLEAN-WATER ISSUE))
(init-stance '(BUSINESS PRO B CLEAN-WATER ISSUE))
(init-stance '(TRADITION PRO B CLEAN-WATER ISSUE))
)
) 
(setf (slot-value ISSUE.2402 'NORM) (init-stance '(CLEAN-WATER PRO C ISSUE.2402 ISSUE))
) 
(setf (slot-value ISSUE.2402 'STATUS)  "Active") 
(setf (slot-value ISSUE.2402 'DATE-OPEN) (list->date '(9 1 1988))) 
(setf (slot-value ISSUE.2402 'SYMBOL)  'ISSUE.2402) )
(insert-item ISSUE ISSUE.2402)
(defvar ISSUE.894)
(prog1 (setf ISSUE.894 (make-instance 'ISSUE))
(setf (slot-value ISSUE.894 'NAME)  "Weapons") 
(setf (slot-value ISSUE.894 'SYNONYMS)  (list  'WEAPON 'WEAPONS)
) 
(setf (slot-value ISSUE.894 'ISA)  (list  'DEFENSE)
) 
(setf (slot-value ISSUE.894 'POLARITY)  "Support weapons procurement") 
(setf (slot-value ISSUE.894 'ENGLISH)  "weapons for national defense") 
(setf (slot-value ISSUE.894 'ENGLISH-SHORT)  "weapons") 
(setf (slot-value ISSUE.894 'PRO-STANCES)  (list (init-stance '(DEFENSE PRO B WEAPONS ISSUE))
(init-stance '(NATIONAL-SECURITY PRO B WEAPONS ISSUE))
)
) 
(setf (slot-value ISSUE.894 'CON-STANCES)  (list (init-stance '(DEFICIT CON B WEAPONS ISSUE))
(init-stance '(PEACE PRO B WEAPONS ISSUE))
)
) 
(setf (slot-value ISSUE.894 'NORM) (init-stance '(WEAPONS PRO C ISSUE.894 ISSUE))
) 
(setf (slot-value ISSUE.894 'STATUS)  "Active") 
(setf (slot-value ISSUE.894 'DATE-OPEN) (list->date '(9 4 1988))) 
(setf (slot-value ISSUE.894 'SYMBOL)  'ISSUE.894) )
(insert-item ISSUE ISSUE.894)
(defvar ISSUE.3841)
(prog1 (setf ISSUE.3841 (make-instance 'ISSUE))
(setf (slot-value ISSUE.3841 'NAME)  "Whistle Blowers") 
(setf (slot-value ISSUE.3841 'TYPE)  'GROUP) 
(setf (slot-value ISSUE.3841 'SYNONYMS)  (list  'WHISTLE-BLOWERS)
) 
(setf (slot-value ISSUE.3841 'ISA)  (list  'MILITARY-PROCUREMENT)
) 
(setf (slot-value ISSUE.3841 'POLARITY)  "Support measures to protect whistle blowers from reprisals") 
(setf (slot-value ISSUE.3841 'ENGLISH)  "whistle blowers") 
(setf (slot-value ISSUE.3841 'PRO-STANCES)  (list (init-stance '(WASTE PRO B WHISTLE-BLOWERS ISSUE))
(init-stance '(INTEGRITY PRO B WHISTLE-BLOWERS ISSUE))
(init-stance '(HONESTY PRO B WHISTLE-BLOWERS ISSUE))
(init-stance '(IDEALISM PRO B WHISTLE-BLOWERS ISSUE))
)
) 
(setf (slot-value ISSUE.3841 'CON-STANCES)  (list (init-stance '(PRAGMATISM PRO B WHISTLE-BLOWERS ISSUE))
)
) 
(setf (slot-value ISSUE.3841 'NORM) (init-stance '(WHISTLE-BLOWERS PRO C ISSUE.3841 ISSUE))
) 
(setf (slot-value ISSUE.3841 'STATUS)  "Active") 
(setf (slot-value ISSUE.3841 'DATE-OPEN) (list->date '(8 28 1988))) 
(setf (slot-value ISSUE.3841 'SYMBOL)  'ISSUE.3841) )
(insert-item ISSUE ISSUE.3841)
(defvar ISSUE.818)
(prog1 (setf ISSUE.818 (make-instance 'ISSUE))
(setf (slot-value ISSUE.818 'NAME)  "Women's Rights") 
(setf (slot-value ISSUE.818 'SYNONYMS)  (list  'WOMENS-RIGHTS)
) 
(setf (slot-value ISSUE.818 'ISA)  (list  'CIVIL-RIGHTS)
) 
(setf (slot-value ISSUE.818 'POLARITY)  "Support federal efforts to end sex discrimination") 
(setf (slot-value ISSUE.818 'ENGLISH)  "women's civil rights") 
(setf (slot-value ISSUE.818 'ENGLISH-SHORT)  "women's rights") 
(setf (slot-value ISSUE.818 'PRO-ENGLISH)  "the legitimate rights and concerns of women") 
(setf (slot-value ISSUE.818 'CON-ENGLISH)  "radical feminist positions") 
(setf (slot-value ISSUE.818 'GROUPS)  (list  'NOW 'WOMEN)
) 
(setf (slot-value ISSUE.818 'PRO-STANCES)  (list (init-stance '(PRIVACY PRO B WOMENS-RIGHTS ISSUE))
(init-stance '(ABORTION PRO B WOMENS-RIGHTS ISSUE))
(init-stance '(EQUALITY PRO B WOMENS-RIGHTS ISSUE))
(init-stance '(FAIRNESS PRO B WOMENS-RIGHTS ISSUE))
(init-stance '(PROGRESS PRO B WOMENS-RIGHTS ISSUE))
)
) 
(setf (slot-value ISSUE.818 'CON-STANCES)  (list (init-stance '(FAMILY PRO C WOMENS-RIGHTS ISSUE))
(init-stance '(TRADITION PRO B WOMENS-RIGHTS ISSUE))
)
) 
(setf (slot-value ISSUE.818 'NORM) (init-stance '(WOMENS-RIGHTS PRO C ISSUE.818 ISSUE))
) 
(setf (slot-value ISSUE.818 'STATUS)  "Active") 
(setf (slot-value ISSUE.818 'DATE-OPEN) (list->date '(1 22 1989))) 
(setf (slot-value ISSUE.818 'SYMBOL)  'ISSUE.818) )
(insert-item ISSUE ISSUE.818)