anchor.diff:    (:documentation "Generates a Ohm Model Class Key.")
     (:method :before ((model ohm-model) &rest segments)
              (declare (ignore segments))
  -           (unless (managed-object-p model)
  -             (error 'ohm-missig-id-error :object model)))
  +           (ensure-managed-object model))
     (:method ((model ohm-model) &rest segments)
       (apply #'make-key (class-name (class-of model)) segments)))
   
  
positive.code:   (:documentation "Saves the MODEL into the data store. Model must be a managed object defined with DEFOHM and created
  with CREATE.")
    (:method :before ((model ohm-model))
             (unless (managed-object-p model)
               (error 'ohm-missig-id-error :object model)))
    (:method ((model ohm-model))
      (with-transactional-connection ()
        (multiple-value-bind (attributes index-keys)
  
negative.code: (defgeneric del (model)
    (:documentation "Removes MODEL from the data store.")
    (:method :before ((model ohm-model))
             (ensure-managed-object model))
    (:method ((model ohm-model))
      (with-connection ()
        (let* ((indices-key (object-key model '_indices))
  