pkgs/development/lisp-modules-new-obsolete/import/util.lisp

   1 (defpackage org.lispbuilds.nix/util
   2   (:use :cl)
   3   (:import-from :ppcre)
   4   (:export
   5    :replace-regexes))
   6
   7 (in-package org.lispbuilds.nix/util)
   8
   9 (defun replace-regexes (from to str)
  10   (assert (= (length from) (length to)))
  11   (if (null from)
  12       str
  13       (replace-regexes
  14        (rest from)
  15        (rest to)
  16        (ppcre:regex-replace-all (first from) str (first to)))))