anchor.diff:           (running-modules (remove-if-not #'active (remove :backup (alexandria:hash-table-keys *bot-modules*)))))
       (assert (cl-fad:file-exists-p source-dir) () "Backup ~a does not exist!" backup-name)
       (flet ((copy-fun (pathname)
  -             (let ((target-path (merge-pathnames (subseq (namestring pathname) (length (namestring source-dir))) *config-dir*)))
  +             (let ((target-path (merge-pathnames (subseq (namestring pathname) (length (namestring source-dir))) *config-directory*)))
                  (if (cl-fad:directory-pathname-p pathname)
                      (progn
                        (v:debug :backup "Ensuring directory ~a" target-path)
  
positive.code: 
  (in-package :org.tymoonnext.colleen)
  (defpackage org.tymoonnext.colleen.mod.backup
    (:use :cl :colleen :events))
  (in-package :org.tymoonnext.colleen.mod.backup)
  
  (defparameter *config-dir* (merge-pathnames "config/" (asdf:system-source-directory :colleen)))
  
  (define-module backup ()
      ((%interval :initform NIL :accessor interval)
  
negative.code:                                   (invoke-restart 'skip))))
            (stop-module module)))
        (v:debug :backup "Deleting old config folder...")
        (cl-fad:delete-directory-and-files *config-directory* :if-does-not-exist :ignore)
        (v:debug :backup "Copying folder ~a to ~a..." (namestring source-dir) (namestring *config-directory*))
        (copy-fun source-dir)
        (cl-fad:walk-directory source-dir #'copy-fun :directories T)
        (v:debug :backup "Starting all previously active modules...")
  