anchor.diff:      (let ((*default-pathname-defaults* (truename pathname))
             (*name* name))
         (rewrite-templates *template-directory* *default-pathname-defaults*
  -			 (template-parameters template-parameters))
  +                         (template-parameters template-parameters))
         (pushnew *default-pathname-defaults* asdf:*central-registry*
                  :test 'equal)
         (dolist (hook *after-make-project-hooks*)
  
positive.code: 
  (defun template-pathname->output-name (path)
    (flet ((mk-path (name)
  	   (make-pathname
  	    :directory (pathname-directory path)
  	    :name name
  	    :type (pathname-type path))))
      (cond ((and (string= "asd" (pathname-type path))
  		(string= "system" (pathname-name path)))
  	   (mk-path *name*))
  	  ((and (string= "lisp" (pathname-type path))
  		(string= "application" (pathname-name path)))
  	   (mk-path *name*))
  	  (t path))))
  
  (defun rewrite-templates (template-directory target-directory parameters)
    "Treat every file in TEMPLATE-DIRECTORY as a template file; fill it
  
negative.code:                      template-parameters
                       ((:template-directory *template-directory*)
                        *template-directory*)
                       ((:depends-on *depends-on*) *depends-on*)
                       ((:author *author*) *author*)
                       ((:license *license*) *license*)
                       (name (pathname-project-name pathname) name-provided-p)
  