Source funtion could not get the corresponding result

[iNPRwANG]

Source funtion could not get the corresponding result while nest list element type of arrays, code like this:

Code Select Expand


> (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 '(rn  (1 2 3)))))rnrn"
>


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?