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

revision: remove redundant #-interpreter, use #-ecl-bytecmp instead

Browse source
This commit is contained in:
pls.153 2025-05-08 11:42:44 +02:00
parent d1c19ec74c
commit 878007b8f2
24 changed files with 16 additions and 28 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cpp/ecl_ext.cpp
View file

@ -484,7 +484,7 @@ cl_object qnull(cl_object l_arg) {
/// args: (qt-object)
/// Only useful if used with UNLESS, in order to check for a valid pointer.
/// Returns T if the argument is not of type QT-OBJECT.
/// (unless (qnull ui:*item*)
/// (unless (qnull (find-quick-item ui:*label*))
/// ...)
QObject* qobject = toQObjectPointer(l_arg);
ecl_return1(ecl_process_env(), (qobject == nullptr) ? ECL_T : ECL_NIL);