mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2026-03-14 02:31:51 -07:00
Code Issues Projects Releases Packages Wiki Activity

revision of 'qlog' (for EQL5-Android); tiny revision;

Browse source
This commit is contained in:
polos 2018-01-27 17:17:28 +01:00
parent 7b8aba492d
commit 0f0cbedb86
4 changed files with 19 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ecl_fun.cpp
View file

@ -136,7 +136,7 @@ void iniCLFunctions() {
DEFUN ("%qload-c++", qload_cpp, 2)
DEFUN ("qload-ui", qload_ui, 1)
DEFUN ("qlocal8bit", qlocal8bit, 1)
DEFUN ("qlog", qlog, 1)
DEFUN ("%qlog", qlog2, 1)
DEFUN ("%qnew-instance", qnew_instance2, 2)
DEFUN ("%qobject-names", qobject_names2, 1)
DEFUN ("qok", qok, 0)
@ -2979,8 +2979,8 @@ cl_object qrun_in_gui_thread2(cl_object l_function_or_closure, cl_object l_block
error_msg("QRUN-IN-GUI-THREAD", LIST1(l_function_or_closure));
return Cnil; }
cl_object qlog(cl_object l_msg) {
// for android logging only; see 'eql.cpp::logMessageHandler()'
cl_object qlog2(cl_object l_msg) {
// for android logging only; see 'lisp/ini.lisp::qlog' and 'eql.cpp::logMessageHandler'
ecl_process_env()->nvalues = 1;
qDebug() << toQString(l_msg);
return Cnil; }