anchor.diff:  (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)))
  -(defparameter *save-file* (merge-pathnames "notify-save.json" (merge-pathnames "config/" (asdf:system-source-directory :colleen))))
   
  -(define-module notify ()
  -  ((%notes :initarg :notes :initform () :accessor notes)))
  +(define-module notify () () (:documentation "Simple module to send out notifications."))
   
   (defclass note ()
     ((%server :initarg :server :initform NIL :accessor server)
  
positive.code:                  (respond event "~a: ~a wrote to you on ~a : ~a"
                            (nick note) (sender note) (timestamp note) (message note)))
            (push note newlist)))
      (setf (notes notify) (nreverse newlist))))
  
negative.code:   (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 6 :initial-contents (list (server note) (channel note) (nick note) (sender note) (timestamp note) (message note))))
  
  (uc:define-deserializer (note array T)
    (make-instance 'note
                   :server (aref array 0)
                   :channel (aref array 1)
                   :nick (aref array 2)
                   :sender (aref array 3)
                   :timestamp (aref array 4)
                   :message (aref array 5)))
  
  (define-command notify (recipient &rest message) (:modulevar notify)
    (if (string-equal recipient (nick (server event)))
        (respond event "~a: I'm right here." (nick event))
        (progn
          (v:debug :notify "Creating new note by ~a for ~a" (nick event) recipient)
          (push (make-instance 
                 'note 
                 :message (format NIL "~{~a~^ ~}" message) 
                 :sender (nick event) 
                 :nick recipient 
                 :channel (channel event) 
                 :server (string-upcase (name (server event)))
                 :timestamp (format-timestring NIL (now) :format *timestamp-format*))
                (uc:config-tree :notes))
          (respond event "~a: Remembered. I will remind ~a when he/she/it next speaks." (nick event) recipient))))
  
  (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)))
  