anchor.diff:    (list :name *name*
           :license *license*
           :author *author*
  -	:depends-on (mapcar
  -		     (lambda (sym)
  -		       (list :symbol sym :uninterned (format nil "#:~(~a~)" sym)))
  -		     *depends-on*)
  -	:dependencies-string (format nil "(~{#:~(~a~)~^ ~})" *depends-on*)
  -	:copyright (when *include-copyright*
  -		     (format nil "Copyright (c) ~D ~A~%" (current-year) *author*))))
  +        :depends-on (mapcar
  +                     (lambda (sym)
  +                       (list :symbol sym :uninterned (format nil "#:~(~a~)" sym)))
  +                     *depends-on*)
  +        :dependencies-string (format nil "(~{#:~(~a~)~^ ~})" *depends-on*)
  +        :copyright (when *include-copyright*
  +                     (format nil "Copyright (c) ~D ~A~%" (current-year) *author*))))
   
   (defvar *template-parameter-functions* (list 'default-template-parameters)
     "A list of functions that return plists for use when rewriting
  
positive.code:              (let* ((relative-namestring
                       (enough-namestring pathname template-directory))
                      (target-pathname (template-pathname->output-name
  				      (merge-pathnames relative-namestring
  						       target-directory))))
                 (ensure-directories-exist target-pathname)
                 (with-open-file (stream
                                  target-pathname
  
negative.code:     (let ((*default-pathname-defaults* (truename pathname))
            (*name* name))
        (rewrite-templates *template-directory* *default-pathname-defaults*
                           (template-parameters template-parameters))
        (pushnew *default-pathname-defaults* asdf:*central-registry*
                 :test 'equal)
        (dolist (hook *after-make-project-hooks*)
  