anchor.diff:  
   (defvar *connection*)
   (defvar *nickname* "")
  +(defvar *channels* nil)
   
   (defun shut-up ()
     (setf (irc:client-stream *connection*) (make-broadcast-stream)))
  
positive.code: (defun identify (connection)
    (nick connection *nickname*)
    (privmsg connection "NickServ"
             (format nil "IDENTIFY ~A" *password*)))
  
  (defun notice-hook (message)
    (when (and (string-equal (source message) "NickServ")
  
negative.code:            (format nil "GHOST ~a ~a"
                     (nickname (user connection))
                     *password*))
    (nick connection (nickname (user connection))))
  
  (defun in-use-hook (message)
    (nick (connection message)
          (format nil "~a~a" *nickname*
                  (incf *nick-retry-count*)))
    (ghost (connection message)))
  
  (defun pong-hook (message)
    (declare (ignore message))
    (write-line "pong"))
  
  (defun start-specbot (nick server &rest channels)
    (spec-lookup:read-specifications)
  