anchor.diff:          (text (alexandria:read-file-into-string (merge-pathnames file *cwd*))))
       (alexandria:write-string-into-file
        (if all
  -         (cl-ppcre:regex-replace-all regex text replace :preserve-case T)
  -         (cl-ppcre:regex-replace regex text replace :preserve-case T))
  +         (cl-ppcre:regex-replace-all regex text (replace-vars replace) :preserve-case T)
  +         (cl-ppcre:regex-replace regex text (replace-vars replace) :preserve-case T))
        (merge-pathnames file *cwd*) :if-exists :rename-and-delete)))
   
   (defvar *script-read-table* (copy-readtable))
  
positive.code:                           :direction :output
                            :if-exists :rename-and-delete
                            :if-does-not-exist :create)
      (write-string contents stream)
      (terpri stream)))
  
  (defun >> (file contents)
  
negative.code:                           :direction :output
                            :if-exists :append
                            :if-does-not-exist :create)
      (write-string (replace-vars contents) stream)
      (terpri stream)))
  
  (defun s/r (file search replace &key (all T) case-insensitive single-line multi-line)
  