;; code for response http://lists.w3.org/Archives/Public/public-owl-dev/2009AprJun/0057.html

(defun fs2turtle (fs)
  (let ((*parsed-prefixes* nil))
    (princ (apply 't-turtle (parse-functional-syntax fs) *parsed-prefixes*))
    (values)))

(fs2turtle
 "Prefix (rdfs: =<http://www.w3.org/2000/01/rdf-schema#>)
Prefix(: = <http://purl.org/NET/aMicroformat/mf2rdf.owl#>)
Prefix(xsd: = <http://www.w3.org/2001/XMLSchema#>)
Ontology(
 Declaration(DataProperty(:method))
 AnnotationAssertion(rdfs:isDefinedBy :method <http://microformats.org/wiki/hrecipe#method>)
 AnnotationAssertion(rdfs:comment :method \"The method of the recipe.\")
 DataPropertyDomain(:method :recipe)
 DataPropertyRange(
  Annotation(rdfs:comment \"The field MAY include valid HTML markup e.g. paragraphs or a list for steps in the method.\")
  :method
  DataUnionOf(xsd:string <http://www.w3.org/TR/html/>)))
  ")

(fs2turtle
 "Prefix (rdfs: =<http://www.w3.org/2000/01/rdf-schema#>)
Prefix(: = <http://purl.org/NET/aMicroformat/mf2rdf.owl#>)
Prefix(xsd: = <http://www.w3.org/2001/XMLSchema#>)
Ontology(
 Declaration(DataProperty(:method))
 AnnotationAssertion(rdfs:isDefinedBy :method <http://microformats.org/wiki/hrecipe#method>)
 AnnotationAssertion(rdfs:comment :method \"The method of the recipe.\")
 AnnotationAssertion(rdfs:comment :method \"The field MAY include valid HTML markup e.g. paragraphs or a list for steps in the method.\")
 DataPropertyDomain(:method :recipe)
 DataPropertyRange(:method DataUnionOf(xsd:string <http://www.w3.org/TR/html/>)))")

(fs2turtle
 "Prefix (rdfs: =<http://www.w3.org/2000/01/rdf-schema#>)
Prefix(: = <http://purl.org/NET/aMicroformat/mf2rdf.owl#>)
Prefix(xsd: = <http://www.w3.org/2001/XMLSchema#>)
Prefix(owl: = <http://www.w3.org/2002/07/owl#>)
Ontology(
 Declaration(DataProperty(:method))
 AnnotationAssertion(rdfs:isDefinedBy :method <http://microformats.org/wiki/hrecipe#method>)
 AnnotationAssertion(rdfs:comment :method \"The method of the recipe.\")
 AnnotationAssertion(rdfs:comment :method \"The field MAY include valid HTML markup e.g. paragraphs or a list for steps in the method.\")
 DataPropertyDomain(:method :recipe)
 SubClassOf(owl:Thing DataAllValuesFrom(:method DataUnionOf(xsd:string <http://www.w3.org/TR/html/>))))"
 )