anchor.diff:              (split-sequence #\| features :remove-empty-subseqs t))
         s)))
   
  +
   (defun make-features-bnode (features &optional (value-as-literal nil))
  -  (unless (unspecified-field? features)
  -    (format nil "~{ ~a~^;~}" 
  -            (mapcar (lambda (f)
  -                      (destructuring-bind (name value)
  -			  (split-sequence #\= f :count 2)
  -                        (if value-as-literal
  -                            (format nil "~a ~a" (make-featurename name) (make-literal value))
  -                            (format nil "~a conll:~a" (make-featurename name) value)))) 
  -                    (split-sequence #\| features :remove-empty-subseqs t)))))
  +  (labels ((fmt (name value value-as-literal)
  +	     (if value-as-literal
  +		 (format nil "~a ~a" (make-featurename name) (make-literal value))
  +		 (format nil "~a conll:~a" (make-featurename name) value))))
  +    (unless (unspecified-field? features)
  +	       (format nil "~{ ~a~^;~}" 
  +		       (mapcar (lambda (f)
  +				 (let ((alist (split-sequence #\= f :count 2)))
  +				   (if (> (length alist) 1)
  +				       (fmt (car alist) (cadr alist) value-as-literal)
  +				       (fmt "other" (car alist) value-as-literal)))) 
  +			       (split-sequence #\| features :remove-empty-subseqs t))))))
  +
   
   (defun convert-sentence-to-turtle (stream conll text id)
     (format stream "conll:root a conll:DepRel .~%")
  
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:             (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)
  