bug#66867: 30.0.50; oclosure problem

bug#66867: 30.0.50; oclosure problem

[Greg Minshall]

sometimes a function created using `oclosure` fails with a message:
----
cl--assertion-failed: Assertion failed: (eq 'closure (car-safe oclosure))
----

using the example from the info pages, for example, *this* works:
----
emacs -Q --eval '(oclosure-define kbd-macro "Keyboard macro." keys
(counter :mutable t))' --eval '(defun kbd-macro (key-sequence)
(oclosure-lambda (kbd-macro (keys key-sequence) (counter 0)) (&optional
arg) (interactive "P") (execute-kbd-macro keys arg) (setq counter (1+
counter))))' --eval '(kbd-macro "this")'
----
(sorry for newlines)

whereas, if this (should be the same?) is a file `kbmize.el`
----
(oclosure-define kbd-macro
  "Keyboard macro."
  keys (counter :mutable t))


(defun kbd-macro (key-sequence)
  (oclosure-lambda (kbd-macro (keys key-sequence) (counter 0))
      (&optional arg)
    (interactive "P")
    (execute-kbd-macro keys arg)
    (setq counter (1+ counter))))
(kbd-macro "this")
----

then the following invocation fails:
----
emacs -Q -l ./kbmize.el
----

when it succeeds:
----
(symbol-function 'kbd-macro)
(closure (t) (key-sequence) (oclosure-lambda (kbd-macro (keys key-sequence) (counter 0)) (&optional arg) (interactive "P") (execute-kbd-macro keys arg) (setq counter (1+ counter))))
----

but, when it fails:
----
(symbol-function 'kbd-macro)
(lambda (key-sequence) (let ((temp0 key-sequence) (temp1 0)) (let ((counter temp1) (keys temp0)) (oclosure--fix-type (ignore keys) #'(lambda (&optional arg) (:documentation 'kbd-macro) (interactive "P") (if t nil keys (setq counter counter)) (execute-kbd-macro keys arg) (setq counter (1+ counter)))))))
----

cheers.

In GNU Emacs 30.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.24.38, cairo version 1.17.8) of 2023-05-22 built on archlinuxRepository revision: f33b301c29380cb0b295e1343e59c0faaf6ab621
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101009
System Description: Arch Linux

Configured using:
 'configure 'LDFLAGS=-L/usr/local/lib -L/lib -L/usr/X11R6/lib'
 CFLAGS=-g'

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY INOTIFY
PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS
TREE_SITTER WEBP X11 XDBE XIM XINPUT2 XPM GTK3 ZLIB

Important settings:
  value of $LANG: C.UTF-8
  value of $XMODIFIERS: @im=none
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  windmove-mode: t
  my-global-column-number-mode: t
  subword-mode: t
  my-global-subword-mode: t
  yas-global-mode: t
  yas-minor-mode: t
  which-key-mode: t
  vertico-mode: t
  pulsar-global-mode: t
  pulsar-mode: t
  org-roam-db-autosync-mode: t
  marginalia-mode: t
  global-git-commit-mode: t
  magit-auto-revert-mode: t
  filladapt-mode: t
  display-time-mode: t
  emms-mode-line-mode: t
  emms-playing-time-display-mode: t
  emms-playing-time-mode: t
  highlight-doxygen-global-mode: t
  global-flycheck-mode: t
  flycheck-mode: t
  override-global-mode: t
  shell-dirtrack-mode: t
  straight-use-package-mode: t
  straight-package-neutering-mode: t
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  window-divider-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
/home/minshall/.emacs.d/straight/build/emacsql-sqlite/emacsql-sqlite hides /home/minshall/.emacs.d/straight/build/emacsql/emacsql-sqlite
/home/minshall/.emacs.d/straight/build/emacsql/emacsql-sqlite-builtin hides /home/minshall/.emacs.d/straight/build/emacsql-sqlite-builtin/emacsql-sqlite-builtin
/home/minshall/usr/share/emacs/lisp/misc/orgtbl-sqlinsert hides /home/minshall/.emacs.d/straight/build/org-contrib/orgtbl-sqlinsert
/home/minshall/.emacs.d/straight/build/jsonrpc/jsonrpc hides /usr/local/share/emacs/30.0.50/lisp/jsonrpc
/home/minshall/.emacs.d/straight/build/transient/transient hides /usr/local/share/emacs/30.0.50/lisp/transient
/home/minshall/.emacs.d/straight/build/use-package/use-package-diminish hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package-diminish
/home/minshall/.emacs.d/straight/build/use-package/use-package-core hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package-core
/home/minshall/.emacs.d/straight/build/use-package/use-package-delight hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package-delight
/home/minshall/.emacs.d/straight/build/use-package/use-package-ensure hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package-ensure
/home/minshall/.emacs.d/straight/build/use-package/use-package-bind-key hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package-bind-key
/home/minshall/.emacs.d/straight/build/bind-key/bind-key hides /usr/local/share/emacs/30.0.50/lisp/use-package/bind-key
/home/minshall/.emacs.d/straight/build/use-package/use-package-lint hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package-lint
/home/minshall/.emacs.d/straight/build/use-package/use-package hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package
/home/minshall/.emacs.d/straight/build/use-package/use-package-jump hides /usr/local/share/emacs/30.0.50/lisp/use-package/use-package-jump
/home/minshall/.emacs.d/straight/build/xref/xref hides /usr/local/share/emacs/30.0.50/lisp/progmodes/xref
/home/minshall/.emacs.d/straight/build/flymake/flymake hides /usr/local/share/emacs/30.0.50/lisp/progmodes/flymake
/home/minshall/.emacs.d/straight/build/eglot/eglot hides /usr/local/share/emacs/30.0.50/lisp/progmodes/eglot
/home/minshall/.emacs.d/straight/build/project/project hides /usr/local/share/emacs/30.0.50/lisp/progmodes/project
/home/minshall/.emacs.d/straight/build/org/ol-w3m hides /usr/local/share/emacs/30.0.50/lisp/org/ol-w3m
/home/minshall/.emacs.d/straight/build/org/ob-perl hides /usr/local/share/emacs/30.0.50/lisp/org/ob-perl
/home/minshall/.emacs.d/straight/build/org/ox-beamer hides /usr/local/share/emacs/30.0.50/lisp/org/ox-beamer
/home/minshall/.emacs.d/straight/build/org/org-duration hides /usr/local/share/emacs/30.0.50/lisp/org/org-duration
/home/minshall/.emacs.d/straight/build/org/ob-sass hides /usr/local/share/emacs/30.0.50/lisp/org/ob-sass
/home/minshall/.emacs.d/straight/build/org/ob-julia hides /usr/local/share/emacs/30.0.50/lisp/org/ob-julia
/home/minshall/.emacs.d/straight/build/org/ob-C hides /usr/local/share/emacs/30.0.50/lisp/org/ob-C
/home/minshall/.emacs.d/straight/build/org/ob-lilypond hides /usr/local/share/emacs/30.0.50/lisp/org/ob-lilypond
/home/minshall/.emacs.d/straight/build/org/org-mouse hides /usr/local/share/emacs/30.0.50/lisp/org/org-mouse
/home/minshall/.emacs.d/straight/build/org/oc-csl hides /usr/local/share/emacs/30.0.50/lisp/org/oc-csl
/home/minshall/.emacs.d/straight/build/org/ob-lua hides /usr/local/share/emacs/30.0.50/lisp/org/ob-lua
/home/minshall/.emacs.d/straight/build/org/org-inlinetask hides /usr/local/share/emacs/30.0.50/lisp/org/org-inlinetask
/home/minshall/.emacs.d/straight/build/org/org-macro hides /usr/local/share/emacs/30.0.50/lisp/org/org-macro
/home/minshall/.emacs.d/straight/build/org/ob-clojure hides /usr/local/share/emacs/30.0.50/lisp/org/ob-clojure
/home/minshall/.emacs.d/straight/build/org/org-macs hides /usr/local/share/emacs/30.0.50/lisp/org/org-macs
/home/minshall/.emacs.d/straight/build/org/ol-bbdb hides /usr/local/share/emacs/30.0.50/lisp/org/ol-bbdb
/home/minshall/.emacs.d/straight/build/org/ox-md hides /usr/local/share/emacs/30.0.50/lisp/org/ox-md
/home/minshall/.emacs.d/straight/build/org/org-num hides /usr/local/share/emacs/30.0.50/lisp/org/org-num
/home/minshall/.emacs.d/straight/build/org/ob-matlab hides /usr/local/share/emacs/30.0.50/lisp/org/ob-matlab
/home/minshall/.emacs.d/straight/build/org/org-list hides /usr/local/share/emacs/30.0.50/lisp/org/org-list
/home/minshall/.emacs.d/straight/build/org/ob-tangle hides /usr/local/share/emacs/30.0.50/lisp/org/ob-tangle
/home/minshall/.emacs.d/straight/build/org/ob-plantuml hides /usr/local/share/emacs/30.0.50/lisp/org/ob-plantuml
/home/minshall/.emacs.d/straight/build/org/oc-natbib hides /usr/local/share/emacs/30.0.50/lisp/org/oc-natbib
/home/minshall/.emacs.d/straight/build/org/ob-awk hides /usr/local/share/emacs/30.0.50/lisp/org/ob-awk
/home/minshall/.emacs.d/straight/build/org/ox-texinfo hides /usr/local/share/emacs/30.0.50/lisp/org/ox-texinfo
/home/minshall/.emacs.d/straight/build/org/ol-gnus hides /usr/local/share/emacs/30.0.50/lisp/org/ol-gnus
/home/minshall/.emacs.d/straight/build/org/oc-biblatex hides /usr/local/share/emacs/30.0.50/lisp/org/oc-biblatex
/home/minshall/.emacs.d/straight/build/org/ob-calc hides /usr/local/share/emacs/30.0.50/lisp/org/ob-calc
/home/minshall/.emacs.d/straight/build/org/org-loaddefs hides /usr/local/share/emacs/30.0.50/lisp/org/org-loaddefs
/home/minshall/.emacs.d/straight/build/org/ol-eww hides /usr/local/share/emacs/30.0.50/lisp/org/ol-eww
/home/minshall/.emacs.d/straight/build/org/ob-ditaa hides /usr/local/share/emacs/30.0.50/lisp/org/ob-ditaa
/home/minshall/.emacs.d/straight/build/org/org-ctags hides /usr/local/share/emacs/30.0.50/lisp/org/org-ctags
/home/minshall/.emacs.d/straight/build/org/ob-sed hides /usr/local/share/emacs/30.0.50/lisp/org/ob-sed
/home/minshall/.emacs.d/straight/build/org/org-refile hides /usr/local/share/emacs/30.0.50/lisp/org/org-refile
/home/minshall/.emacs.d/straight/build/org/ob-processing hides /usr/local/share/emacs/30.0.50/lisp/org/ob-processing
/home/minshall/.emacs.d/straight/build/org/org-pcomplete hides /usr/local/share/emacs/30.0.50/lisp/org/org-pcomplete
/home/minshall/.emacs.d/straight/build/org/ox-org hides /usr/local/share/emacs/30.0.50/lisp/org/ox-org
/home/minshall/.emacs.d/straight/build/org/ob-comint hides /usr/local/share/emacs/30.0.50/lisp/org/ob-comint
/home/minshall/.emacs.d/straight/build/org/ox-ascii hides /usr/local/share/emacs/30.0.50/lisp/org/ox-ascii
/home/minshall/.emacs.d/straight/build/org/org-timer hides /usr/local/share/emacs/30.0.50/lisp/org/org-timer
/home/minshall/.emacs.d/straight/build/org/ob-groovy hides /usr/local/share/emacs/30.0.50/lisp/org/ob-groovy
/home/minshall/.emacs.d/straight/build/org/ox hides /usr/local/share/emacs/30.0.50/lisp/org/ox
/home/minshall/.emacs.d/straight/build/org/ob-table hides /usr/local/share/emacs/30.0.50/lisp/org/ob-table
/home/minshall/.emacs.d/straight/build/org/ox-latex hides /usr/local/share/emacs/30.0.50/lisp/org/ox-latex
/home/minshall/.emacs.d/straight/build/org/ol hides /usr/local/share/emacs/30.0.50/lisp/org/ol
/home/minshall/.emacs.d/straight/build/org/org-protocol hides /usr/local/share/emacs/30.0.50/lisp/org/org-protocol
/home/minshall/.emacs.d/straight/build/org/org-id hides /usr/local/share/emacs/30.0.50/lisp/org/org-id
/home/minshall/.emacs.d/straight/build/org/ob-latex hides /usr/local/share/emacs/30.0.50/lisp/org/ob-latex
/home/minshall/.emacs.d/straight/build/org/org-attach hides /usr/local/share/emacs/30.0.50/lisp/org/org-attach
/home/minshall/.emacs.d/straight/build/org/ol-info hides /usr/local/share/emacs/30.0.50/lisp/org/ol-info
/home/minshall/.emacs.d/straight/build/org/ob-screen hides /usr/local/share/emacs/30.0.50/lisp/org/ob-screen
/home/minshall/.emacs.d/straight/build/org/ob-forth hides /usr/local/share/emacs/30.0.50/lisp/org/ob-forth
/home/minshall/.emacs.d/straight/build/org/ob-ref hides /usr/local/share/emacs/30.0.50/lisp/org/ob-ref
/home/minshall/.emacs.d/straight/build/org/org-src hides /usr/local/share/emacs/30.0.50/lisp/org/org-src
/home/minshall/.emacs.d/straight/build/org/ol-mhe hides /usr/local/share/emacs/30.0.50/lisp/org/ol-mhe
/home/minshall/.emacs.d/straight/build/org/ob-haskell hides /usr/local/share/emacs/30.0.50/lisp/org/ob-haskell
/home/minshall/.emacs.d/straight/build/org/ol-bibtex hides /usr/local/share/emacs/30.0.50/lisp/org/ol-bibtex
/home/minshall/.emacs.d/straight/build/org/org-table hides /usr/local/share/emacs/30.0.50/lisp/org/org-table
/home/minshall/.emacs.d/straight/build/org/ob-scheme hides /usr/local/share/emacs/30.0.50/lisp/org/ob-scheme
/home/minshall/.emacs.d/straight/build/org/ox-publish hides /usr/local/share/emacs/30.0.50/lisp/org/ox-publish
/home/minshall/.emacs.d/straight/build/org/ol-irc hides /usr/local/share/emacs/30.0.50/lisp/org/ol-irc
/home/minshall/.emacs.d/straight/build/org/ob-org hides /usr/local/share/emacs/30.0.50/lisp/org/ob-org
/home/minshall/.emacs.d/straight/build/org/org-crypt hides /usr/local/share/emacs/30.0.50/lisp/org/org-crypt
/home/minshall/.emacs.d/straight/build/org/ob-fortran hides /usr/local/share/emacs/30.0.50/lisp/org/ob-fortran
/home/minshall/.emacs.d/straight/build/org/org-attach-git hides /usr/local/share/emacs/30.0.50/lisp/org/org-attach-git
/home/minshall/.emacs.d/straight/build/org/ob-shell hides /usr/local/share/emacs/30.0.50/lisp/org/ob-shell
/home/minshall/.emacs.d/straight/build/org/org-faces hides /usr/local/share/emacs/30.0.50/lisp/org/org-faces
/home/minshall/.emacs.d/straight/build/org/ob-js hides /usr/local/share/emacs/30.0.50/lisp/org/ob-js
/home/minshall/.emacs.d/straight/build/org/org-datetree hides /usr/local/share/emacs/30.0.50/lisp/org/org-datetree
/home/minshall/.emacs.d/straight/build/org/ox-odt hides /usr/local/share/emacs/30.0.50/lisp/org/ox-odt
/home/minshall/.emacs.d/straight/build/org/ob-maxima hides /usr/local/share/emacs/30.0.50/lisp/org/ob-maxima
/home/minshall/.emacs.d/straight/build/org/org-version hides /usr/local/share/emacs/30.0.50/lisp/org/org-version
/home/minshall/.emacs.d/straight/build/org/ol-man hides /usr/local/share/emacs/30.0.50/lisp/org/ol-man
/home/minshall/.emacs.d/straight/build/org/org-fold-core hides /usr/local/share/emacs/30.0.50/lisp/org/org-fold-core
/home/minshall/.emacs.d/straight/build/org/org-persist hides /usr/local/share/emacs/30.0.50/lisp/org/org-persist
/home/minshall/.emacs.d/straight/build/org/org hides /usr/local/share/emacs/30.0.50/lisp/org/org
/home/minshall/.emacs.d/straight/build/org/ob-gnuplot hides /usr/local/share/emacs/30.0.50/lisp/org/ob-gnuplot
/home/minshall/.emacs.d/straight/build/org/ob-emacs-lisp hides /usr/local/share/emacs/30.0.50/lisp/org/ob-emacs-lisp
/home/minshall/.emacs.d/straight/build/org/ob-sqlite hides /usr/local/share/emacs/30.0.50/lisp/org/ob-sqlite
/home/minshall/.emacs.d/straight/build/org/ol-rmail hides /usr/local/share/emacs/30.0.50/lisp/org/ol-rmail
/home/minshall/.emacs.d/straight/build/org/ob-exp hides /usr/local/share/emacs/30.0.50/lisp/org/ob-exp
/home/minshall/.emacs.d/straight/build/org/ob-lob hides /usr/local/share/emacs/30.0.50/lisp/org/ob-lob
/home/minshall/.emacs.d/straight/build/org/ob-R hides /usr/local/share/emacs/30.0.50/lisp/org/ob-R
/home/minshall/.emacs.d/straight/build/org/org-mobile hides /usr/local/share/emacs/30.0.50/lisp/org/org-mobile
/home/minshall/.emacs.d/straight/build/org/ob hides /usr/local/share/emacs/30.0.50/lisp/org/ob
/home/minshall/.emacs.d/straight/build/org/ol-doi hides /usr/local/share/emacs/30.0.50/lisp/org/ol-doi
/home/minshall/.emacs.d/straight/build/org/org-goto hides /usr/local/share/emacs/30.0.50/lisp/org/org-goto
/home/minshall/.emacs.d/straight/build/org/ob-eval hides /usr/local/share/emacs/30.0.50/lisp/org/ob-eval
/home/minshall/.emacs.d/straight/build/org/org-lint hides /usr/local/share/emacs/30.0.50/lisp/org/org-lint
/home/minshall/.emacs.d/straight/build/org/ob-python hides /usr/local/share/emacs/30.0.50/lisp/org/ob-python
/home/minshall/.emacs.d/straight/build/org/org-compat hides /usr/local/share/emacs/30.0.50/lisp/org/org-compat
/home/minshall/.emacs.d/straight/build/org/org-indent hides /usr/local/share/emacs/30.0.50/lisp/org/org-indent
/home/minshall/.emacs.d/straight/build/org/ob-core hides /usr/local/share/emacs/30.0.50/lisp/org/ob-core
/home/minshall/.emacs.d/straight/build/org/ob-eshell hides /usr/local/share/emacs/30.0.50/lisp/org/ob-eshell
/home/minshall/.emacs.d/straight/build/org/org-cycle hides /usr/local/share/emacs/30.0.50/lisp/org/org-cycle
/home/minshall/.emacs.d/straight/build/org/org-footnote hides /usr/local/share/emacs/30.0.50/lisp/org/org-footnote
/home/minshall/.emacs.d/straight/build/org/ol-eshell hides /usr/local/share/emacs/30.0.50/lisp/org/ol-eshell
/home/minshall/.emacs.d/straight/build/org/ox-koma-letter hides /usr/local/share/emacs/30.0.50/lisp/org/ox-koma-letter
/home/minshall/.emacs.d/straight/build/org/oc hides /usr/local/share/emacs/30.0.50/lisp/org/oc
/home/minshall/.emacs.d/straight/build/org/ob-dot hides /usr/local/share/emacs/30.0.50/lisp/org/ob-dot
/home/minshall/.emacs.d/straight/build/org/org-capture hides /usr/local/share/emacs/30.0.50/lisp/org/org-capture
/home/minshall/.emacs.d/straight/build/org/org-colview hides /usr/local/share/emacs/30.0.50/lisp/org/org-colview
/home/minshall/.emacs.d/straight/build/org/ox-icalendar hides /usr/local/share/emacs/30.0.50/lisp/org/ox-icalendar
/home/minshall/.emacs.d/straight/build/org/ob-ruby hides /usr/local/share/emacs/30.0.50/lisp/org/ob-ruby
/home/minshall/.emacs.d/straight/build/org/ob-octave hides /usr/local/share/emacs/30.0.50/lisp/org/ob-octave
/home/minshall/.emacs.d/straight/build/org/org-keys hides /usr/local/share/emacs/30.0.50/lisp/org/org-keys
/home/minshall/.emacs.d/straight/build/org/oc-bibtex hides /usr/local/share/emacs/30.0.50/lisp/org/oc-bibtex
/home/minshall/.emacs.d/straight/build/org/org-entities hides /usr/local/share/emacs/30.0.50/lisp/org/org-entities
/home/minshall/.emacs.d/straight/build/org/org-habit hides /usr/local/share/emacs/30.0.50/lisp/org/org-habit
/home/minshall/.emacs.d/straight/build/org/ob-css hides /usr/local/share/emacs/30.0.50/lisp/org/ob-css
/home/minshall/.emacs.d/straight/build/org/ob-lisp hides /usr/local/share/emacs/30.0.50/lisp/org/ob-lisp
/home/minshall/.emacs.d/straight/build/org/org-plot hides /usr/local/share/emacs/30.0.50/lisp/org/org-plot
/home/minshall/.emacs.d/straight/build/org/org-clock hides /usr/local/share/emacs/30.0.50/lisp/org/org-clock
/home/minshall/.emacs.d/straight/build/org/oc-basic hides /usr/local/share/emacs/30.0.50/lisp/org/oc-basic
/home/minshall/.emacs.d/straight/build/org/org-archive hides /usr/local/share/emacs/30.0.50/lisp/org/org-archive
/home/minshall/.emacs.d/straight/build/org/org-fold hides /usr/local/share/emacs/30.0.50/lisp/org/org-fold
/home/minshall/.emacs.d/straight/build/org/ob-java hides /usr/local/share/emacs/30.0.50/lisp/org/ob-java
/home/minshall/.emacs.d/straight/build/org/ox-html hides /usr/local/share/emacs/30.0.50/lisp/org/ox-html
/home/minshall/.emacs.d/straight/build/org/org-element hides /usr/local/share/emacs/30.0.50/lisp/org/org-element
/home/minshall/.emacs.d/straight/build/org/org-feed hides /usr/local/share/emacs/30.0.50/lisp/org/org-feed
/home/minshall/.emacs.d/straight/build/org/org-agenda hides /usr/local/share/emacs/30.0.50/lisp/org/org-agenda
/home/minshall/.emacs.d/straight/build/org/ob-makefile hides /usr/local/share/emacs/30.0.50/lisp/org/ob-makefile
/home/minshall/.emacs.d/straight/build/org/ob-ocaml hides /usr/local/share/emacs/30.0.50/lisp/org/ob-ocaml
/home/minshall/.emacs.d/straight/build/org/ob-sql hides /usr/local/share/emacs/30.0.50/lisp/org/ob-sql
/home/minshall/.emacs.d/straight/build/org/ox-man hides /usr/local/share/emacs/30.0.50/lisp/org/ox-man
/home/minshall/.emacs.d/straight/build/org/ol-docview hides /usr/local/share/emacs/30.0.50/lisp/org/ol-docview
/home/minshall/.emacs.d/straight/build/org/org-tempo hides /usr/local/share/emacs/30.0.50/lisp/org/org-tempo
/home/minshall/.emacs.d/straight/build/map/map hides /usr/local/share/emacs/30.0.50/lisp/emacs-lisp/map
/home/minshall/.emacs.d/straight/build/eldoc/eldoc hides /usr/local/share/emacs/30.0.50/lisp/emacs-lisp/eldoc
/home/minshall/.emacs.d/straight/build/let-alist/let-alist hides /usr/local/share/emacs/30.0.50/lisp/emacs-lisp/let-alist

Features:
(shadow mh-identity flyspell mh-tool-bar mh-letter mh-xface mh-utils
mh-comp emacsbug cl-print misearch multi-isearch mule-util windmove
ox-md my-org-grep my-input quail mh-e-extensions mh-show goto-addr
gnus-cite mh-folder mh-scan erc erc-backend erc-networks erc-common
erc-compat erc-loaddefs mh-mime mh-gnus mh-acros mh-e mh-buffers
mh-loaddefs subword-mode-expansions cap-words superword subword doct
ytel ytel-autoloads yasnippet yasnippet-autoloads xr xr-autoloads xclip
xclip-autoloads wiki-summary wiki-summary-autoloads which-key
which-key-autoloads w3m w3m-hist w3m-fb bookmark-w3m w3m-ems w3m-favicon
w3m-image tab-line w3m-proc w3m-util w3m-load w3m-autoloads
consult-vertico vertico vertico-autoloads vdiff units-mode
units-mode-autoloads tzc tzc-autoloads typescript-mode
typescript-mode-autoloads spell-fu ispell spell-fu-autoloads
shrface-autoloads language-detection-autoloads sdcv pos-tip popup
showtip sdcv-autoloads pos-tip-autoloads showtip-autoloads scpaste
scpaste-autoloads rpn-calc-autoloads popup-autoloads pulsar pulse
pulsar-autoloads prettier editorconfig editorconfig-core
editorconfig-core-handle editorconfig-fnmatch nvm iter2
prettier-autoloads editorconfig-autoloads nvm-autoloads iter2-autoloads
prettied-diff-autoloads vdiff-autoloads pcsv pcsv-autoloads parse-csv
parse-csv-autoloads osm-ol osm-autoloads org-roam-bibtex orb-core
orb-compat orb-utils org-roam-migrate org-roam-log org-roam-mode
org-roam-capture org-roam-id org-roam-node org-roam-db org-roam-utils
org-roam-compat org-roam org-attach emacsql-sqlite
org-roam-bibtex-autoloads org-roam-autoloads emacsql-sqlite-autoloads
org-ref org-ref-core org-ref-glossary org-ref-bibtex avy doi-utils
org-ref-utils org-ref-export citeproc citeproc-itemgetters
citeproc-biblatex citeproc-bibtex citeproc-cite citeproc-subbibs
citeproc-sort citeproc-name citeproc-formatters citeproc-number rst
citeproc-proc citeproc-disamb citeproc-itemdata
citeproc-generic-elements citeproc-macro citeproc-choose citeproc-date
citeproc-context citeproc-prange citeproc-style citeproc-locale
citeproc-term citeproc-rt citeproc-lib citeproc-s ox-pandoc ht ox-org
ox-html table ox-beamer ox-latex ox-ascii ox-publish ox
org-ref-misc-links org-ref-label-link org-ref-ref-links
org-ref-citation-links org-ref-bibliography-links hydra lv
org-ref-autoloads ox-pandoc-autoloads citeproc-autoloads
string-inflection-autoloads hydra-autoloads lv-autoloads org-ql peg ts
org-habit org-agenda org-ql-autoloads peg-autoloads ov-autoloads
org-super-agenda-autoloads ts-autoloads ht-autoloads map-autoloads
org-grep org-grep-autoloads org-cliplink-autoloads orderless
orderless-autoloads ob-typescript ob-typescript-autoloads names
names-autoloads ob-ess-julia ess-julia ess-r-mode ess-r-flymake
ess-r-xref ess-trns ess-r-package ess-r-completion ess-roxy ess-r-syntax
ess-rd hideshow ess-s-lang ess-help ess-mode ess-inf ess-tracebug
ob-ess-julia-autoloads ob-julia-vterm julia-vterm vterm face-remap term
disp-table ehelp vterm-module term/xterm xterm queue
ob-julia-vterm-autoloads queue-autoloads julia-vterm-autoloads
vterm-autoloads nov esxml-query nov-autoloads esxml-autoloads
kv-autoloads ol-w3m ol-rmail ol-mhe ol-irc ol-info ol-gnus nnselect
gnus-art mm-uu mml2015 mm-view mml-smime smime gnutls dig gnus-sum
gnus-group gnus-undo gnus-start gnus-dbus dbus gnus-cloud nnimap nnmail
mail-source utf7 nnoo gnus-spec gnus-int gnus-range gnus-win ol-docview
doc-view jka-compr image-mode exif ol-bibtex ol-bbdb modus-vivendi-theme
modus-themes mastodon mastodon-toot mastodon-autoloads request-autoloads
markdown-mode markdown-mode-autoloads marginalia marginalia-autoloads
magit-bookmark magit-submodule magit-obsolete magit-blame magit-stash
magit-reflog magit-bisect magit-push magit-pull magit-fetch magit-clone
magit-remote magit-commit magit-sequence magit-notes magit-worktree
magit-tag magit-merge magit-branch magit-reset magit-files magit-refs
magit-status magit magit-repos magit-apply magit-wip magit-log
which-func magit-diff smerge-mode diff git-commit log-edit pcvs-util
add-log magit-core magit-autorevert autorevert magit-margin
magit-transient magit-process with-editor magit-mode transient magit-git
magit-base magit-section crm compat-27 compat-26 magit-autoloads
magit-section-autoloads git-commit-autoloads with-editor-autoloads
transient-autoloads lua-mode lua-mode-autoloads link-hint-autoloads
ob-julia julia-mode julia-mode-latexsubs julia-mode-autoloads
js2-mode-expansions js2-mode etags fileloop js2-mode-autoloads json-mode
json-snatcher js-mode-expansions js c-ts-common json-mode-autoloads
json-snatcher-autoloads htmlize htmlize-autoloads ivy-bibtex
bibtex-completion org-capture biblio biblio-download biblio-dissemin
biblio-ieee biblio-hal biblio-dblp biblio-crossref biblio-arxiv timezone
biblio-doi biblio-core hl-line parsebib bibtex ivy-bibtex-autoloads
bibtex-completion-autoloads biblio-autoloads biblio-core-autoloads
parsebib-autoloads ivy delsel ivy-faces ivy-overlay colir color
ivy-autoloads hide-lines hide-lines-autoloads helpful cc-langs trace
edebug help-fns radix-tree elisp-refs helpful-autoloads
elisp-refs-autoloads gnuplot info-look gnuplot-autoloads free-keys
free-keys-autoloads flycheck-package package-lint let-alist finder
package flycheck-package-autoloads package-lint-autoloads filladapt
filladapt-autoloads exwm-config ido time exwm exwm-input xcb-keysyms
xcb-xkb exwm-manage exwm-floating xcb-cursor xcb-render exwm-layout
exwm-workspace exwm-core xcb-ewmh xcb-icccm xcb xcb-xproto xcb-types
xcb-debug server exwm-autoloads xelb-autoloads expand-region
text-mode-expansions cc-mode-expansions the-org-mode-expansions
python-el-fgallina-expansions er-basic-expansions expand-region-core
expand-region-custom expand-region-autoloads ess lisp-mnt ess-utils
ess-custom ess-autoloads emms-librefm-stream emms-librefm-scrobbler
emms-playlist-limit emms-i18n emms-history emms-score emms-stream-info
emms-metaplaylist-mode emms-bookmarks emms-cue emms-mode-line-icon
emms-browser sort emms-volume emms-volume-sndioctl emms-volume-mixerctl
emms-volume-pulse emms-volume-amixer emms-playlist-sort emms-last-played
emms-player-xine emms-player-mpd tq emms-lyrics emms-url emms-streams
emms-show-all emms-tag-editor emms-tag-tracktag emms-mark emms-mode-line
emms-cache emms-info-exiftool emms-info-tinytag emms-info-metaflac
emms-info-opusinfo emms-info-ogginfo emms-info-mp3info
emms-playlist-mode emms-player-vlc emms-player-mpv emms-playing-time
emms-player-mplayer emms-player-simple emms-source-playlist
emms-source-file locate emms-info-native emms-info emms-later-do
emms-setup emms emms-compat emms-autoloads embark-consult-autoloads
embark-autoloads emacsql-sqlite-builtin emacsql emacsql-compiler sqlite
emacsql-sqlite-builtin-autoloads emacsql-autoloads advice elfeed-org
elfeed-org-autoloads elfeed-dashboard org-element org-persist org-id
org-refile elfeed-dashboard-autoloads elfeed-show elfeed-search vc-git
diff-mode vc-dispatcher message sendmail yank-media dired dired-loaddefs
rfc822 mml mml-sec epa derived epg rfc6068 epg-config mm-decode
mm-bodies mm-encode mailabbrev gmm-utils mailheader shr pixel-fill
kinsoku svg dom elfeed-csv elfeed elfeed-curl elfeed-log elfeed-db
elfeed-lib avl-tree generator url-queue url-file browse-url xml-query
xml elfeed-autoloads highlight-doxygen highlight-doxygen-autoloads
doct-autoloads use-package-ensure docstr docstr-key docstr-faces
docstr-writers docstr-util docstr-autoloads datetime extmap bindat
datetime-autoloads extmap-autoloads consult-recoll
consult-recoll-autoloads consult-flycheck flycheck
consult-flycheck-autoloads flycheck-autoloads let-alist-autoloads
pkg-info-autoloads epl-autoloads consult-eglot consult compat-28 compat
compat-macs recentf tree-widget bookmark eglot array filenotify jsonrpc
ert ewoc debug backtrace xref flymake-proc flymake thingatpt warnings
compile imenu consult-eglot-autoloads eglot-autoloads flymake-autoloads
project-autoloads xref-autoloads eldoc-autoloads jsonrpc-autoloads
consult-autoloads compat-autoloads commander f f-shortdoc shortdoc s
commander-autoloads f-autoloads s-autoloads calfw-gcal
calfw-gcal-autoloads calfw-ical icalendar diary-lib diary-loaddefs
calfw-ical-autoloads calfw holidays holiday-loaddefs cl calfw-autoloads
edmacro kmacro avy-autoloads finder-inf use-package-bind-key bind-key
easy-mmode aurel url-http url-auth mail-parse rfc2231 rfc2047 rfc2045
ietf-drums url-gw nsm puny bui bui-list bui-info bui-entry bui-core
bui-history bui-button bui-utils cus-edit pp dash url-handlers url
url-proxy url-privacy url-expand url-methods url-history url-cookie
generate-lisp-file url-domsuf url-util url-parse url-vars mailcap
aurel-autoloads bui-autoloads dash-autoloads annotate annotate-autoloads
adoc-mode tempo markup-faces adoc-mode-autoloads markup-faces-autoloads
org-contrib org-contrib-autoloads ob-js ob-gnuplot ob-shell ob-octave
ob-scheme ob-org ob-latex ob-C cc-mode cc-fonts cc-guess cc-menus
cc-cmds cc-styles cc-align cc-engine cc-vars cc-defs ob-python python
project pcase treesit ob-awk ob-ditaa ob-R org ob ob-tangle ob-ref
ob-lob ob-table ob-exp org-macro org-src ob-comint org-pcomplete
org-list org-footnote org-faces org-entities noutline outline icons
ob-emacs-lisp ob-core ob-eval org-cycle org-table ol org-fold
org-fold-core org-keys oc org-loaddefs find-func cal-menu calendar
cal-loaddefs org-version org-compat org-macs use-package-core
use-package-autoloads info bind-key-autoloads tramp rx tramp-loaddefs
trampver tramp-integration files-x tramp-compat xdg shell pcomplete
comint ansi-osc ring parse-time iso8601 ls-lisp format-spec auth-source
eieio eieio-core password-cache json map byte-opt ansi-color avoid gnus
nnheader gnus-util text-property-search time-date mail-utils range
mm-util mail-prsvr wid-edit cus-load straight-autoloads cl-seq cl-extra
help-mode straight subr-x cl-macs gv cl-loaddefs cl-lib bytecomp
byte-compile rmc iso-transl tooltip cconv eldoc paren electric uniquify
ediff-hook vc-hooks lisp-float-type elisp-mode mwheel term/x-win x-win
term/common-win x-dnd 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 dbusbind inotify lcms2 dynamic-setting system-font-setting
font-render-setting cairo move-toolbar gtk x-toolkit xinput2 x multi-tty
make-network-process emacs)

Memory information:
((conses 16 1084100 222987)
 (symbols 48 117321 4)
 (strings 32 405086 27581)
 (string-bytes 1 15557057)
 (vectors 16 149403)
 (vector-slots 8 2870352 163588)
 (floats 8 795 664)
 (intervals 56 8092 1188)
 (buffers 984 19))

bug#66867: lexical binding?

[Greg Minshall]

hi.  maybe this has something to do with not having lexical binding
enabled (when the =(eval)= is being done)?

bug#66867: lexical binding?

[Michael Heerdegen]

Greg Minshall <minshall@umich.edu> writes:

> hi.  maybe this has something to do with not having lexical binding
> enabled (when the =(eval)= is being done)?

Yes, creating oclosures requires lexical-binding, and this is not
directly enforced in the code.  Your backtrace looks like if the code
was interpreted using the dynamically binding dialect.

--eval uses lexical-binding since Emacs 27.1.

Michael.

bug#66867: lexical binding?

[Greg Minshall]

Michael,

thanks for the reply.

maybe the Oclosure code should enforce lexical-binding, if it can, or
throw an informative error in the case it can't so enforce?

cheers, Greg

bug#66867: lexical binding?

[Stefan Kangas]

Greg Minshall <minshall@umich.edu> writes:

> maybe the Oclosure code should enforce lexical-binding, if it can, or
> throw an informative error in the case it can't so enforce?

Stefan M, what do you think?

bug#66867: lexical binding?

[Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors]

>> maybe the Oclosure code should enforce lexical-binding, if it can, or
>> throw an informative error in the case it can't so enforce?
> Stefan M, what do you think?

A (cl-assert lexical-binding) in something like `oclosure--lambda`
sounds good, yes.


        Stefan

bug#66867: lexical binding?

[Stefan Kangas]

severity 66867 wishlist
tags 66867 + confirmed
thanks

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>>> maybe the Oclosure code should enforce lexical-binding, if it can, or
>>> throw an informative error in the case it can't so enforce?
>> Stefan M, what do you think?
>
> A (cl-assert lexical-binding) in something like `oclosure--lambda`
> sounds good, yes.

Thanks, so patches welcome.

bug#66867: lexical binding?

[Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors]

>>>> maybe the Oclosure code should enforce lexical-binding, if it can, or
>>>> throw an informative error in the case it can't so enforce?
>>> Stefan M, what do you think?
>> A (cl-assert lexical-binding) in something like `oclosure--lambda`
>> sounds good, yes.
> Thanks, so patches welcome.

Should it go to `emacs-29` or `master`?


        Stefan


diff --git a/lisp/emacs-lisp/oclosure.el b/lisp/emacs-lisp/oclosure.el
index ae0038b45e6..c23dd5a36da 100644
--- a/lisp/emacs-lisp/oclosure.el
+++ b/lisp/emacs-lisp/oclosure.el
@@ -350,6 +350,7 @@ oclosure--lambda
 should be mutable.
 No checking is performed."
   (declare (indent 3) (debug (sexp (&rest (sexp form)) sexp def-body)))
+  (cl-assert lexical-binding)          ;Can't work in dynbind dialect.
   ;; FIXME: Fundamentally `oclosure-lambda' should be a special form.
   ;; We define it here as a macro which expands to something that
   ;; looks like "normal code" in order to avoid backward compatibility

bug#66867: lexical binding?

[Stefan Kangas]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

> Should it go to `emacs-29` or `master`?

Perhaps `master` is fine?

If you want to put it on `emacs-29`, it might be better to wait until
after Emacs 29.2 is released given that the first pretest is already
out.

bug#66867: lexical binding?

[Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors]

>> Should it go to `emacs-29` or `master`?
> Perhaps `master` is fine?

OK, pushed, thanks.


        Stefan

bug#66867: lexical binding?

[Stefan Monnier via Bug reports for GNU Emacs, the Swiss army knife of text editors]

>>> Should it go to `emacs-29` or `master`?
>> Perhaps `master` is fine?
> OK, pushed, thanks.

Closing,


        Stefan

bug#66867: lexical binding?

[Stefan Kangas]

Stefan Monnier via "Bug reports for GNU Emacs, the Swiss army knife of
text editors" <bug-gnu-emacs@gnu.org> writes:

>>>> Should it go to `emacs-29` or `master`?
>>> Perhaps `master` is fine?
>> OK, pushed, thanks.
>
> Closing,

Thanks.

bug#66867: closed (Re: bug#66867: lexical binding?)

[Greg Minshall]

thanks!