(DEFVAR AGENT2048) (PROG1 (SETF AGENT2048 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT2048 'NAME) "Buyer") (SETF (SLOT-VALUE AGENT2048 'IMPORTANCE) 'C) (SETF (SLOT-VALUE AGENT2048 'PREFERENCES) (LIST (INIT-PREFERENCE '(PRICE LOW A AGENT2030 AGENT)))) (SETF (SLOT-VALUE AGENT2048 'STATUS) "Active") (SETF (SLOT-VALUE AGENT2048 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE AGENT2048 'SYMBOL) 'AGENT2048)) (INSERT-ITEM AGENT AGENT2048) (DEFVAR AGENT93) (PROG1 (SETF AGENT93 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT93 'NAME) "CEO.XYZ") (SETF (SLOT-VALUE AGENT93 'PREFERENCES) (LIST (INIT-PREFERENCE '(EXPENSES LOW A AGENT92 AGENT)) (INIT-PREFERENCE '(R&D-EXPENSES HIGH B AGENT92 AGENT)))) (SETF (SLOT-VALUE AGENT93 'STATUS) "Active") (SETF (SLOT-VALUE AGENT93 'DATE-OPEN) (LIST->DATE '(6 1 1996))) (SETF (SLOT-VALUE AGENT93 'SYMBOL) 'AGENT93)) (INSERT-ITEM AGENT AGENT93) (DEFVAR AGENT1812) (PROG1 (SETF AGENT1812 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT1812 'NAME) "Dieter") (SETF (SLOT-VALUE AGENT1812 'IMPORTANCE) 'C) (SETF (SLOT-VALUE AGENT1812 'PREFERENCES) (LIST (INIT-PREFERENCE '(CALORIES LOW A AGENT1794 AGENT)))) (SETF (SLOT-VALUE AGENT1812 'STATUS) "Active") (SETF (SLOT-VALUE AGENT1812 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE AGENT1812 'SYMBOL) 'AGENT1812)) (INSERT-ITEM AGENT AGENT1812) (DEFVAR AGENT1815) (PROG1 (SETF AGENT1815 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT1815 'NAME) "Investor") (SETF (SLOT-VALUE AGENT1815 'PREFERENCES) (LIST (INIT-PREFERENCE '(RESERVES LOW B AGENT1777 AGENT)) (INIT-PREFERENCE '(EARNINGS HIGH A AGENT1777 AGENT)) (INIT-PREFERENCE '(ASSETS HIGH C AGENT1777 AGENT)))) (SETF (SLOT-VALUE AGENT1815 'STATUS) "Active") (SETF (SLOT-VALUE AGENT1815 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE AGENT1815 'SYMBOL) 'AGENT1815)) (INSERT-ITEM AGENT AGENT1815) (DEFVAR AGENT1778) (PROG1 (SETF AGENT1778 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT1778 'NAME) "Jogger") (SETF (SLOT-VALUE AGENT1778 'IMPORTANCE) 'C) (SETF (SLOT-VALUE AGENT1778 'PREFERENCES) (LIST (INIT-PREFERENCE '(CALORIES HIGH A AGENT1760 AGENT)))) (SETF (SLOT-VALUE AGENT1778 'STATUS) "Active") (SETF (SLOT-VALUE AGENT1778 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE AGENT1778 'SYMBOL) 'AGENT1778)) (INSERT-ITEM AGENT AGENT1778) (DEFVAR AGENT104) (PROG1 (SETF AGENT104 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT104 'NAME) "Prospective-creditor") (SETF (SLOT-VALUE AGENT104 'ENGLISH) "prospective creditors and money lending firms") (SETF (SLOT-VALUE AGENT104 'PREFERENCES) (LIST (INIT-PREFERENCE '(ASSETS HIGH A AGENT103 AGENT)) (INIT-PREFERENCE '(CASH-POSITION HIGH A AGENT103 AGENT)) (INIT-PREFERENCE '(DEBT/EQUITY LOW B AGENT103 AGENT)) (INIT-PREFERENCE '(PROFITS-GROWTH-RATE HIGH B AGENT103 AGENT)) (INIT-PREFERENCE '(SHORT-TERM-DEBT LOW A AGENT103 AGENT)) (INIT-PREFERENCE '(LONG-TERM-DEBT LOW A AGENT103 AGENT)))) (SETF (SLOT-VALUE AGENT104 'STATUS) "Active") (SETF (SLOT-VALUE AGENT104 'DATE-OPEN) (LIST->DATE '(6 1 1996))) (SETF (SLOT-VALUE AGENT104 'SYMBOL) 'AGENT104)) (INSERT-ITEM AGENT AGENT104) (DEFVAR AGENT1849) (PROG1 (SETF AGENT1849 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT1849 'NAME) "Regulator") (SETF (SLOT-VALUE AGENT1849 'PREFERENCES) (LIST (INIT-PREFERENCE '(ASSETS HIGH B AGENT1849 AGENT)) (INIT-PREFERENCE '(RESERVES HIGH A AGENT1831 AGENT)) (INIT-PREFERENCE '(REVENUES HIGH C AGENT1849 AGENT)))) (SETF (SLOT-VALUE AGENT1849 'STATUS) "Active") (SETF (SLOT-VALUE AGENT1849 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE AGENT1849 'SYMBOL) 'AGENT1849)) (INSERT-ITEM AGENT AGENT1849) (DEFVAR AGENT2082) (PROG1 (SETF AGENT2082 (MAKE-INSTANCE 'AGENT)) (SETF (SLOT-VALUE AGENT2082 'NAME) "Seller") (SETF (SLOT-VALUE AGENT2082 'PREFERENCES) (LIST (INIT-PREFERENCE '(PRICE HIGH A AGENT2064 AGENT)))) (SETF (SLOT-VALUE AGENT2082 'STATUS) "Active") (SETF (SLOT-VALUE AGENT2082 'DATE-OPEN) (LIST->DATE '(1 2 1995))) (SETF (SLOT-VALUE AGENT2082 'SYMBOL) 'AGENT2082)) (INSERT-ITEM AGENT AGENT2082)