anchor.diff:    "The 26 lowercase letters of the English alphabet.")
   
   (defconst whitespace
  -  #.(coerce '(#\Space #\Tab #\Linefeed #\Return #\Newline #\Page #\No-break_space) 'string)
  +  #.(remove-duplicates (coerce '(#\Space #\Tab #\Linefeed #\Return #\Newline #\Page #\No-break_space) 'string))
     "Whitespace characters.")
   
   (defsubst whitespacep (char)
  
positive.code:           words tokens lines
            fmt
            with-string
            downcase upcase capitalize
            escape
            ellipsize
            string^= string$= string~= string*=
  
negative.code: 
  (defun newline? (c)
    (declare (character c))
    (case c
      (#.(remove-duplicates (list #\Newline #\Return #\Linefeed))
       t)))
  
  (-> lines (string) list)
  (defun lines (string)
  