anchor.diff:  
   (defun make-skeleton (&key for in)
     "Generate a skeleton for a package in the indicated location;  "
  -  (declare (type (or symbol string) for) 
  -	   (type (satisfies cl-fad:directory-pathname-p) in))
  +  (declare (type (or symbol string) for)
  +           (type (satisfies cl-fad:directory-pathname-p) in))
     (let ((skeleton (make-instance 'skeleton :package for :location in)))
       (generate-skeleton skeleton)
       skeleton))
  
positive.code: (in-package :hh-web)
  
  (defclass skeleton ()
    ((location :type (satisfies directory-pathname-p) 
  	     :initarg :location 
  	     :accessor in-location)
     (package :type (or symbol string) 
  	    :initarg :package 
  	    :accessor for-package))
    (:documentation "A skeleton represents the starting point for a project based on hh-web"))
  
  (defgeneric skeleton-components (skeleton)
    (:documentation "Return the list of components of the skeleton, as a list of keywords")
    (:method ((skeleton skeleton))
      `(:directory
        :system 
       :package
       :taglibraries
       :templates
  
negative.code: (defgeneric generate-skeleton-component (skeleton component)
    (:documentation "Generate the files necessary for the indicated component and skeleton"))
  
  (defmethod generate-skeleton-component ((skeleton skeleton) (component symbol))
    "If no such component exists for the skeleton, do nothing"
    component)
  
  