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:    (chunks document)
     (lambda (chunk)
       ;;?? yurk -- expediant but ugly
       (setf (slot-value chunk 'lines) 
             (collect-elements 
              (lines chunk)
              :filter
              (lambda (line)
                (not (and (stringp line) 
                          (zerop 
                           (length (string-trim +whitespace-characters+ line)))))))))))
  
  +whitespace-characters+
  
  ;;; ---------------------------------------------------------------------------
  ;;; dead code
  
negative.code:                  :id id :url url :title title)
                 (ignore? chunk) t)))))
    ;; now remove the unneeded chunks
    (removed-ignored-chunks? document)
    document)
  
  ;;; ---------------------------------------------------------------------------
  