        (when (elfeed-search-filter filter entry feed)
          (setf (cdr tail) (list entry)
                tail (cdr tail))
-         (when (< (decf count) 0)
+         (when (< (cl-decf count) 0)
            (elfeed-db-return))))
-     (princ (json-encode
-             (coerce (mapcar #'elfeed-web-for-json (cdr results)) 'vector))))))
+     (princ
+      (json-encode
+       (cl-coerce (mapcar #'elfeed-web-for-json (cdr results)) 'vector))))))
 
 (defvar elfeed-web-waiting ()
   "Clients waiting for an update.")


;;; Code:

(require 'cl)
(require 'json)
(require 'simple-httpd)
(require 'elfeed-db)

            (when (string= webid (elfeed-web-make-webid entry))
              (setf (gethash webid elfeed-web-webid-map)
                    (elfeed-db-return entry))))
          (cl-loop for feed hash-values of elfeed-db-feeds
                   when (string= (elfeed-web-make-webid feed) webid)
                   return (setf (gethash webid elfeed-web-webid-map) feed))))))

(defun elfeed-web-for-json (thing)
  "Prepare THING for JSON serialization."
  (cl-etypecase thing
    (elfeed-entry
     (list :webid        (elfeed-web-make-webid thing)
           :title        (elfeed-entry-title thing)
