diff --git a/src/cpp/qml_ext.cpp b/src/cpp/qml_ext.cpp index 5d931d2..42fb3a6 100644 --- a/src/cpp/qml_ext.cpp +++ b/src/cpp/qml_ext.cpp @@ -102,8 +102,7 @@ QVariant Lisp::apply(const QJSValue& caller_or_function, caller = caller_or_function.toQObject(); function = function_or_arguments.toString(); arguments = arguments_or_undefined.toVariant().value(); - } - else if (caller_or_function.isString()) { + } else if (caller_or_function.isString()) { function = caller_or_function.toString(); arguments = function_or_arguments.toVariant().value(); } diff --git a/src/lisp/qml.lisp b/src/lisp/qml.lisp index a7cc1fb..bcbe43c 100644 --- a/src/lisp/qml.lisp +++ b/src/lisp/qml.lisp @@ -49,7 +49,7 @@ *caller* (qt-object caller)))) (if (fboundp fun) - (apply fun (loop :with len = (length arguments) + (apply fun (loop :with len := (length arguments) :for arg :in arguments :for n :from 1 :to len :collect (if (and (stringp arg)