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: 
  (defmethod generate-skeleton-component ((skeleton skeleton) (component (eql :system)))
    (let* ((package-name (string-downcase (symbol-name (for-package skeleton))))
  	 (system-file-pathname (pathname (format nil "~a.asd" package-name))))
      (with-skeleton-file (os skeleton system-file-pathname)
        (format os "(defpackage #:~a-asd~%" package-name)
        (format os "  (:use :cl :asdf))~%~%")
  
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)
  
  