                              fmt)
            texts)))
 
-(cl-defun hoarder:log (fmt &rest texts)
+(cl-defun hoarder:log (fmt . texts)
   (with-current-buffer (get-buffer-create hoarder:log-buffer-name)
     (when (hoarder:empty-buffer-p (current-buffer))
       (goto-char (point-min))

(cl-defun hoarder:add-to-list (var elem)
  (if (vectorp elem)
      (colle:map
       (lambda (e) (add-to-list var e))
       elem)
    (add-to-list var elem)))


(cl-defun hoarder:package-compare-fn (p1 p2)
  (cl-labels ((comp (n)
                    (hoarder:on #'cl-equalp
                          (lambda (p) (glof:get p n))
                          p1
                          p2)))
    (and (comp :name)
       (comp :origin))))

