anchor.diff:     ((htmldata 
        :accessor htmldata)))
   
  -(defclass DBAdapterService (BusinessService)
  +(defclass DBAdapterService ()
     ((businessobject
      :accessor businessobject
      :initarg :businessobject)
      (dbobject
      :accessor dbobject
  -   :initarg :dbobject)))
  +   :initarg :dbobject)
  +   (company
  +    :accessor company
  +    :initarg :company)
  +   (exception
  +    :accessor exception)))
   
   
   
  
positive.code: ;;; Generic functions for DBAdapterService
  (defgeneric init (DBAdapterService BusinessObject)
    (:documentation "Set the domain object of the DBAdapterService"))
  (defgeneric db-save (DBAdapterService)
    (:documentation "Save 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 syncobjects (DBAdapterService)
    (:documentation "Syncs the dbobject and the domainobject"))
  (defgeneric getbusinessobject (DBAdapterService)
    (:documentation "gets the domain object"))
  
  
negative.code:    :initarg :responsemodel
     :accessor responsemodel)
    (exception
     :accessor exception)))
  
  
  (defclass PresenterService ()
  