anchor.diff: +(require :asdf)
  +
   (require :stdiff)
   
  +(require :pphtml)
  +
   (defpackage :stdiff-use-sample
  -  (:use :cl :chiku.util :stdiff))
  +  (:use :cl :chiku.util :stdiff :pphtml))
   
   (in-package :stdiff-use-sample)
   
  
positive.code:       (diff base modified refmark lostmark allowed-distance)
        base refmark lostmark #'wrap-by-brace #'wrap-by-bracket)))
  
  ;(bracebracket *first-impl* *second-impl*)
  
  (require :pphtml)
  
  (use-package :pphtml)
  
  (defun show-stdiff-cl (base modified outhtml-pathspec &optional (allowed-distance 0))
    (output-as-html (format nil "<pre>~a</pre>"
                            (pair-coloring
  
negative.code:                                            #'pphtml::red
                                             (bracebracket base modified allowed-distance))))
                    outhtml-pathspec))
  
  (show-stdiff-cl '(defmacro list/det% (&body clauses)
                     (if clauses
  