anchor.diff:  ;;; ---------------------------------------------------------------------------
   
   (defun line-is-link-label-p (line)
  -  (scan #.(ppcre:create-scanner '(:sequence link-label)) line))
  +  (scan (ppcre:create-scanner '(:sequence link-label)) line))
   
   ;;; ---------------------------------------------------------------------------
   
  
positive.code: 	     (if additional-extensions
  		 `(,@additional-extensions ,@*parse-active-functions*)
  		 *parse-active-functions*))))
      (iterate-elements 
       (chunk-post-processors *parsing-environment*)
       (lambda (processor)
  
negative.code:     (cleanup *current-document*)
      (values *current-document* 
              (render-to-stream *current-document* format stream))))
  
  (defun containing-directory (pathspec)
    "Return the containing directory of the thing to which pathspac points. For example:
  
      (containing-directory \"/foo/bar/bis.temp\")
      \"/foo/bar/\"
      > (containing-directory \"/foo/bar/\")
      \"/foo/\"
  "
    (make-pathname
     :directory `(,@(butlast (pathname-directory pathspec)
  			   (if (cl-fad:directory-pathname-p pathspec) 1 0)))
     :name nil
     :type nil
     :defaults pathspec))
  
  ;;; ---------------------------------------------------------------------------
  
  