anchor.diff:  
   (defun newline? (c)
     (declare (character c))
  -  (or (char= c #\Newline)
  -      (char= c #\Return)
  -      (char= c #\Linefeed)))
  +  (case c
  +    (#.(remove-duplicates (list #\Newline #\Return #\Linefeed))
  +     t)))
   
   (-> lines (string) list)
   (defun lines (string)
  
positive.code: 
  Spaces, tabs, any kind of line break, page breaks, and no-break spaces
  are considered whitespace."
    ;; Can't use CASE because chars may be repeated.
    (or (eql char #\Space)
        (eql char #\Tab)
        (eql char #\Newline)
        (eql char #\Linefeed)
        (eql char #\Return)
        (eql char #\Page)
        (eql char #\No-break_space)))
  
  (defsubst trim-whitespace (string)
    "STRING without whitespace at ends."
  
negative.code:           words tokens lines
            fmt
            with-string
            escape
            ellipsize
            string^= string$= string~= string*=
  