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

Factor the code for creating stack frames from varargs. Removed some arguments from ecl_apply_from_stack_frame and _ecl_standard_dispatch.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-17 23:40:27 +01:00
parent f927dbd2f8
commit 44d23d1cdf
8 changed files with 90 additions and 84 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpstack.lsp
View file

@ -77,7 +77,7 @@
(defun c1apply-from-stack-frame (args)
(c1expr `(c-inline ,args (t t) (values &rest t)
"cl_env_copy->values[0]=ecl_apply_from_stack_frame(cl_env_copy,#0,#1);"
"cl_env_copy->values[0]=ecl_apply_from_stack_frame(#0,#1);"
:one-liner nil :side-effects t)))
(put-sysprop 'with-stack 'C1 #'c1with-stack)