BUG: stack inconsistency during compilation

Eric Marsden <[email protected]> Thu, 23 Nov 2023 13:27:19 +0100
Newsgroups gmane.editors.j.devel
Message-ID <cc410d54-32c1-4177-832d-999a94206e29__42595.2543200523$1700742485$gmane$org@free.fr>
Hi,

Armed Bear Common Lisp 1.9.3-dev
Java 17.0.9 Debian
OpenJDK 64-Bit Server VM
Low-level initialization completed in 0.151 seconds.
Startup completed in 0.876 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (defvar *s*)
*S*
CL-USER(2): (defun foo () (princ-to-string (progv '(*s*) '(1) (catch 'ct 
*s*))))
FOO
CL-USER(3): (compile 'foo)
; Caught ERROR:
;   Stack inconsistency detected in <unknown> at index 44: found 3, 
expected 1.
; Compilation unit finished
;   Caught 1 ERROR condition