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:          (target-dir (merge-pathnames (format NIL "~a/" timestamp) directory))
           (running-modules (remove-if-not #'active (remove :backup (alexandria:hash-table-keys *bot-modules*)))))
      (flet ((copy-fun (pathname)
               (let ((target-path (merge-pathnames (subseq (namestring pathname) (length (namestring *config-directory*))) target-dir)))
                 (if (cl-fad:directory-pathname-p pathname)
                     (progn
                       (v:debug :backup "Ensuring directory ~a" target-path)
  