anchor.diff:    (format stream "conll:~a rdfs:label ~a .~%" id (make-literal text))
     (format stream "conll:~a conll:tokens (~{~a~^ ~}) .~%" id 
      (mapcar (lambda (tk) (format nil "conll:~a" (make-token-id id (slot-value tk 'id)))) (sentence-tokens conll)))
  -
  +  (format stream "conll:~a conll:metadata ( ~a ) .~%" id (make-metadata (sentence-meta conll)))
     (dolist (tk (sentence-tokens conll))
       (let ((tid (make-token-id id (slot-value tk 'id)))
             (form (slot-value tk 'form))
  
positive.code:                      (#\Tab . "\\t"))
                :test #'char=)))
  
  (defun make-literal (string)
    (format nil "\"~a\"" (escape-string string #'escape-turtle-char)))
  
  
negative.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))
  
        ;; we append -raw to these as we don't have a good way of
        ;; converting them to "proper" RDF
        (unless (unspecified-field xpostag)
         (format stream "conll:~a conll:xpos-raw ~a .~%" tid (make-literal xpostag)))
        (unless (unspecified-field deps)
         (format stream "conll:~a conll:deps-raw ~a .~%" tid (make-literal deps)))
        (unless (unspecified-field misc)
         (format stream "conll:~a conll:misc-raw ~a .~%" tid (make-literal misc)))
  
        (when feats
         (format stream "conll:~a conll:features [ ~a ] .~%" tid feats))
        (if (string-equal "root" deprel)
  