anchor.diff:  (defun parse-provider-name (name)
     (string-case:string-case (name)
       ("gcm" :gcm)
  -    ("apns" :apns)))
  +    ("apns" :apns)
  +    ("apns-dev" :apns-dev)))
   
   (defun make-memcached-key-for-gcm-keys (uid)
     (format nil "gcm-~a" (encode-name uid)))
  
positive.code:       (loop
          for (key provider) in (gcm-keys-for-user user)
          do (log:info "Sending to key = ~s" key)
          do (ecase provider
               (:gcm
                (push-gcm-message user key (st-json:jso "potato_message_type" "message"
                                                        "message_id" message-id
  
negative.code:                                                       "channel" channel
                                                        "notification_type" (symbol-name notification-type)
                                                        "text" (truncate-string text 1000))))
               (t
                (with-pooled-rabbitmq-connection (conn)
                  (let* ((provider-name (string-downcase (symbol-name provider)))
                         (json (st-json:jso "potato_message_type" "message"
  