anchor.diff:                                    (invoke-restart 'skip))))
             (stop-module module)))
         (v:debug :backup "Deleting old config folder...")
  -      (cl-fad:delete-directory-and-files *config-dir* :if-does-not-exist :ignore)
  -      (v:debug :backup "Copying folder ~a to ~a..." (namestring source-dir) (namestring *config-dir*))
  +      (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...")
  
positive.code:       (trivial-timers:schedule-timer (timer backup) 1 :repeat-interval (interval backup)))))
  
  (defun last-backup ()
    (let ((backups (sort (remove-if-not #'cl-fad:directory-pathname-p (cl-fad:list-directory *config-dir*))
                         #'(lambda (a b) (string< (namestring a) (namestring b))))))
      (cdr (last (pathname-directory (cdr (last backups)))))))
  
  
negative.code:                                   (v:error :backup "Error stopping module ~a: ~a" module err)
                                    (invoke-restart 'skip))))
            (stop-module module)))
        (v:debug :backup "Copying folder ~a to ~a..." (namestring *config-directory*) (namestring target-dir))
        (copy-fun *config-directory*)
        (cl-fad:walk-directory *config-directory* #'copy-fun :directories T)
        (v:debug :backup "Starting all previously active modules...")
        (dolist (module running-modules)
          (handler-bind ((error #'(lambda (err)
  