anchor.diff:  (defun shorten-nick (full-nick)
     (ppcre:scan-to-strings "[A-Za-z]+" full-nick))
   
  -(defun admin-user-p (nick)
  -  (find nick *admin-users* :test #'string=))
  -
   (defun message-target-is-channel-p (message)
     (find (char (first (arguments message)) 0) "#+"))
   
  
positive.code:                        (aref reg-start register)
                         (aref reg-end register))
                result-list))))
  
  
  (defun switch-person (str)
    (cl-ppcre:regex-replace-all
  
negative.code: 
  (defun reply-to (message fmt &rest args)
    (let* ((raw-response (format nil "~?" fmt args))
           (response (string-limit raw-response 500)))
      (cond
        ((char= #\# (char (first (arguments message)) 0))
         (irc:privmsg (connection message) (first (arguments message)) response))
  