(length (prin1-to-string foo)) ;looking for a better way

[engber@aristotle.ils.nwu.edu (Mike Engber)]

Is there a more efficient way to find the prin1 length of an object?
Actually prin1'ing it first seems so wasteful.

Also, is there a good way to determine if you can prin1 a LISP object
and read it back (without printing it first) i.e.
 (prin1-p some-hash-table) -> nil
 (prin1-p most-things) -> t

-ME