anchor.diff:  
         (#\- (open-possible-modeline-handler parser))
   
  -      ((or (text-char-p token) (eql token #\\))
  +      #+(or)(#\[ (open-possible-link-definition parser))
  +
  +      ((or (text-char-p token) (eql (content token) #\\))
          (open-paragraph parser "p")
          (process-token parser token))
   
  
positive.code:   (let ((section (open-element parser tag)))
      (with-bindings (parser token)
        ("#-"
         (setf (tag section) (case token (#\# :ol) (#\- :ul)))
         (open-list parser token indentation)
         (process-token parser token))
        ((and (indentation-p token) (< (spaces token) indentation))
  
negative.code:     (cdr (assoc token bindings :test #'key-match))))
  
  (defun key-match (token key)
    ;(break "Looking for ~s with ~s" token key)
    (etypecase key
      ((eql t) t)
      (character (eql (content token) key))
      (function (funcall key token))
      (string (find (content token) key))
      (symbol (eql (content token) key))))
  
  (defun open-element (parser tag)
    (with-slots (elements) parser
  