anchor.diff:                                        (* (parse-integer s) 1) (* (parse-integer m) 60) (* (parse-integer h) 60 60))))
                             (T (error "")))))
           (v:debug :notify "Creating new note by ~a scheduled for ~a" (nick event) timestamp)
  -        (let ((note (make-instance
  -                     'note
  -                     :message (format NIL "~{~a~^ ~}" message) 
  -                     :sender (nick event) 
  -                     :nick timestamp 
  -                     :channel (channel event) 
  -                     :server (string-upcase (name (server event)))
  -                     :timestamp (format-timestring NIL (now) :format *timestamp-format*)
  -                     :trigger :time)))
  +        (let ((note (make-note event timestamp message :trigger :time)))
             (push note (uc:config-tree :notes))
             (schedule-timer 'notify :once timestamp :arguments (list note))
             (respond event "~a: Remembered. I will repost this in ~a." (nick event) time)))
  
positive.code:       (when (integerp (nick note))
          (schedule-timer 'notify :once (nick note) :arguments (list note))))))
  
  (define-command |notify @join| (recipient &rest message) (:documentation "Notify MESSAGE to RECIPIENT when they next join this channel.")
    (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*)
           :trigger :join)
          (uc:config-tree :notes))
    (respond event "~a: Remembered. I will remind ~a when he/she/it next joins." (nick event) recipient))
  
  (define-command |notify @any| (&rest message) (:documentation "Say MESSAGE when any lines are spoken in the chatroom.")
    (v:debug :notify "Creating new note for anyone by ~a" (nick event))
    (push (make-instance
           'note
           :message (format nil "~{~a~^ ~}" message)
           :sender (nick event)
           :nick :any
           :channel (channel event)
           :server (string-upcase (name (server event)))
           :timestamp (format-timestring nil (now) :format *timestamp-format*)
           :trigger :message)
          (uc:config-tree :notes))
    (respond event "~a: Remembered. I will repost this whenever someone else next next talks." (nick event)))
  
  
negative.code:          (respond event "~a: Are you feeling lonely?" (nick event)))
          (T
           (v:debug :notify "Creating new note by ~a for ~a" (nick event) recipient)
           (push (make-note event recipient message)
                 (uc:config-tree :notes))
           (respond event "~a: Remembered. I will remind ~a when he/she/it next speaks." (nick event) recipient))))
  
  