;; Macintosh HD:lisp:qbc:data:agent ;; Items for Database: AGENT (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)