Source funtion could not get the corresponding result

Q&A's, tips, howto's
Locked
iNPRwANG
Posts: 32
Joined: Sun May 08, 2011 1:45 pm

Source funtion could not get the corresponding result

Post 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?

Locked