GNU bug report logs - #66867
30.0.50; oclosure problem

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 66867 in the body.
You can then email your comments to 66867 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Greg Minshall <minshall <at> umich.edu>
To: bug-gnu-emacs <at> gnu.org
Subject: 30.0.50; oclosure problem
Date: Tue, 31 Oct 2023 19:34:58 -0700

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))

Message #8 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Greg Minshall <minshall <at> umich.edu>
To: 66867 <at> debbugs.gnu.org
Subject: lexical binding?
Date: Tue, 31 Oct 2023 22:16:35 -0700

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

Message #11 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Michael Heerdegen <michael_heerdegen <at> web.de>
To: Greg Minshall <minshall <at> umich.edu>
Cc: 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 02 Nov 2023 02:15:48 +0100

Greg Minshall <minshall <at> 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.

Message #14 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Greg Minshall <minshall <at> umich.edu>
To: Michael Heerdegen <michael_heerdegen <at> web.de>
Cc: 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 02 Nov 2023 10:41:28 -0700

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

Message #17 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Greg Minshall <minshall <at> umich.edu>,
 Michael Heerdegen <michael_heerdegen <at> web.de>
Cc: Stefan Monnier <monnier <at> iro.umontreal.ca>, 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 2 Nov 2023 12:21:37 -0700

Greg Minshall <minshall <at> 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?

Message #20 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: Greg Minshall <minshall <at> umich.edu>,
 Michael Heerdegen <michael_heerdegen <at> web.de>, 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 02 Nov 2023 15:35:10 -0400

>> 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

Message #23 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Stefan Monnier <monnier <at> iro.umontreal.ca>
Cc: Greg Minshall <minshall <at> umich.edu>,
 Michael Heerdegen <michael_heerdegen <at> web.de>, 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 2 Nov 2023 12:39:15 -0700

severity 66867 wishlist
tags 66867 + confirmed
thanks

Stefan Monnier <monnier <at> 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.

Message #30 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: Greg Minshall <minshall <at> umich.edu>,
 Michael Heerdegen <michael_heerdegen <at> web.de>, 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 02 Nov 2023 17:21:23 -0400

>>>> 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

Message #33 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Stefan Monnier <monnier <at> iro.umontreal.ca>
Cc: Greg Minshall <minshall <at> umich.edu>,
 Michael Heerdegen <michael_heerdegen <at> web.de>, 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 2 Nov 2023 15:11:11 -0700

Stefan Monnier <monnier <at> 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.

Message #36 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: Stefan Kangas <stefankangas <at> gmail.com>
Cc: Greg Minshall <minshall <at> umich.edu>,
 Michael Heerdegen <michael_heerdegen <at> web.de>, 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Thu, 02 Nov 2023 23:13:15 -0400

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

OK, pushed, thanks.


        Stefan

Message #41 received at 66867-done <at> debbugs.gnu.org (full text, mbox):

From: Stefan Monnier <monnier <at> iro.umontreal.ca>
To: 66867-done <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Fri, 03 Nov 2023 13:59:11 -0400

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

Closing,


        Stefan

Message #44 received at 66867-done <at> debbugs.gnu.org (full text, mbox):

From: Stefan Kangas <stefankangas <at> gmail.com>
To: Stefan Monnier <monnier <at> iro.umontreal.ca>, 66867-done <at> debbugs.gnu.org
Subject: Re: bug#66867: lexical binding?
Date: Fri, 3 Nov 2023 17:29:21 -0700

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

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

Thanks.

Message #47 received at 66867 <at> debbugs.gnu.org (full text, mbox):

From: Greg Minshall <minshall <at> umich.edu>
To: 66867 <at> debbugs.gnu.org
Subject: Re: bug#66867: closed (Re: bug#66867: lexical binding?)
Date: Mon, 06 Nov 2023 11:25:26 -0800

thanks!

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.