anchor.diff:     :initarg :responsemodel
      :accessor responsemodel)
     (exception
  -   :accessor exception
  -    :initarg :exception)))
  +   :accessor exception)))
   
   
   (defclass PresenterService ()
  
positive.code:    ((htmldata 
       :accessor htmldata)))
  
  (defclass DBAdapterService (BusinessService)
    ((businessobject
     :accessor businessobject
     :initarg :businessobject)
     (dbobject
     :accessor dbobject
     :initarg :dbobject)))
  
  
  
  
negative.code: ;;; Generic functions for DBAdapterService
  (defgeneric init (DBAdapterService BusinessObject)
    (:documentation "Set the domain object of the DBAdapterService"))
  (defgeneric setCompany (DBAdapterService company)
    (:documentation "Set the Company"))
  (defgeneric setException (DBAdapterService Exception)
    (:documentation "Set the Exception for the Database Adapter Service"))
  (defgeneric setDBObject (DBAdapterService dbobject)
    (:documentation "Set the DBObject"))
  (defgeneric db-save (DBAdapterService)
    (:documentation "Savte the domianobject to the database"))
  (defgeneric db-fetch (DBAdapterService row-id)
    (:documentation "Fetch the DBObject by row-id"))
  (defgeneric db-fetch-all (DBAdapterService)
    (:documentation "Fetch records by company"))
  (defgeneric db-delete (DBAdapterService)
    (:documentation "Delete the dbobject in the database"))
  (defgeneric Copy-BusinessObject-To-DBObject (DBAdapterService)
    (:documentation "Syncs the dbobject and the domainobject"))
  (defgeneric Copy-DbObject-To-BusinessObject (DBAdapterService)
    (:documentation "Syncs the DBobject to BusinessObject"))
  
  (defgeneric getbusinessobject (DBAdapterService)
    (:documentation "gets the domain object"))
  
  