Page 1 of 1

Source funtion could not get the corresponding result

PostPosted: Mon May 21, 2018 6:47 am
by iNPRwANG
Source funtion could not get the corresponding result while nest list element type of arrays, code like this:

Code: Select all
> (array 1)
(nil)
> (setq *a* (array 1))
(nil)
> (setf (nth 0 *a*) '(1 2 3))
(1 2 3)
> (source '*a*)
"(set '*a* (array 1 (flat '(\r\n  (1 2 3)))))\r\n\r\n"
>


The *a* symbol's value is: ((1 2 3)), bt the result: (set '*a* (array 1 (flat '((1 2 3))))) regard the *a* to (1), is this a bug?