mirrors/lqml
1
Fork 0
mirror of https://gitlab.com/eql/lqml.git synced 2026-01-10 19:21:21 -08:00
Code Issues Projects Releases Packages Wiki Activity

make 'mobile-p' return a keyword; revisions

Browse source
This commit is contained in:
pls.153 2023-10-15 09:02:58 +02:00
parent da60ab55ed
commit 36c8fc79f4
5 changed files with 23 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cpp/marshal.cpp
View file

@ -164,6 +164,8 @@ QVariant toQVariant(cl_object l_arg, int type) {
var = QVariant(toFloat<double>(l_arg));
} else if (cl_stringp(l_arg) == ECL_T) { // string
var = QVariant(toQString(l_arg));
} else if (cl_symbolp(l_arg) == ECL_T) { // symbol
var = QVariant(toQString(cl_string_downcase(1, cl_symbol_name(l_arg))));
} else if (cl_characterp(l_arg) == ECL_T) { // char
var = QChar(toInt(cl_char_code(l_arg)));
} else if (l_arg == ECL_T) { // true