anchor.diff:          (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+)
  +    (command-message
  +     (format nil
  +             "Server online since ~2,'0d:~2,'0d:~2,'0d of ~a, ~2,'0d/~2,'0d/~d (GMT~@d)"
  +             hour
  +             echo-stream-input-stream
  +             serious-condition
  +             (nth day-of-week +day-names+)
                                month
                                date
                                year
  
positive.code:   (command-message (format nil "~{~a~^, ~}" +commands-names+)))
  
  
  (defun /log (&optional (depth 15))
    (format nil "~{~a~^~%~}" (reverse (subseq *messages-log* 0
                                              (min depth (length *messages-log*))))))
  
  
negative.code: (defun client-reader-routine (client)
    (loop for message = (read-line (client-stream client))
          while (not (equal message "/quit"))
          if (member message +commands-names+ :test #'equal)
            do (send-message client (call-command-by-name message))
          else
            when (> (length message) 0)
              do (push-message (client-name client)
                               message)
          finally (client-delete client)))
  
  (defun client-reader (client)
    (handler-case (client-reader-routine client)
      (end-of-file () (client-delete client))
      (sb-int:simple-stream-error ()
        (progn (debug-format t "~a@~a timed output"
                             (client-name client)
                             (client-address client))
               (client-delete client)))
      (sb-bsd-sockets:not-connected-error ()
        (progn (debug-format t "~a@~a not connected more."
                             (client-name client)
                             (client-address client))
               (client-delete client)))))
  
  (defun create-client (connection)
    (debug-format t "Incoming connection from ~a ~%" (socket-peer-address connection))
  