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