From 3447e860eb7030612679efe48d814fc03d4889f0 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 14 Nov 2009 10:49:54 +0100 Subject: [PATCH] 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. --- src/cmp/cmpmain.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index e3d80818f..c7b6f3ad2 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -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) ))))) ;;