mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-02-05 07:00:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

tests: add a failing test for minimal closures

Browse source
This commit is contained in:
Daniel Kochmański 2024-12-19 09:22:34 +01:00
parent 8e44c6322f
commit 4e95ee830a
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2465,3 +2465,15 @@
(finishes (is (null (nth-value 2 (compile nil f2)))))
(print (= (funcall f1 3) 6))
(print (= (funcall f2 3) 5)))))
;;; Date 2024-12-19
;;; Description
;;;
;;; Make sure that FLET and LABELS do not create a closure when the lexenv
;;; contains only objects that are not referenced. Similar to cmp.0066.
;;;
(test cmp.0102.bytecodes-flat-closure
(let ((fun (let ((b 3)) (flet ((a () 1)) #'a))))
(is (null (nth-value 1 (function-lambda-expression fun)))))
(let ((fun (let ((b 3)) (labels ((a () 1)) #'a))))
(is (null (nth-value 1 (function-lambda-expression fun))))))