anchor.diff:  	  (return i)))))
   
   (defun count-if (predicate sequence &key key);from-end start end
  -  (unless key (setf key #'identity))
  +  (unless key (setf key 'identity))
     (let ((n 0))
       (if (listp sequence)
   	(dolist (e sequence)
  
positive.code:   (count-if (complement predicate) sequence :key key))
  
  (defun find-if (predicate sequence &key key); (start 0) end from-end
    (unless key (setf key #'identity))
    (if (listp sequence)
        (dolist (e sequence)
  	(when (funcall predicate (funcall key e))
  
negative.code: 
  ;; Selection sort!
  (defun sort (sequence predicate &key key)
    (unless key (setf key 'identity))
    (when sequence
      (do* ((ipos sequence (cdr ipos))
  	  (imin ipos ipos))
  