Method: (print-object urlmap t)

Source

(defmethod print-object ((urlmap urlmap) s)
  (print-unreadable-object (urlmap s :type t :identity t)
    (princ (urlmap-name urlmap) s)))