;; clips code


(deftemplate Advertisement
	(slot purchaser (type STRING))
	(slot salesperson (type STRING))
	(slot name (type STRING) )
	)
	
(deftemplate Personals_Ad
	(slot purchaser (type STRING))
	(slot salesperson (type STRING))
	(slot name (type STRING) )
	(slot text (type STRING) )
	)
	
(deftemplate Standard_Image_Ad
	(slot purchaser (type STRING))
	(slot salesperson (type STRING))
	(slot name (type STRING) )
	(slot image (type STRING) )
	)	

(deftemplate Text_Image_Ad
	(slot purchaser (type STRING))
	(slot salesperson (type STRING))
	(slot name (type STRING) )
	(slot text (type STRING) )
	(slot image (type STRING) )
	)
	
(deftemplate Standard_Text_Ad
	(slot purchaser (type STRING))
	(slot salesperson (type STRING))
	(slot name (type STRING) )
	(slot text (type STRING) )
	)	
	
	
(deftemplate Person
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	)

(deftemplate Employee
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	(slot salary (type FLOAT))
	(slot date_hired (type STRING))
	(slot current_job_title (type STRING))
	)

(deftemplate Columnist
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	(slot salary (type FLOAT))
	(slot date_hired (type STRING))
	(slot current_job_title (type STRING))
	(slot organisation (type STRING))
	)

(deftemplate Author "Authors are the people or organizations which provide articles"
	(slot name (type STRING))
	(slot organisation (type STRING))
	)
	
(deftemplate Editor "Editors are responsible for the content of sections."
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	(slot salary (type FLOAT))
	(slot date_hired (type STRING))
	(slot current_job_title (type STRING))
	(slot organisation (type STRING))
	)

(deftemplate Reporter "A reporter is an employee who writes articles."
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	(slot salary (type FLOAT))
	(slot date_hired (type STRING))
	(slot current_job_title (type STRING))
	(slot organisation (type STRING))
	)
	
(deftemplate Salesperson "A salesperson sells, and is reponsible for the content of, advertisements."
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	(slot salary (type FLOAT))
	(slot date_hired (type STRING))
	(slot current_job_title (type STRING))
	)

(deftemplate Manager
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	(slot salary (type FLOAT))
	(slot date_hired (type STRING))
	(slot current_job_title (type STRING))
	)

(deftemplate Director
	(slot name (type STRING) )
	(slot other_information (type STRING) )
	(slot phone_number (type STRING))
	(slot salary (type FLOAT))
	(slot date_hired (type STRING))
	(slot current_job_title (type STRING))
	)