anchor.diff:    (command-message (format nil "~{~a~^, ~}" +commands-names+)))
   
   
  -(defun /log (&optional (depth 15))
  +(defun /log (&optional (depth 20))
     (format nil "~{~a~^~%~}" (reverse (subseq *messages-log* 0
                                               (min depth (length *messages-log*))))))
   
  
positive.code: (in-package :lisp-chat-server)
  
  ;; constants
  (defparameter +commands-names+ '("/users" "/help" "/log" "/quit" "/uptime"))
  (defparameter +day-names+ '("Monday" "Tuesday" "Wednesday"
                              "Thursday" "Friday" "Saturday" "Sunday"))
  
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))
  