mirrors/EQL5
1
Fork 0
mirror of https://gitlab.com/eql/EQL5.git synced 2025-12-07 02:50:59 -08:00
Code Issues Projects Releases Packages Wiki Activity

small revisions

Browse source
This commit is contained in:
polos 2017-02-02 10:49:51 +01:00
parent 1a41ed320b
commit 307b0cb8d2
6 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
examples/M-modules/quick/qml-lisp/qml-lisp.lisp
View file

@ -68,7 +68,7 @@
(defun qml-apply (caller function arguments)
"Every 'Lisp.call()' or 'Lisp.apply()' function call in QML will call this function. The variable *CALLER* will be bound to the calling QQuickItem, if passed with 'this' as first argument to 'Lisp.call()' / 'Lisp.apply()'."
(let* ((*caller* (if (qnull caller) nil (qt-object-? caller)))
(let* ((*caller* (if (qnull caller) *caller* (qt-object-? caller)))
(object (apply (string-to-symbol function)
arguments)))
(if (stringp object)