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 an important corner case

Browse source 
In case that someone wants to store the definition when compiling the file, we
need to make sure that the compiler does not error if it has unreadable objects.
This commit is contained in:
Daniel Kochmański 2025-03-19 09:44:01 +01:00
parent f56b2b9192
commit c9c5323578
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2528,3 +2528,12 @@
(is (equal (funcall (funcall f0)) '((1 2 3) . 42)))
(is (equal (funcall (funcall f1)) '((1 2 3) . 42)))
(is (equal (funcall (funcall f2)) '((1 2 3) . 42)))))
;;; When we compile a file it is sometimes not possible to store all definitions
;;; readably. Make sure that the compiler does not error in such cases.
(deftest cmp.0107.unreadable-definition ()
(finishes
(with-compiler ("unreadable-definition.lsp")
'(macrolet ((def-it (name)
`(defun test () ,(find-package name))))
(def-it "COMMON-LISP")))))