anchor.diff:  
   (defclass player () ;-----------------------------------------------------
     ((name :reader get-name :initarg :name)
  +   (place :accessor place)
      (total-score :accessor total-score :initform 0)))
   
   (defmethod add-score ((object player) score)
  
positive.code: 
  (play *game*)
  (winner *game*)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (define-test test-player-creation
      (let ((new-player (make-instance 'player :name "Jacek")))
  
negative.code: (defmethod get-scores ((object game))
    (let ((score-sorted-players (sort (players object) #'> :key #'total-score))
  	(last-score 0)
  	(place 0))
      (dolist (player score-sorted-players)
        (if (not (= (total-score player) last-score))
  	  (incf place))
        (setf (place player) place)
        (setf last-score (total-score player))
        (format t "~&~d ~a ~S" (place player) (get-name player) (total-score player)))
      score-sorted-players))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  