anchor.diff:         (unless (subtypep ,gclass 'ohm-model)
            (error 'ohm-unmanged-class-error :class ,gclass))
          ,(cond
  -         ((eql forms :all)
  -          `(with-connection ,connection-plist
  +         ((eql (car params) :all)
  +          `(with-connection ()
                (let ((,gids (red:smembers (make-key ,gclass 'all))))
                  (mapcar (lambda (,gid)
                            (make-persisted-instance ,gclass
                                                     ,gid
                                                     (fetch-object ,gclass ,gid)))
                          ,gids))))
  -         ((equal 'id (car forms))
  -          `(with-connection ,connection-plist
  -             (let ((,gid ,(second forms)))
  +         ((eql (car params) :id)
  +          `(with-connection ()
  +             (let ((,gid ,(second params)))
                  (make-persisted-instance ,gclass ,gid (fetch-object ,gclass ,gid)))))))))
  
positive.code:   "Fetches an object's attributes from the data store."
    (red:hgetall (make-key class id)))
  
  (defmacro retrieve (class forms &key connection-plist)
    (let ((gclass (gensym "class"))
          (gid (gensym "id"))
          (gids (gensym "ids")))
  
negative.code:   (when auth-supplied-p
      (setf (getf *redis-default-connection* :auth) auth)))
  
  (defmacro with-connection (() &body body)
    `(redis:with-persistent-connection ,*redis-default-connection*
       ,@body))
  
  (defmacro with-transactional-connection (()  &body body)
    `(with-connection ()
       (red:multi)
       ,@body
       (red:exec)))
  