anchor.diff:                          (parse-timestring (format NIL "~a+~a:00" date
                                                      (/ (nth-value 9 (local-time:decode-timestamp (local-time:now))) 60 60))))))
           (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 :date)))
  +        (let ((note (make-note event timestamp message :trigger :date)))
             (push note (uc:config-tree :notes))
             (schedule-timer 'notify :once timestamp :arguments (list note))
             (respond event "~a: Remembered. I will repost this on ~a." (nick event) date)))
  
positive.code:                                       (* (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)))
            (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)))
  
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))))
  
  