.
<#~a> a foaf:Person ;
rdfs:comment \"It works. Now you should use another service to serve that resource.\" .
"
(uri-fragment subject))))
(else
(values
(build-response #:code 404
#:reason-phrase (W_ "reason-phrase|Not Found")
#:headers '((content-type application/xhtml+xml)))
(with-output-to-string
(lambda ()
(sxml->xml
`(*TOP* (*PI* xml "version=\"1.0\" encoding=\"utf-8\"")
(html (@ (xmlns "http://www.w3.org/1999/xhtml")
(xml:lang ,(W_ "xml-lang|en")))
(body
,(sxml-match
(xml->sxml
(W_ (format #f "Resource not found
")))
((*TOP* ,title) title))
,(sxml-match
(xml->sxml
(W_ (format #f "This OpenID Connect identity provider does not know the resource you are requesting.
")))
((*TOP* ,p) p))))))))))))))))))