mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

Merge in the latest changes from master branch

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-03-23 21:51:32 +01:00
commit b62f153ed3
16 changed files with 141 additions and 106 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/cmp/cmpcbk.lsp
View file

@ -98,6 +98,7 @@
(wt-nl1 "{")
(when return-p
(wt-nl return-type-name " output;"))
(wt-nl "const cl_env_ptr cl_env_copy = ecl_process_env();")
(wt-nl "cl_object aux;")
(wt-nl "ECL_BUILD_STACK_FRAME(cl_env_copy, frame, helper)")
(loop for n from 0

10
src/cmp/cmptop.lsp
View file

@ -222,7 +222,11 @@
(wt-nl1 "static cl_object " c-name "(cl_narg narg, ...)"
"{TRAMPOLINK(narg," lisp-name ",&" var-name ",Cblock);}")))
(output-cfuns *compiler-output1*)
(wt-nl-h "#ifdef __cplusplus")
(wt-nl-h "}")
(wt-nl-h "#endif")
(output-cfuns *compiler-output2*)
(setq *compiler-phase* 't3)
@ -232,10 +236,6 @@
(dolist (x *callbacks*)
(apply #'t3-defcallback x)))
(wt-nl-h "#ifdef __cplusplus")
(wt-nl-h "}")
(wt-nl-h "#endif")
(wt-nl top-output-string))
(defun c1eval-when (args)