(defun inspect-anchor (from datum &optional (string (write-to-string datum :circle t :pretty nil))) (<ucw:a :action (call-inspector from datum) (<:as-html string)))