fix bug in marshal (symbolp)

This commit is contained in:
pls.153 2023-10-15 11:26:01 +02:00
parent 36c8fc79f4
commit e5eb3dd731
2 changed files with 4 additions and 4 deletions

View file

@ -164,8 +164,6 @@ 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
@ -178,6 +176,8 @@ QVariant toQVariant(cl_object l_arg, int type) {
: toQVariantList(l_arg);
} else if (cl_vectorp(l_arg) == ECL_T) { // vector (of octets)
var = QVariant(toQByteArray(l_arg));
} else if (cl_symbolp(l_arg) == ECL_T) { // symbol
var = QVariant(toQString(cl_string_downcase(1, cl_symbol_name(l_arg))));
} else {
QObject* o = toQObjectPointer(l_arg);
if (o != nullptr) {