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