(info-initialize)
  (cl-loop
   with infopath = (prog1  (getenv "INFOPATH")
                     (message "infopath: %s" (getenv "INFOPATH")))
   for old-pos = nil then pos
   for pos = (cl-position ?: infopath :from-end t)
   then (cl-position ?: infopath :from-end t :end pos)
   for path = (cl-subseq infopath (if pos (1+ pos) 0)) then (cl-subseq infopath (if pos (1+ pos) 0) old-pos)
   do (cl-adjoin path Info-directory-list :test 'equal)
   while pos)