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

tests: compiler: add regression test for constant folding.

Browse source
This commit is contained in:
Daniel Kochmański 2019-04-26 11:07:50 +02:00
parent 0033f24be2
commit 0fcf21b4a7
1 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1525,3 +1525,18 @@
#+complex-float
(is (and (not (subtypep '(complex bit) '(complex double-float)))
(not (subtypep '(complex double-float) '(complex bit) )))))
;;; Date 2019-04-26
;;; URL: https://gitlab.com/embeddable-common-lisp/ecl/issues/497
;;; Fixed: 60978163
;;; Description
;;;
;;; Constant folding first dropped the multiple values, then
;;; refused to compile properly for not self-evaluating ones. This
;;; test checks if both cases are compiled correctly.
(test cmp.0072.cmp-constant-fold
(let (f1 f2)
(finishes (setq f1 (compile nil '(lambda () (byte 0 0)))))
(finishes (setq f2 (compile nil '(lambda () (truncate 2 1)))))
(is (equal '(0 . 0) (funcall f1)))
(is (equal '(2 0) (multiple-value-list (funcall f2))))))