bug#81652: 32.0.50; cl-loop over intervals infloops in some cases

This works as expected:

$ emacs -Q -batch -l cl-lib -eval '(print (with-temp-buffer (insert (propertize "foo" (quote foo) 1) (propertize "bar" (quote foo) 2)) (cl-loop for i being the intervals collect i)))'

((1 . 4) (4 . 7))

This infloops:

$ emacs -Q -batch -l cl-lib -eval '(print (with-temp-buffer (insert (propertize "foo" (quote foo) 1) (propertize "bar" (quote foo) 2)) (let ((buffer (current-buffer))) (with-temp-buffer (cl-loop for i being the intervals of buffer collect i)))))'

I haven't investigated in detail yet, but my guess would be that some of
the set-marker calls in cl--map-intervals are missing BUFFER arguments.



In GNU Emacs 32.0.50 (build 6, aarch64-apple-darwin25.5.0, NS
 appkit-2685.60 Version 26.5.2 (Build 25F84)) of 2026-08-18
Repository revision: 946467511922f9b5918b29cb807835459dd86dea
Repository branch: master
Windowing system distributor 'Apple', version 10.3.2685
System Description: macOS 26.5.2

Configured using:
 'configure --with-modules --with-xml2 --without-pop --with-mailutils
 --with-tree-sitter --with-libgmp --enable-gcc-warnings=warn-only
 --enable-checking=all --enable-check-lisp-object-type 'CFLAGS=-ggdb3
 -O0' CPPFLAGS=-I/opt/homebrew/opt/gmp/include
 'LDFLAGS=-L/opt/homebrew/opt/gmp/lib
 -L/opt/homebrew/opt/[email protected]/lib'
 'TREE_SITTER_LIBS=-L/opt/homebrew/opt/[email protected]/lib
 -ltree-sitter'
 TREE_SITTER_CFLAGS=-I/opt/homebrew/opt/[email protected]/include'

Configured features:
ACL GLIB GMP GNUTLS LCMS2 LIBXML2 MODULES NOTIFY KQUEUE NS PDUMPER PNG
RSVG SQLITE3 THREADS TOOLKIT_SCROLL_BARS TREE_SITTER WEBP XIM ZLIB

Important settings:
  value of $LANG: de_DE.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  minibuffer-nonselected-mode: t
  minibuffer-regexp-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug lisp-mnt phst skeleton pcase ffap
thingatpt url url-proxy url-privacy url-expand url-methods url-history
url-cookie generate-lisp-file url-domsuf url-util url-parse auth-source
cl-seq eieio eieio-core cl-macs gv json map url-vars rx message sendmail
mailcap yank-media dired dired-loaddefs rfc822 mml mml-sec
password-cache epa derived epg rfc6068 epg-config gnus-util time-date
mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 mm-util
ietf-drums mail-prsvr mailabbrev mail-utils gmm-utils mailheader gnutls
puny elp dbus xml compile text-property-search comint subr-x ansi-osc
ansi-color ring warnings icons cl-loaddefs cl-lib rmc iso-transl tooltip
cconv eldoc paren electric uniquify ediff-hook vc-hooks lisp-float-type
elisp-mode mwheel term/ns-win ns-win ucs-normalize mule-util
term/common-win tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode lisp-mode prog-mode register
page tab-bar menu-bar rfn-eshadow isearch easymenu timer select
scroll-bar mouse jit-lock font-lock syntax font-core term/tty-colors
frame minibuffer nadvice seq simple cl-generic indonesian philippine
cham georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese eucjp-ms cp51932 hebrew greek romanian slovak czech
european ethiopic indian cyrillic chinese composite emoji-zwj charscript
charprop case-table epa-hook jka-cmpr-hook help abbrev obarray oclosure
cl-preloaded button loaddefs theme-loaddefs faces cus-face macroexp
files window text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget keymap hashtable-print-readable backquote
threads kqueue cocoa ns lcms2 multi-tty make-network-process
tty-child-frames emacs)

Memory information:
((conses 16 66373 17150) (symbols 48 8137 0) (strings 32 20884 2924)
 (string-bytes 1 550345) (vectors 16 14819)
 (vector-slots 8 164261 8046) (floats 8 32 5) (intervals 56 268 0)
 (buffers 1064 10))