Incorrect WRITE circularity on specialized arrays

[James Kalenius]

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

[Stas Boukarev (stassats)]

In 7001a72fa4718760012b4ecc403b51bcabeb603f.