anchor.diff:  
   ;; Perform an edge thinning algorithm;
   ;; http://homepages.inf.ed.ac.uk/rbf/HIPR2/thin.htm
  -(defun edge-thin-means (img)
  +;; Would like to get this to work to remove all the single pixels
  +(defun edge-thin-means (img img2)
   	(typecase img
   		(8-bit-rgb-image
   			(locally (declare (type 8-bit-rgb-image img))
  
positive.code: 					(loop for i below height do
  						(loop for j below width do
  							(setf neighbors 0)
  							(setf v 0)
  							(dolist (f (multiple-value-list-remove-nulls (8-neighbors img i j)))
  									(multiple-value-bind (_r _g _b)
  										(pixel img i j)
  
negative.code: 								(setf blobs (append blobs (list 1)))
  								(setf (nth (aref array i j) blobs) (+ (nth (aref array i j) blobs) 1))))))))) blobs)
  
  (defun sum-l (l)
     (apply '+ l))
  
  (defun avg-l (l)
     (float (/ (sum-l l) (length l))))
  
  (defun max-l (l)
     (apply 'max l))
  
  (defun min-l (l)
     (apply 'min l))
  
  (defun label (image)
  	(setf img (load-painting image))
  	(sum-components (label-components img) img))
  