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

src/cmp/cmpmain.lsp: in C:BUILDER, when using SI:SAFE-EVAL to execute the prologue and epilogue codes, allow by default to start up the debugger.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-14 10:49:54 +01:00
parent f932239809
commit 3447e860eb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpmain.lsp
View file

@ -409,7 +409,7 @@ filesystem or in the database of ASDF modules."
(princ ";
cl_object output;
si_select_package(make_simple_base_string(\"CL-USER\"));
output = si_safe_eval(3, ecl_read_from_cstring(lisp_code), Cnil, OBJNULL);
output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
}" stream)
)))))
(cond ((null prologue-code)
@ -425,7 +425,7 @@ output = si_safe_eval(3, ecl_read_from_cstring(lisp_code), Cnil, OBJNULL);
(princ ";
cl_object output;
si_select_package(make_simple_base_string(\"CL-USER\"));
output = si_safe_eval(3, ecl_read_from_cstring(lisp_code), Cnil, OBJNULL);
output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
}" stream)
)))))
;;