anchor.diff:    (format nil "~at~a" sentence-id token-id))
   
   (defun make-upos (upos)
  -  (format nil "conll:~a"
  -          (cdr (assoc upos
  -                      (pairlis
  -                       '("ADJ" "ADP" "ADV" "AUX" "CONJ" "DET" "INTJ" "NOUN" "NUM" "PART" "PRON" "PROPN" "PUNCT" "SCONJ" "SYM" "VERB" "X")
  -                       '("Adj" "Adp" "Adv" "Aux" "Conj" "Det" "Intj" "Noun" "Num" "Part" "Pron" "PropN" "Punct" "SConj" "Sym" "Verb" "X"))
  -                      :test #'string-equal))))
  +  (format nil "conll:~a" (string-capitalize upos)))
   
   (defun make-dep (dep)
     (format nil "conll:~a" dep))
   
  +(defun make-metadata (metadata)
  +  (format nil "~{ ~a ~}"
  +          (mapcar (lambda (m)
  +                    (format nil "[ conll:metadata-key ~a ; conll:metadata-value ~a ]" (make-literal (car m)) (make-literal (cdr m)))) metadata)))
  +
   (defun make-features (features)
  -  (unless (string-equal features "_")
  +  (unless (unspecified-field features)
       (format nil "~{ ~a~^;~}" 
  -            (mapcar (lambda (f) (destructuring-bind (name value) (split-sequence #\= f)
  -                                  (format nil "conll:~a conll:~a" (string-downcase name) value))) 
  +            (mapcar (lambda (f)
  +                      (destructuring-bind (name value) (split-sequence #\= f)
  +                        (format nil "conll:~a conll:~a" (string-downcase name) value))) 
                       (split-sequence #\| features :remove-empty-subseqs t)))))
   
   (defun convert-sentence-to-turtle (stream conll text id)
  
positive.code:       (format stream "conll:~a conll:form ~a .~%" tid (make-literal form))
        (format stream "conll:~a conll:lemma ~a .~%" tid (make-literal lemma))
        (format stream "conll:~a conll:upos ~a .~%" tid (make-upos upostag))
        (format stream "conll:~a conll:xpos ~a .~%" tid (make-literal xpostag))
        (when feats
         (format stream "conll:~a conll:features [ ~a ] .~%" tid feats))
        (if (string-equal "root" deprel)
  
negative.code:                      (#\Tab . "\\t"))
                :test #'char=)))
  
  (defun unspecified-field (c)
    (string-equal c "_"))
  
  (defun make-literal (string)
    (format nil "\"~a\"" (escape-string string #'escape-turtle-char)))
  
  