anchor.diff:      (remhash (id event) *last-quit*)))
   
   (define-command lament () (:documentation "Lament the most recent departure.")
  -  (let ((quit (gethash (format NIL "~a/~a" (server event) (channel event)) *last-quit*)))
  +  (let ((quit (gethash (id event) *last-quit*)))
       (when quit
         (respond event (nth (random (length *lamentations*)) *lamentations*) quit))))
  
positive.code: |#
  
  (in-package :org.tymoonnext.colleen)
  (defpackage org.tymoonnext.colleen.mod.silly
    (:use :cl :colleen :events))
  (in-package :org.tymoonnext.colleen.mod.silly)
  
  (define-module silly () ()
    (:documentation "Silly things."))
  
negative.code:                          "May your soul find peace in the other world, ~a"))
  
  (defun id (event &optional (channel (channel event)))
    (format NIL "~a/~a" (name (server event)) channel))
  
  (define-handler (privmsg-event event) (:identifier user-recording-msg)
    (push (channel event)
  