anchor.diff:       (apply #'watch-preview rest))
       ((list* "new" rest)
        (apply #'new rest))
  -    ((or nil (list "generate"))
  +    ((list* "generate" rest)
  +     (apply #'generate rest))
  +    ((list* "stage" rest)
  +     (apply #'stage rest))
  +    ((list* "deploy" rest)
  +     (apply #'deploy rest))
  +    (nil
        (generate))
       ((list* "copy-theme" rest)
        (apply #'copy-theme rest))
  
positive.code:    #:preview
     #:watch
     #:watch-preview
     #:help))
    
  (in-package :coleslaw-cli)
  
  
negative.code:   (coleslaw-cli:setup            &optional name)
    (coleslaw-cli:copy-theme theme &optional target)
    (coleslaw-cli:new              &optional type name)
    (coleslaw-cli:stage)
    (coleslaw-cli:generate)
    (coleslaw-cli:deploy)
    (coleslaw-cli:preview &optional directory)
    (coleslaw-cli:watch   &optional directory)
  ```
  