Commit 7231a895 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

* lisp/emacs-lisp/bindat.el (sint): Burp in dynbind (bug#69749)

parent 00553628
Pipeline #28512 failed with stages
in 55 minutes and 46 seconds
......@@ -944,9 +944,13 @@ a bindat type expression."
(bindat-defmacro sint (bitlen le)
"Signed integer of size BITLEN.
Big-endian if LE is nil and little-endian if not."
(unless lexical-binding
(error "The `sint' type requires 'lexical-binding'"))
(let ((bl (make-symbol "bitlen"))
(max (make-symbol "max"))
(wrap (make-symbol "wrap")))
;; FIXME: This `let*' around the `struct' results in code which the
;; byte-compiler does not handle efficiently. 🙁
`(let* ((,bl ,bitlen)
(,max (ash 1 (1- ,bl)))
(,wrap (+ ,max ,max)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment