anchor.diff:  (defun logger (message)
     (format t "~&Logged: ~A~%" message))
   
  +#-(and) ((rights
  +          
  +          (query criterial)
  +          (create-log server #name)
  +          (create-server hostname)
  +          )
  +         (commands
  +
  +          (register password email) ; -> (create-user server name password email)
  +          (identify password)       ; -> (validate-user user password)
  +          (send-pass [nickname]) ; -> (send-password-change-key user) ; NY
  +          (set-pass nickname key password) ; -> (set-password user key password) ; NY
  +          (list-logs)                      ; -> (list-logs user)
  +
  +          (query criteria)              
  +          (create-log #name [start-date [end-date]])  ; -> (create-channel server #name) (create-log-request channel user start-date end-date)
  +          (create-server hostname [botil-nick]) ; (create-server hostname botil-nick) --> actual-botil-nick
  +
  +          ))
   (defun command-processor (sender command)
  -  (let ((words (split-sequence #\space command :remove-empty-subseqs t)))
  +  (let ((words (split-sequence #\space command :remove-empty-subseqs t))
  +        (commands '(help version uptime sources)))
       (scase (first words)
              (("help")
  -            (answer sender "Available commands: help version uptime sources"))
  +            (answer sender "Available commands: ~(~{~A~^, ~}~)." commands))
              (("version")
               (answer sender "Version: ~A" *version*))
              (("uptime")
  
positive.code: ;;                     #+openmcl :deadline #+openmcl (compute-deadline 3))
  ;;     (when (= 200 status)
  ;;       (decode-json-from-string value))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
negative.code:         "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
          "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM"
          "COM.INFORMATIMAGO.CLEXT.QUEUE")
    (:shadow "LOG")
    (:import-from "COM.INFORMATIMAGO.COMMON-LISP.INTERACTIVE.INTERACTIVE"
                  "DATE" "UPTIME")
    (:export "MAIN")
  