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

Avoid further uses of make_simple_base_string.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-11-06 10:02:55 +01:00
parent 9e1d0a97b5
commit ea0fdff007
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/alloc.d
View file

@ -454,7 +454,7 @@ CALL_GC:
goto ONCE_MORE;
}
GC_disable();
{ cl_object s = make_simple_base_string(tm_table[(int)t].tm_name+1);
{ cl_object s = ecl_make_simple_base_string(tm_table[(int)t].tm_name+1, -1);
GC_enable();
CEerror(Ct, "The storage for ~A is exhausted.~%\
Currently, ~D pages are allocated.~%\

4
src/cmp/cmpmain.lsp
View file

@ -417,7 +417,7 @@ filesystem or in the database of ASDF modules."
(wt-filtered-data (write-to-string epilogue-code) stream)
(princ ";
cl_object output;
si_select_package(make_simple_base_string(\"CL-USER\"));
si_select_package(ecl_make_simple_base_string(\"CL-USER\", 7));
output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
}" stream)
)))))
@ -433,7 +433,7 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
(wt-filtered-data (write-to-string prologue-code) stream)
(princ ";
cl_object output;
si_select_package(make_simple_base_string(\"CL-USER\"));
si_select_package(ecl_make_simple_base_string(\"CL-USER\", 7));
output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), Cnil);
}" stream)
)))))

2
src/new-cmp/cmpmain.lsp
View file

@ -309,7 +309,7 @@ filesystem or in the database of ASDF modules."
(wt-filtered-data (write-to-string epilogue-code) stream)
(princ ";
cl_object output;
si_select_package(make_simple_base_string(\"CL-USER\"));
si_select_package(ecl_make_simple_base_string(\"CL-USER\",7));
output = cl_safe_eval(c_string_to_object(lisp_code), Cnil, OBJNULL);
" stream)
(when (eq target :program)