anchor.diff:     (registration-id (first (last url-parts)))
      (status-json (list (cons "subscriptionStatus" "null"))))
     (require-user ()
  -    (pprint json)
  -    (terpri)
       (cond
         ((not chrome-p)
           (setf (return-code*) +http-not-implemented+)
  
positive.code:                 :external-format-out :utf-8
                  :external-format-in :utf-8
                  :content (json:encode-json-alist-to-string
                             (list (cons "registration_ids" (list (getf encrypted-results :reg-id)))
                                   (cons "raw_data" (getf encrypted-results :encrypted-message)))))))
            (with-open-file (s (s+ +db-path+ "/tmp/log") :direction :output :if-exists :append)
              (let ((*print-readably* nil))
  
negative.code:     ;push both desktop and mobile registration-ids
      (dolist (client '(:chrome :mobile-chrome))
        (awhen (getf subscriptions client)
          (let ((encrypted-results (when (and (getf it :p-256-dh)
                                              (getf it :auth))
                                     (get-encrypted-message
                                        it
                                        plaintext-data))))
            (setf chrome-api-status
              (multiple-value-list
                (http-request
  