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

Finished the new dispatch code.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-14 00:01:57 +01:00
parent f096fdac51
commit 9f42309fbd
24 changed files with 298 additions and 573 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(#0,#1);"
"cl_env_copy->values[0]=ecl_apply_from_stack_frame(cl_env_copy,#0,#1);"
:one-liner nil :side-effects t)))
(put-sysprop 'with-stack 'C1 #'c1with-stack)