anchor.diff:  
   (defun sanitize (name)
     (remove-if (lambda (x) (find x "./\\")) name))
  -
  -(defun template-apply (template-name args params)
  -  (declare (ignorable template-name args params))
  -  (print (list template-name args)))
   
   (defun template-path (name)
     (merge-pathnames (format nil "templates/~A/" name)
  
positive.code:               `((defpackage ,package
                    (:use :cl))
                  (in-package ,package)
                  (defvar *params* ,(cons 'list list))
                  (defun ,(read-from-string name) (_ &rest r)
                    (roswell:include "util-template")
                    (funcall (read-from-string "roswell.util.template:template-apply") _ r *params*)))))))
  
negative.code: (defun template-list (_)
    "List the installed templates"
    (cond
      ((or (first _)
           (and (config "init.default")
                (not (equal (config "init.default") "default"))))
       (let* ((name (or (sanitize (first _))
                        (config "init.default")))
              (path (first (list-templates :filter name))))
         (when (and path (equal (pathname-type path) "asd"))
           (print (mapcar (lambda (x) (dec-string (file-namestring x))) (directory (merge-pathnames (format nil "~A/*" name) (make-pathname :defaults path :type nil :name nil))))))))
      ((not _)
       (format t "~{~A~%~}" (list-templates :name t)))))
  
  (defun template-set-default (_)
    (let ((name (sanitize (first _))))
  