anchor.diff:              (format stream "~a rdfs:label ~a .~%" (make-dep deprel) (make-literal deprel))
               (format stream "conll:~a ~a conll:~a .~%" tid (make-dep deprel) head)
               (format stream "conll:~a ~a conll:~a .~%" tid (make-dep deprel) head))))))
  +
   
   (defun convert-rdf (corpusname stream conlls text-fn id-fn)
     "Converts the collection of sentences (as generated by READ-CONLLU)
  
positive.code:         ;; (format stream "~a" (make-features (slot-value tk 'feats)))
          (format stream "conll:~a conll:features [ ~a ] .~%" tid feats))
  
        (unless (unspecified-field? misc) 
          ;; (format stream "~a" (make-features (slot-value tk 'misc)))
          ;; (format stream "conll:~a conll:misc [ ~a ] .~%" tid misc)
  	(format stream "conll:~a conll:misc ~a .~%" tid (make-literal misc)))
  
        (if (string-equal "root" deprel)
            (format stream "conll:~a conll:root conll:~a .~%" id tid)
  
negative.code:           (head (make-token-id id (slot-value tk 'head)))
            (deprel (slot-value tk 'deprel))
            (deps (slot-value tk 'deps))
            (misc (make-features-bnode (slot-value tk 'misc) t)))
        (format stream "conll:~a a conll:Token .~%" tid)
        (format stream "conll:~a conll:sentence conll:~a .~%" tid id)
  
  