anchor.diff:    (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)
   ```
  
positive.code:            path))))))
  
  (defun generate ()
    (coleslaw:main *default-pathname-defaults*))
  
  (defun preview (&optional (path (getf (read-rc) :deploy-dir)))
    ;; clack depends on the global binding of *default-pathname-defaults*.
    (let ((oldpath *default-pathname-defaults*))
      (unwind-protect
  
negative.code:    #:preview
     #:watch
     #:watch-preview
     #:help
     #:stage
     #:deploy))
    
  (in-package :coleslaw-cli)
  
  