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: 
  (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)
  