anchor.diff:                            `((lambda (s)
                                 (and (plusp (length s))
                                      (,',test ,(character prefix)
  -                                     (aref s 0))))
  +                                            (aref s 0))))
                               (string ,string))
                             call)))))
       (dcm string^= char=)
  
positive.code:              `(let (*print-pretty*)
                  (format nil ,control-string ,@args)))))
  
  (defun escape (string table &key (start 0) end stream)
    "Write STRING to STREAM, escaping with TABLE.
  
  
negative.code:                                (compare-segment left right))
                until (>= right end))))))
  
  (defun string-replace-all/no-arg-parsing (old string new start end stream count)
    (declare ((or null array-index) start)
             ((or array-length null) end)
             ;; Can't be more matches than characters.
             ((or array-length null) count))
    (check-type old string)
    (check-type new string)
    (check-type string string)
    (let ((start (or start 0))
          (new (simplify-string new))
          (old (simplify-string old)))
      (declare (array-index start))
      (with-string-dispatch () string
        (cond
          ((not (search old string :start2 start :end2 end))
  