diff --git a/packages.lisp b/packages.lisp index 0074246..eef941d 100644 --- a/packages.lisp +++ b/packages.lisp @@ -71,7 +71,10 @@ #:sentence-equal #:apply-rules - #:apply-rules-from-files)) + #:apply-rules-from-files + + #:convert-rdf + #:convert-rdf-file)) (defpackage #:conllu-prolog diff --git a/rdf.lisp b/rdf.lisp index 8e76395..7d9cc20 100644 --- a/rdf.lisp +++ b/rdf.lisp @@ -59,7 +59,7 @@ (with-output-to-string (s) (mapcar (lambda (m) (format s "conll:m~a a conll:MetadataKey .~%" (string-downcase (car m))) - (format s "conll:m~a rdfs:label ~a .~%" (string-downcase (car m)) + (format s "conll:m~a rdfs:label ~a .~%" (cl-ppcre:regex-replace-all " " (string-downcase (car m)) "_") (make-literal (car m)))) metadata) s))