lispdoc - results for etypecase

(defun tl-make-string-desc (obj)
  (etypecase obj
    (string obj)
    (sdoc-inherit (get-object-name obj))))

(defun platform-handle-debugger-condition
       (condition)
  (typecase condition
    (t
     (format *trace-output* "Caught error: ~A~%"
             condition))))