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