anchor.diff:                                            :defaults *database*)
                                      *database*)))
       (ensure-directories-exist pathname)
  -    (let ((user (make-instance 'user :server sever :name name)))
  +    (let ((user (make-instance 'botil-user :server sever :name name)))
         (save-user user))))
   
   (defmethod log-file ((channel channel))
  
positive.code:              :accessor email
               :type     (or null email))))
  
  (defmethod print-object ((user user) stream)
    (print-unreadable-object (user stream :identity nil :type t)
      (format stream "~a@~a" (name user) (hostname server)))
    user)
  
negative.code: (defun answer (recipient format-control &rest format-arguments)
    (let ((text (apply (function format) nil format-control format-arguments)))
      (say text)
      (apply (function send-irc) *sender* recipient format-control format-arguments)))
  
  (defun query-processor (sender query)
    (declare (ignore sender query))
  