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