anchor.diff:  
   (defun append-text (string text)
     (typecase text
  +    (token (append-text string (content text)))
       (character (vector-push-extend text string))
       (string (loop for c across text do (vector-push-extend c string)))
       (t (format t "~&Appending non text text: ~a" text))))
  
positive.code: 
        (#\- (open-possible-modeline-handler parser))
  
        ((or (text-char-p token) (eql token #\\))
         (open-paragraph parser "p")
         (process-token parser token))
  
  
negative.code:   (let ((section (open-element parser tag)))
      (with-bindings (parser token)
        ("#-"
         (setf (tag section) (case (content token) (#\# :ol) (#\- :ul)))
         (open-list parser token indentation)
         (process-token parser token))
        ((and (indentation-p token) (< (spaces token) indentation))
  