sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

revision

Browse source
This commit is contained in:
polos 2021-05-10 10:01:16 +02:00
parent 2156ea501f
commit 73844d81ab
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Qt_EQL/tutorial/test.cpp
View file

@ -18,9 +18,10 @@ void Test::processData(cl_object data) {
// meant for passing complex Lisp data to be processed in C++
if(cl_listp(data) == ECL_T) {
for(cl_object l_dolist = data; cl_car(l_dolist) != ECL_NIL; l_dolist = cl_cdr(l_dolist)) {
cl_object l_el = cl_car(l_dolist);
cl_print(1, l_el);
cl_object l_dolist = data;
while(l_dolist != ECL_NIL) {
cl_print(1, cl_car(l_dolist));
l_dolist = cl_cdr(l_dolist);
}
cl_terpri(0);
}