I've found an expression like this
Code: Select all
`(and ,.(first (nreverse ris)))
Code: Select all
`(and ,@(first (nreverse ris)))
Thanks
filfil
Code: Select all
`(and ,.(first (nreverse ris)))
Code: Select all
`(and ,@(first (nreverse ris)))
Code: Select all
* (defvar *a* (list 'a 'b 'c))
*A*
* `(1 2 3 ,@*a* 4 5 6)
(1 2 3 A B C 4 5 6)
* *a*
(A B C)
* `(1 2 3 ,.*a* 4 5 6)
(1 2 3 A B C 4 5 6)
* *a*
(A B C 4 5 6)
*