anchor.diff:    (reset-srv)
     (hunchentoot:define-easy-handler (post :uri "/post") (token answer)
       (setf (hunchentoot:content-type*) "text/plain")
  -    (let ((score (check-answer answer)))
  +    (let ((score (check-answer answer))
  +          (time (- (get-internal-real-time) *starttime*)))
         (if score
  -          (progn (push (cons token score) *answers*)
  -                 "回答を受け付けました")
  -          "回答に不備があるっぽい？"))))
  +          (progn (push (list token score time) *answers*)
  +                 "OK")
  +          "FAILED"))))
   
   (defun stop-srv ()
     (hunchentoot:stop hunchentoot:*acceptor*))
  
positive.code: (defparameter *counter* nil)
  (defparameter *dispatch-table* nil)
  
  ;; 問題公開・回答提出用サーバ
  
  (defun check-answer (answer)
    T)
  
  (defun start-srv ()
    (setf hunchentoot:*acceptor* (make-instance 'hunchentoot:easy-acceptor :port 4242))
  
negative.code:   (setf *starttime* (+ (* (read) 60 1000) (get-internal-real-time)))
    (setf *counter* (bordeaux-threads:make-thread (lambda ()
                                                    (loop
                                                       :if (<= *starttime* (get-internal-real-time))
                                                       :do (start-match)
                                                       (loop-finish)
                                                       :do (sleep 0.001))))))
  
  ;; 
  