anchor.diff:  
   |#
   
  +(defvar *last-document* nil)
   
   (defun shell-tidy (source)
     (bind (((values result error status)
  
positive.code: 
  this ends the list and starts a paragraph."))
  
  ;;;;;
  
  (deftestsuite test-break (test-snippets)
  
negative.code:   (:function 
     (check-output 
      (source)
      (ensure-same 
       (bind (((values doc text)
  	     (markdown source :stream nil :format :html)))
         (setf *last-document* doc)
         (shell-tidy text))
       (shell-tidy (shell-markdown source)) 
       :test 'samep))))
  
  ;; test example from hhalvors@Princeton.EDU
  (addtest (test-snippets)
  