2017-06-21 20:46:43 |
James Kalenius |
description |
With :readably t and :circle t, the printer does badly on arrays with the new? specialized array format.
E.g.
(let ((x (make-array 1 :element-type 'base-char :initial-contents "x"))
(y (make-array 1 :element-type 'base-char :initial-contents "y")))
(write (list x y) :readably t :circle t))
(#A#1=((1) BASE-CHAR . "x" #A#1#)
Similar with (unsigned-byte 2), but not t, character, or bit, which use usual read syntax.
This is on latest, i.e. 1.3.18.98-a2cc6043f |
With :readably t and :circle t, the printer does badly on arrays with the new? specialized array format.
E.g.
(let ((x (make-array 1 :element-type 'base-char :initial-contents "x"))
(y (make-array 1 :element-type 'base-char :initial-contents "y")))
(write (list x y) :readably t :circle t))
(#A#1=((1) BASE-CHAR . "x") #A#1#)
Similar with (unsigned-byte 2), but not t, character, or bit, which use usual read syntax.
This is on latest, i.e. 1.3.18.98-a2cc6043f |
|