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:         (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 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))
  