From 490c878deed725508e60dbd0548116255e7ea48b Mon Sep 17 00:00:00 2001
From: polos <pls.153@protonmail.com>
Date: Tue, 4 May 2021 16:03:41 +0200
Subject: [PATCH] add MetaArg 'cl_object' to enable passing complex Lisp data
 to C++

---
 src/ecl_fun.cpp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ecl_fun.cpp b/src/ecl_fun.cpp
index 59c8e47..41b7e37 100644
--- a/src/ecl_fun.cpp
+++ b/src/ecl_fun.cpp
@@ -1267,6 +1267,10 @@ static MetaArg toMetaArg(const QByteArray& sType, cl_object l_arg) {
                 _cstring_buffer_ << ba;
                 const char** s = new const char*(ba.constData());
                 p = s; }}
+        else if("cl_object" == sType) {
+            quintptr l = (quintptr)l_arg;
+            void** v = new void*((void*)l);
+            p = v; }
         else if(T_QFileInfo == n)                        p = new QFileInfo(toQFileInfo(l_arg));
         else if(T_QFileInfoList == n)                    p = new QFileInfoList(toQFileInfoList(l_arg));
         else if(T_QGradient == n)                        p = new QGradient(toQGradient(l_arg));