;; 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)