(DEFVAR STRATEGY.329) (PROG1 (SETF STRATEGY.329 (MAKE-INSTANCE 'STRATEGY)) (SETF (SLOT-VALUE STRATEGY.329 'NAME) "Two Minds") (SETF (SLOT-VALUE STRATEGY.329 'SYNONYMS) (LIST 'TWO-MINDS)) (SETF (SLOT-VALUE STRATEGY.329 'RANK) "X") (SETF (SLOT-VALUE STRATEGY.329 'TEST) (LIST "Consensus not equal majority stances.")) (SETF (SLOT-VALUE STRATEGY.329 'TEST-CODE) 'STRAT-TWO-MINDS) (SETF (SLOT-VALUE STRATEGY.329 'PREAMBLE) 'PREAMBLE-SIMPLE-CONSENSUS) (SETF (SLOT-VALUE STRATEGY.329 'PROTOCOL) 'PROTOCOL-SIMPLE-CONSENSUS) (SETF (SLOT-VALUE STRATEGY.329 'EXAMPLE) (LIST 'VOTE (LIST 'QUOTE 'GINGRICH) (LIST 'QUASIQUOTE 'HR-4264))) (SETF (SLOT-VALUE STRATEGY.329 'STATUS) "Active") (SETF (SLOT-VALUE STRATEGY.329 'DATE-OPEN) (LIST->DATE '(1 23 1991))) (SETF (SLOT-VALUE STRATEGY.329 'SYMBOL) 'STRATEGY.329) (SETF (SLOT-VALUE STRATEGY.329 'REMARKS) (LIST "The consensus and majority results are contradictory."))) (INSERT-ITEM STRATEGY STRATEGY.329) (DEFVAR STRATEGY.2682) (PROG1 (SETF STRATEGY.2682 (MAKE-INSTANCE 'STRATEGY)) (SETF (SLOT-VALUE STRATEGY.2682 'NAME) "Unpopular decision") (SETF (SLOT-VALUE STRATEGY.2682 'SYNONYMS) (LIST 'UNPOPULAR)) (SETF (SLOT-VALUE STRATEGY.2682 'QUOTE) (LIST "I know people will criticize me for this vote, but I had to do it." "I couldn't live with myself if I didn't." "I have to use my judgment. You can express an opinion. I have to make a decision. [Trustee]" "I stand by my record. I'm not going to change my principles." "I hope you appreciate that and will look at my record as a whole.")) (SETF (SLOT-VALUE STRATEGY.2682 'RANK) "X") (SETF (SLOT-VALUE STRATEGY.2682 'TEST) (LIST "Major conflicts among stances.")) (SETF (SLOT-VALUE STRATEGY.2682 'PREAMBLE) 'PREAMBLE-UNPOPULAR) (SETF (SLOT-VALUE STRATEGY.2682 'PROTOCOL) 'PROTOCOL-UNPOPULAR) (SETF (SLOT-VALUE STRATEGY.2682 'NO-SECOND-TRY) 'T) (SETF (SLOT-VALUE STRATEGY.2682 'STATUS) "Active") (SETF (SLOT-VALUE STRATEGY.2682 'DATE-OPEN) (LIST->DATE '(4 16 1989))) (SETF (SLOT-VALUE STRATEGY.2682 'SYMBOL) 'STRATEGY.2682) (SETF (SLOT-VALUE STRATEGY.2682 'REMARKS) (LIST "Recognizes that vote will not play well with many constituents."))) (INSERT-ITEM STRATEGY STRATEGY.2682)