anchor.diff:  (defparameter *counter* nil)
   (defparameter *dispatch-table* nil)
   
  -;;
  +;; Server
   
   (defun check-prime (n)
     (cond ((< n 2) nil)
  
positive.code:                                                      (loop-finish)
                                                       :do (sleep 0.001))))))
  
  ;; 
  
negative.code:             :when (= (mod n i) 0)
              return T) nil)
          (T T)))
  
  (defun check-answer (answer)
    (let ((x 0)
          (y 0)
  