Can you transform this block, (progn...) code to lambda?
If you lose time with big-source/s-EdCL for re-format, then you can make a demo.lsp with the adcl, not the edcl.
(progn (setq adcl "")
(setq adcl (strcat adcl "1"))
(setq adcl (strcat adcl "2"))
(setq adcl (strcat adcl "3"))
......
(setq adcl (strcat adcl "9"))
(strlen adcl)
)
Thanks....
(progn (sEtq edcl "" )
(setq edcl (strCat edcl
"image_sliderH : slider { min_value = -1; max_value = 100; layout = horizontal ; height = 0; width = 100;}\npp_raceaf : dialog \n { label = \"CursorColor for model-space\";\n : boxed_column { \n : text { key = \"q\";label = \"Sizeof CrossHair\";alignment=center;}\n : image_sliderH {key = \"x1\";}\n }\n : boxed_row { \n : button { key=\"rosu\"; label=\"Red=Rosu\";}\n : button { key=\"galb\"; label=\"Yellow=Galben\";}\n : button { key=\"cyan\"; label=\"Cyan\";}\n : button { key=\"blue\"; label=\"Blue=albastru\";}\n"));;T915@:02820
(setq edcl (strCat edcl " : button { key=\"mage\"; label=\"Magenta\";}\n : button { key=\"ros2\"; label=\"Rosu2\";}\n : button { key=\"albc\"; label=\"White=Albul\";}\n : button { key=\"papi\"; label=\"Paper218\";}\n }\n : popup_list {\n label = \"pDestinationView\";\n mnemonic = \"D\";\n edit_width = 30;\n key = \"pDestination\";\n list = \"0.Default\\n1.addToModelSpace\\n2.addToLayoutDict\\n3.addToWorkSet\";\n }\n : text { key = \"1\"; label = \"You change Color for CursorHair\";alignment=left;}\n : text { key = \"2\"; label = \".......... "));;T915@:02821
(setq edcl (strCat edcl "activati 'SNAP' de jos\";alignment=left;}\n ok_cancel;\n}\n "))
(strlen edcl)
)