anchor.diff:  
   (in-package :org.tymoonnext.colleen)
   (defpackage org.tymoonnext.colleen.mod.auth
  +  (:nicknames :co-auth)
     (:use :cl :colleen :events))
   (in-package :org.tymoonnext.colleen.mod.auth)
   
  
positive.code:       (v:warn :auth "Error during login attempt: ~a" err)
        (respond event (fstd-message event :auth-fail)))))
  
  (define-handler notice-event ()
    (when (string-equal "NickServ" (nick notice-event))
      (cl-ppcre:register-groups-bind (user level) (*nickserv-status-regex* (message notice-event))
  
negative.code:   (handler-case 
        (if (auth-p (nick event))
            (respond event (fstd-message event :auth-already))
            (let ((logininfo (uc:config-tree :logins (intern (string-upcase (nick event)) "KEYWORD"))))
              (if pw
                  (if (string= (format nil "~{~a~^ ~}" pw) logininfo)
                      (progn (add-to-auth (nick event) "Password auth.")
  