> > (defun remove-text (text-to-remove text)
> > (loop with remove-length = (length text-to-remove)
> > for i = (search text-to-remove text)
> > then (search text-to-remove text :start2 i)
> > while i
> > do (setq text (concatenate 'string
> > (subseq text 0 i)
> > (subseq text (+ i remove-length))))
> > finally (return text)))
>
> Just to point out a useful LOOP idiom, here's another way:
>
> (defun remove-text (text-to-remove text)
> (with-output-to-string (s)
> (loop
> with remove-length = (length text-to-remove)
> for prev-end = 0 then (+ start remove-length)
> for start = (search text-to-remove text :start2 prev-end)
> do (write-string text s :start prev-end :end start)
> while start)))

Gauche Scheme:

(regexp-replace-all "--" "hi---ho---hee" "")
===>
"hi-ho-hee"

Racket:

(string-replace "hi---ho---hee" "--" "")
===>
"hi-ho-hee"