anchor.diff:  ;;; 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 "Save the domianobject to the database"))
  +  (: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 syncobjects (DBAdapterService)
  +(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"))
   
  
positive.code:    :initarg :responsemodel
     :accessor responsemodel)
    (exception
     :accessor exception
      :initarg :exception)))
  
  
  (defclass PresenterService ()
  
negative.code:    ((htmldata 
       :accessor htmldata)))
  
  (defclass DBAdapterService ()
    ((businessobject
     :accessor businessobject
     :initarg :businessobject)
     (dbobject
     :accessor dbobject
     :initarg :dbobject)
     (company
      :accessor company
      :initarg :company)
     (exception
      :accessor exception)))
  
  
  
  