anchor.diff:  ;;; We assume that the bag has been checked so that it is known to
   ;;; be a proper list of characters.
   (defun character-in-list-bag-p (character bag)
  -  (declare (optimize (speed 3) (safety 0) (debug 0)))
  +  (declare (type character character)
  +	   (optimize (speed 3) (safety 0) (debug 0)))
     (loop for c in bag
   	when (char= character c)
   	  return t))
  
positive.code: (declaim (inline character-in-general-string-bag-p))
  
  (defun character-in-simple-vector-bag-p (character bag)
    (loop for i from 0 below (length bag)
  	when (char= character (svref bag i))
  	  return t))
  
negative.code: (declaim (inline character-in-list-bag-p))
  
  (defun character-in-simple-string-bag-p (character bag)
    (declare (type character character)
  	   (type simple-string bag)
  	   (optimize (speed 3) (safety 0) (debug 0)))
    (loop for i from 0 below (length bag)
  	when (char= character (schar bag i))
  	  return t))
  