+(defmethod uri-parsed-host ((uri uri))
+ (when (uri-host uri)
+ (when (null (.uri-parsed-host uri))
+ (setf (.uri-parsed-host uri)
+ (to-unicode (uri-host uri))))
+ (.uri-parsed-host uri)))
+
+(defmethod (setf uri-parsed-host) (host (uri uri))
+ (setf (uri-host uri) (to-ascii host))
+ (setf (.uri-parsed-host uri) (to-unicode host)))
+