¿Cómo imprimir mostrando la estructura compartida?

Como ejemplo, las dos expresiones evaluadas a continuación tienen la misma representación “impresa”, es decir, ((A) (A)) , pero tienen una estructura interna muy diferente. Aquí la estructura es “compartida”:

* (let ((item '(a))) (list item item))
((A) (A))

Aquí cada (a) es una entidad distinta:

* '((a) (a))
((A) (A))

Específicamente, el valor de la primera expresión es una lista de dos elementos donde los dos elementos son idénticos; el valor de la segunda expresión también es una lista de dos elementos, pero sus dos elementos son distintos (es decir, no idénticos).

¿Cómo puedo representar estos dos valores de manera que haga más aparente esta diferencia en sus estructuras internas?