anchor.diff:  (defun client-reader-routine (client)
     (loop for message = (read-line (client-stream client))
           while (not (equal message "/quit"))
  -        when (member message *commands-names* :test #'equal)
  +        when (member message +commands-names+ :test #'equal)
             do (send-message client (call-command-by-name message))
           when (and (> (length message) 0)
  -                  (not (member message *commands-names* :test #'equal)))
  +                  (not (member message +commands-names+ :test #'equal)))
             do (push-message (client-name client)
                              message)
           finally (client-delete client)))
  
positive.code: (defun /uptime ()
    (multiple-value-bind
          (second minute hour date month year day-of-week dst-p tz)
        (values-list *uptime*)
      (declare (ignore dst-p))
      (command-message (format nil "Server online since ~2,'0d:~2,'0d:~2,'0d of ~a, ~2,'0d/~2,'0d/~d (GMT~@d)"
                               hour
                               minute
                               second
                               (nth day-of-week *day-names*)
                               month
                               date
                               year
  
negative.code: 
  
  (defun /help ()
    (command-message (format nil "~{~a~^, ~}" +commands-names+)))
  
  
  (defun /log (&optional (depth 15))
  