anchor.diff:     (email
       :accessor employee-email
       :type (string 100)
  -    :nulls-ok t
       :initarg :email)
      (companyid
       :type integer)
  
positive.code:   ((emplid
      :db-kind :key
      :db-constraints :not-null
      :nulls-ok nil
      :type integer
      :initarg :emplid)
     (first-name
  
negative.code: 			  :set nil))
     (managerid
      :type integer
      :initarg :managerid)
     (manager
      :accessor employee-manager
  