;; 2021-01-14

(defun printablep (object)
  (values (ignore-errors
           (let ((*print-readably* t)
                 (*standard-output* (make-broadcast-stream)))
             (print object)))))

;; for hash-tables:

(defun printablep (object)
  (let ((*print-readably* t)
        (*standard-output* (make-broadcast-stream)))
    (typecase object
      (hash-table nil)
      (t (values (ignore-errors (print object)))))))