anchor.diff:  (defvar *local-stream* *terminal-io*)
   (defvar *irc-message-max-length* 400)
   
  -(defclass message (eval-bot)
  +(defclass message ()
     ((timestamp :reader timestamp :initform (get-universal-time))))
   
   (defclass server-message (message)
  
positive.code: 
  ;;; Definitions
  
  (defclass definitions (eval-bot)
    ((hash :reader hash :initform (make-hash-table :test #'equal))
     (lock :reader lock :initform (bt:make-lock "definitions"))
     (changed :accessor changed :initform nil)))
  
negative.code: 
  (declaim (optimize (safety 3)))
  
  ;;; Misc
  
  (defvar *enabled* t)
  