anchor.diff:  		unless (character-in-general-string-bag-p
   			(char string i)
   			character-bag)
  -		  return (extract-interval-simple string i length)
  +		  return (extract-interval-general string i length)
   		finally (return ""))))))
   
   ;;; A version of STRING-LEFT-TRIM for a character bag represented as a
  
positive.code: 		unless (character-in-simple-string-bag-p
  			(char string i)
  			character-bag)
  		  return (extract-interval-simple string i length)
  		finally (return ""))))))
  
  ;;; A version of STRING-LEFT-TRIM for a character bag represented as a
  
negative.code: 		unless (character-in-general-vector-bag-p
  			(char string i)
  			character-bag)
  		  return (extract-interval-general string i length)
  		finally (return ""))))))
  
  (defun string-left-trim (character-bag string-designator)
  