anchor.diff:                           "May your soul find peace in the other world, ~a"))
   
   (defun id (event &optional (channel (channel event)))
  -  (format NIL "~a/~a" (server event) channel))
  +  (format NIL "~a/~a" (name (server event)) channel))
   
   (define-handler (privmsg-event event) (:identifier user-recording-msg)
     (push (channel event)
  
positive.code:     (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*)))
      (when quit
        (respond event (nth (random (length *lamentations*)) *lamentations*) quit))))
  
negative.code: |#
  
  (in-package :org.tymoonnext.colleen)
  (defpackage #:org.tymoonnext.colleen.mod.silly
    (:nicknames #:co-silly)
    (:use #:cl #:colleen #:events))
  (in-package #:org.tymoonnext.colleen.mod.silly)
  
  (define-module silly () ()
    (:documentation "Silly things."))
  