type-error
(type-error-datum condition)
simple-type-error
(type-error-expected-type condition)
flexi-streams:flexi-stream-element-type-error
(flexi-streams:flexi-stream-element-type-error-element-type condition)
(type-of object)
(defun expr-type-only (expr) (cond ((self-evaluating? expr) (type-of expr)) ((the-expression? expr) (second expr)) (t nil)))