;; Macintosh HD:lisp:db:data:issue10 
(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)