sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tests: add regression test for 550

Browse source
This commit is contained in:
Daniel Kochmański 2020-01-12 11:18:23 +01:00
parent 2cf975416a
commit e399d33fc6
1 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1582,3 +1582,26 @@
(finishes (run-1))
(finishes (run-2))
(finishes (run-3)))
;;; Date 2020-01-12
;;; URL: https://gitlab.com/embeddable-common-lisp/ecl/issues/550
;;; Description
;;;
;;; When we invoke an unopitmized long call (that is we apply from
;;; a stack frame), function argument is evaluated after the
;;; arguments what is wrong for operators where function is the
;;; first argument (and should be evaluated first).
(test cmp.0074.c-arguments-limit.evaluation-rule
(flet ((make-fn (n)
`(lambda ()
(let ((se-var '()))
(funcall (prog1 #'list (push :fun se-var))
,@(list* `(push :arg se-var)
(make-list (1- n))))
(nreverse se-var))))
(check-fn (form)
(is (equal '(:fun :arg) (funcall (compile nil form))))))
(check-fn (make-fn 10))
(check-fn (make-fn (1+ si::c-arguments-limit)))
(check-fn (make-fn (1- si::c-arguments-limit)))
(check-fn (make-fn si::c-arguments-limit))))