anchor.diff:        (unless (and (eql 'defvar (first read/))
                      (string-equal  '*params* (second read/))) 
           (error "not init template ~S~%" (list read/)))
  -      (rest (third read/)))))
  +      (second (third read/)))))
   
   (defun template-init (names)
     (let* ((name (sanitize (first names)))
  
positive.code:            while i
             collect (code-char i)) 'string)))
  
  (defun write-template (name &key
                                (path (template-path name))
                                list)
  
negative.code:               do (template-add-file name i i))
          (format *error-output* "template ~S is not editable.~%" name))))
  
  (defun template-remove-file (template-name file-name)
    (let ((info (read-template template-name)))
      (uiop:delete-file-if-exists
       (merge-pathnames (enc-string file-name) (template-dir template-name)))
      (when (find file-name (getf info :files) :key (lambda (x) (getf x :name)))
        (setf (getf info :files)
              (remove file-name (getf info :files)
                      :key (lambda (x) (getf x :name))))
        (write-template template-name :list info))))
  
  (defun template-rm (_)
    "Remove (delete) files from template."
    (let ((name (config "init.default")))
      (unless (and name
                   (not (equal name "default")))
        (setf name (sanitize (first _))
              _ (rest _)))
      (if (and (list-templates :filter name)
               (not (equal name "default")))
          (loop for i in _
                do (template-remove-file name i))
          (format *error-output* "template ~S is not editable.~%" name))))
  