;; MicroNet 203:lisp:db:data:bill2 
(PROG1 (SETF BILL.3046 (MAKE-INSTANCE 'BILL)) (SETF (SLOT-VALUE BILL.3046 'SYNONYMS) (LIST 'PASS-IMM-REFORM)) (SETF (SLOT-VALUE BILL.3046 'DATE-OF-VOTE) (LIST->DATE '(6 20 1984))) (SETF (SLOT-VALUE BILL.3046 'VOTE-TALLY) (LIST 'ADOPTED 216 211 (LIST 'D 124 138 'R 92 73))) (SETF (SLOT-VALUE BILL.3046 'PRES-POS) 'FOR) (SETF (SLOT-VALUE BILL.3046 'SESSION) "98-2") (SETF (SLOT-VALUE BILL.3046 'ISSUES) (LIST 'IMMIGRATION)) (SETF (SLOT-VALUE BILL.3046 'IMPORTANCE) 'C) (SETF (SLOT-VALUE BILL.3046 'STANCE-FOR) (LIST (INIT-STANCE '(IMMIGRATION PRO B HR-1510 BILL)))) (SETF (SLOT-VALUE BILL.3046 'STANCE-AGN) (LIST (INIT-STANCE '(IMMIGRATION CON B HR-1510 BILL)))) (SETF (SLOT-VALUE BILL.3046 'STATUS) "Active") (SETF (SLOT-VALUE BILL.3046 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE BILL.3046 'SYMBOL) 'BILL.3046) (SETF (SLOT-VALUE BILL.3046 'REMARKS) (LIST "Bill revising and reforming the Immigration and Nationality Act")))(INSERT-ITEM BILL BILL.3046)(DEFVAR BILL.3041)(PROG1 (SETF BILL.3041 (MAKE-INSTANCE 'BILL)) (SETF (SLOT-VALUE BILL.3041 'SYNONYMS) (LIST 'ESTAB-DOM-CONTENT)) (SETF (SLOT-VALUE BILL.3041 'DATE-OF-VOTE) (LIST->DATE '(11 3 1983))) (SETF (SLOT-VALUE BILL.3041 'VOTE-TALLY) (LIST 'ADOPTED 219 199 (LIST 'D 187 67 'R 32 132))) (SETF (SLOT-VALUE BILL.3041 'PRES-POS) 'AGN) (SETF (SLOT-VALUE BILL.3041 'SESSION) "98-1") (SETF (SLOT-VALUE BILL.3041 'ISSUES) (LIST 'TRADE 'AUTOMOTIVE 'PROTECTIONISM)) (SETF (SLOT-VALUE BILL.3041 'IMPORTANCE) 'C) (SETF (SLOT-VALUE BILL.3041 'STANCE-FOR) (LIST (INIT-STANCE '(TRADE-DEFICIT PRO C HR-1234 BILL)) (INIT-STANCE '(TRADE-RESTRICTIONS PRO C HR-1234 BILL)) (INIT-STANCE '(LABOR PRO C HR-1234 BILL)))) (SETF (SLOT-VALUE BILL.3041 'STANCE-AGN) (LIST (INIT-STANCE '(FREE-TRADE PRO B HR-1234 BILL)) (INIT-STANCE '(CAPITALISM PRO B HR-1234 BILL)) (INIT-STANCE '(TRADE-RESTRICTIONS CON C HR-1234 BILL)))) (SETF (SLOT-VALUE BILL.3041 'STATUS) "Active") (SETF (SLOT-VALUE BILL.3041 'DATE-OPEN) (LIST->DATE '(5 4 1989))) (SETF (SLOT-VALUE BILL.3041 'SYMBOL) 'BILL.3041) (SETF (SLOT-VALUE BILL.3041 'REMARKS) (LIST "Bill establishing domestic content requirements for motor vehicles" "sold or distributed in interstate commerce in the U.S.")))(INSERT-ITEM BILL BILL.3041)(DEFVAR BILL.697)(PROG1 (SETF BILL.697 (MAKE-INSTANCE 'BILL)) (SETF (SLOT-VALUE BILL.697 'SYNONYMS) (LIST 'PLANT-CLOSING)) (SETF (SLOT-VALUE BILL.697 'DATE-OF-VOTE) (LIST->DATE '(7 13 1988))) (SETF (SLOT-VALUE BILL.697 'VOTE-TALLY) (LIST 'ADOPTED 286 136 (LIST 'D 232 16) (LIST 'R 54 120))) (SETF (SLOT-VALUE BILL.697 'PRES-POS) 'AGN) (SETF (SLOT-VALUE BILL.697 'SESSION) "100-2") (SETF (SLOT-VALUE BILL.697 'ISSUES) (LIST 'PLANT-CLOSING 'LABOR)) (SETF (SLOT-VALUE BILL.697 'IMPORTANCE) 'B) (SETF (SLOT-VALUE BILL.697 'STANCE-FOR) (LIST (INIT-STANCE '(LABOR PRO B S-2527 BILL)) (INIT-STANCE '(PLANT-CLOSING PRO B S-2527 BILL)) (INIT-STANCE '(FAIRNESS PRO B S-2527 BILL)) (INIT-STANCE '(DEREGULATION CON C S-2527 BILL)))) (SETF (SLOT-VALUE BILL.697 'STANCE-AGN) (LIST (INIT-STANCE '(DEREGULATION PRO B S-2527 BILL)) (INIT-STANCE '(FREE-ENTERPRISE PRO B S-2527 BILL)) (INIT-STANCE '(REAGAN PRO B S-2527 BILL)) (INIT-STANCE '(LABOR CON C S-2527 BILL)) (INIT-STANCE '(PLANT-CLOSING CON C S-2527 BILL)))) (SETF (SLOT-VALUE BILL.697 'NOTES) (LIST 'NOTE.965 'NOTE.699 'NOTE.698)) (SETF (SLOT-VALUE BILL.697 'STATUS) "Active") (SETF (SLOT-VALUE BILL.697 'DATE-OPEN) (LIST->DATE '(4 13 1989))) (SETF (SLOT-VALUE BILL.697 'SYMBOL) 'BILL.697) (SETF (SLOT-VALUE BILL.697 'REMARKS) (LIST "Requires employers of more than 100 workers to give 60 days" "notice of a plant closing or layoff lasting more than 6 months.")))(INSERT-ITEM BILL BILL.697)