anchor.diff:    (handler-case 
         (if (auth-p (nick event))
             (respond event (fstd-message event :auth-already))
  -          (let ((logininfo (config-tree :auth :logins (find-symbol (string-upcase (nick event)) "KEYWORD"))))
  +          (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.")
  
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: 
  (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)
  
  