anchor.diff:  		unless (character-in-simple-vector-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: 	    (declare (optimize (speed 3) (debug 0) (safety 0)))
  	  (loop for i of-type fixnum from 0 below length
  		unless (character-in-list-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)
  