anchor.diff:    (macrolet ((reservoid (command &rest args)
                  `(command-reply-case (reply connection ,command nil ,@args)
                     (:deadline_soon ()
  -                    (warn 'deadline-soon)
  +                    (warn 'beanstalk:deadline-soon)
                       (values nil nil :deadline-soon))
                     (:timed_out ()
                       (values nil nil :timed-out))
  
positive.code: 
  (defun beanstalk:list-tubes-watched (connection)
    (command-reply-case (reply connection :list-tubes-watched nil)
      (:ok (bytes) (parse-yaml-data (parse-integer bytes) (stream-of connection) nil))))
negative.code:              (case (first ,reply)
                 ,@(loop for clause in clauses
                         collect `(,(first clause) (apply (lambda ,@(rest clause)) (rest ,reply))))
                 (:out_of_memory (cerror "Retry" 'beanstalk:beanstalkd-out-of-memory)
                                 (throw 'retry nil))
                 (:internal_error (error 'beanstalk:beanstalkd-internal-error))
                 (:draining (error 'beanstalk:beanstalkd-draining))
  