anchor.diff:        (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
  
positive.code:                                            #'pphtml::red
                                             (bracebracket base modified allowed-distance))))
                    outhtml-pathspec))
  
  (load "impls.lisp")
  
  (show-stdiff-cl *first-impl* *third-impl* "tmp.html")
  
  (show-stdiff-cl '(defmacro list/det% (&body clauses)
                     (if clauses
  
negative.code: (require :asdf)
  
  (require :stdiff)
  
  (require :pphtml)
  
  (defpackage :stdiff-use-sample
    (:use :cl :chiku.util :stdiff :pphtml))
  
  (in-package :stdiff-use-sample)
  
  