anchor.diff:  
   (defun install-document-bindings (parser)
     (let ((frame-marker (open-frame parser)))
  -    (push-binding parser :eof (lambda (parser token) 
  +    (push-binding parser :eof (lambda (token) 
                                   (declare (ignore token))
                                   (pop-bindings parser frame-marker)))
  -    (push-binding parser :blank #'ignore-token)
  +    (push-binding parser :blank (lambda (token) (ignore-token token)))
       (push-binding parser 
                     (lambda (token)
                       (and (indentation-p token) (= (spaces token) 2)))
  -                  (lambda (parser token)
  +                  (lambda (token)
                       (open-subdocument parser (spaces token) "blockquote")))
   
       (push-binding parser 
                     (lambda (token)
                       (and (indentation-p token) (= (spaces token) 4)))
  -                  (lambda (parser token)
  +                  (lambda (token)
                       (open-verbatim parser (spaces token) "pre")))
   
       (push-binding parser #'characterp 
  -                  (lambda (parser token)
  +                  (lambda (token)
                       (open-paragraph parser "p")
                       (process-token parser token)))
  -    (push-binding parser #\* (make-header-handler))))
  +    (push-binding parser #\* (make-header-handler parser))))
   
   (defun open-paragraph (parser tag)
     (let ((frame-marker (open-frame parser))
           (paragraph (open-element parser tag)))
       (push-binding parser :blank 
  -                  (lambda (parser token)
  +                  (lambda (token)
                       (declare (ignore token))
                       (pop-bindings parser frame-marker)
                       (close-element parser paragraph)))
  -    (push-binding parser #'characterp #'add-text)
  -    (push-binding parser #\Newline (lambda (parser token)
  +    (push-binding parser #'characterp (lambda (token) (add-text parser token)))
  +    (push-binding parser #\Newline (lambda (token)
                                        (declare (ignore token))
                                        (add-text parser #\Space)))
  -    (push-binding parser #\\ #'slash-handler)))
  +    (push-binding parser #\\ (make-slash-handler parser))))
   
   (defun open-block (parser tag)
     (let ((frame-marker (open-frame parser))
           (element (open-element parser tag)))
       (push-binding parser #\}
  -                  (lambda (parser token)
  +                  (lambda (token)
                       (declare (ignore token))
                       (pop-bindings parser frame-marker)
                       (close-element parser element)))))
  
positive.code:      (make-blank-translator
        (make-indentation-translator end))))))
  
  (defun show-string (string)
    (let ((output ()))
      (let ((translator (make-basic-translator-chain (lambda (char) (push char output)))))
        (loop for c across string do (funcall translator c))
        (funcall translator :eof)
        (nreverse output))))
  
  
  ;;
  ;; Unit tests
  ;;
  
negative.code: 
  (defun indentation-p (x) (typep x 'indentation))
  
  (defmethod print-object ((object element) stream)
    (print-unreadable-object (object stream)
      (format stream "tag: ~a" (tag object))))
  