anchor.diff:      (loop for server being the hash-keys of *servers*
          do (disconnect server))))
   
  -(define-command quickload (&optional (system "colleen")) (:authorization T :documentation "Perform a ql:quickload.")
  -  (setf system (find-symbol (string-upcase system) :KEYWORD))
  -  (ql:quickload system)
  -  (respond event "System loaded."))
  -
  -(define-command update () (:authorization T :documentation "Stops all active modules (except essentials), performs a GIT pull on the project root, reloads and finally starts all previously active modules again.")
  -  (flet ((report (level message &rest formatargs)
  -           (apply #'respond event (format NIL "[update][~a] ~a" level message) formatargs)
  -           (apply #'v:log level :essentials.update message formatargs)))
  -    (let ((running-modules (remove-if-not #'active (remove :core (remove :essentials (hash-table-keys *bot-modules*))))))
  -      (report :info "Force-stopping all modules...")
  -      (dolist (module running-modules)
  -        (handler-bind ((error #'(lambda (err)
  -                                  (report :error "Error stopping module ~a: ~a" module err)
  -                                  (invoke-restart 'skip))))
  -          (stop-module module)))
  -      (report :info "Performing GIT pull...")
  -      (uiop:chdir (asdf:system-source-directory :colleen))
  -      (uiop:run-program "git pull" )
  -      (report :info "Reloading COLLEEN...")
  -      (ql:quickload :colleen)
  -      (report :info "Starting all modules...")
  -      (dolist (module running-modules)
  -        (handler-bind ((error #'(lambda (err)
  -                                  (report :error "Error starting module ~a: ~a" module err)
  -                                  (invoke-restart 'skip))))
  -          (start-module module)))
  -      (report :info "Update done."))))
  -
   (define-command error (&optional type) (:documentation "Simulate a condition.")
     (if type
         (error (find-symbol (string-upcase type)))
  
positive.code:   (do-matching-command-handlers ((format NIL "~{~a~^ ~}" command-signature) handler)
      (respond event "~a" (apropos-command-handler handler))))
  
  ;; MODULE COMMANDS
  (define-group module :documentation "Manage bot modules.")
  
  
negative.code:   (respond event "~a: It is now ~a" (nick event)
             (format-timestring NIL (now) :format 
                                '((:year 4) #\. :month #\. :day #\, #\Space :long-weekday #\Space (:hour 2) #\: (:min 2) #\: (:sec 2) #\Space #\( :timezone #\/ #\G #\M #\T :gmt-offset #\)))))
  
  (define-command help (&rest command-signature) (:documentation "Display help on a command.")
    (if command-signature
  