Source funtion could not get the corresponding result

Q&A's, tips, howto's

Source funtion could not get the corresponding result

Postby iNPRwANG » Mon May 21, 2018 6:47 am

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?
iNPRwANG
 
Posts: 32
Joined: Sun May 08, 2011 1:45 pm

Return to newLISP in the real world

Who is online

Users browsing this forum: No registered users and 0 guests

cron