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