anchor.diff:  
   (in-package :org.tymoonnext.colleen)
   (defpackage org.tymoonnext.colleen.mod.notify
  -  (:use :cl :colleen :events :alexandria :local-time)
  -  (:shadow :load))
  +  (:use :cl :colleen :events :local-time)
  +  (:nicknames :co-notify))
   (in-package :org.tymoonnext.colleen.mod.notify)
   
   (defparameter *timestamp-format* '(:long-weekday #\Space (:year 4) #\. (:month 2) #\. (:day 2) #\Space (:hour 2) #\: (:min 2) #\: (:sec 2)))
  
positive.code: (define-handler (privmsg-event event) (:modulevar notify)
    (let ((newlist ()))
      (dolist (note (uc:config-tree :notes))
        (if (and (string-equal (nick event) (nick note))
                 (string= (channel event) (channel note))
                 (string= (string-upcase (name (server event))) (server note)))
            (progn (v:debug :notify "Delivering note ~a." note)
                   (respond event "~a: ~a wrote to you on ~a : ~a"
                            (nick note) (sender note) (timestamp note) (message note)))
            (push note newlist)))
      (setf (uc:config-tree :notes) (nreverse newlist))))
  
negative.code:    (%nickname :initarg :nick :initform NIL :accessor nick)
     (%sender :initarg :sender :initform NIL :accessor sender)
     (%timestamp :initarg :timestamp :initform NIL :accessor timestamp)
     (%message :initarg :message :initform NIL :accessor message)
     (%trigger :initarg :trigger :initform :message :accessor trigger)))
  
  (defmethod print-object ((note note) stream)
    (print-unreadable-object (note stream :type T)
      (format stream "~a ~a ~a ~a -> ~a" (timestamp note) (server note) (channel note) (sender note) (nick note))))
  
  (uc:define-serializer (note note T)
    (make-array 7 :initial-contents (list (server note) (channel note) (nick note) (sender note) (timestamp note) (message note) (trigger note))))
  
  (uc:define-deserializer (note array T)
    (make-instance 'note
  