mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add a test for the recent regression

Browse source
This commit is contained in:
Daniel Kochmański 2025-11-16 11:03:48 +01:00
parent b8bd5f4026
commit 1e10761593
1 changed files with 20 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

20
src/tests/normal-tests/compiler.lsp
View file

@ -2571,3 +2571,23 @@
(symbol-macrolet ((value -27))
(load-time-value
(block b4 (woosh b4 value))))))))))
;;; Date 2025-11-16
;;; URL: https://gitlab.com/embeddable-common-lisp/ecl/-/issues/802
;;; Regression commit: 521e815158dc92e6b8af18d007808349764b5623
;;; Reported by: Jan Moringen
;;; Description
;;;
;;; Regression in TAGBODY handling by the C compiler.
;;;
(deftest cmp.0110.tagbody-regression ()
(is (eql 42
(funcall (compile nil
'(lambda (&aux (always-nil nil))
(block nil
(tagbody
:package
(when always-nil
(go :package))
:symbol
(return 42)))))))))