anchor.diff:  
   (defgeneric concat-complex-string (a b &key color-attributes-contagion)
     (:documentation
  -   "Return a new `complex-string' that is the result of concatenating `a' and 'b'. 
  +   "Return a new `complex-string' that is the result of concatenating `a' and 'b'.
   
   If `color-attributes-contagion' is non nil, `b' will inherit all the
   attributes and color of the last element of `a'."))
  
positive.code: (defun array-slice (array start &optional (end nil))
    (let* ((new-size (if end
                         (- end start)
                         (length array)))
           (new-fill-pointer
             (cond ((array-has-fill-pointer-p array)
                    (if end
                        new-size
                        (fill-pointer array)))
                   (t nil)))
           (new-array (make-array new-size
                                  :element-type    (array-element-type array)
  
negative.code:    "If object length is bigger than `len', cut the last characters out.
  
  Also replaces the last n characters (where n is the length of
  `truncate-string') of the shortened string with `truncate-string'.
  
  It defaults to ..., but can be nil or the empty string."))
  
  