anchor.diff:                               :direction :output
                                :if-exists :supersede
                                :if-does-not-exist :create)
  -        (print-solution (field best-state) :matrix (inverse-tr-matrix
  -                                                    (adjustment-matrix state)))
  +        (print-solution (field best-state)
  +                        :matrix (inverse-tr-matrix
  +                                 (adjustment-matrix state)))
           (field-score best-state)))))
   
   (defmethod clone-state (_ (st game-state))
  
positive.code:      st
       :target-field new-silhouette
       :adjusted t
       :adjustment-matrix matrix
       :field-score (get-field-score (field st) new-silhouette))))
  
  (defun find-non-collinear-point (line polygon)
  
negative.code:                                (silhouette problem))))
           (bb-matrix (translate-matrix (- (cl-geometry::x-min bbox))
                                        (- (cl-geometry::y-min bbox))))
           (silhouette (mult-polygons-matrix (silhouette problem) bb-matrix))
           (possible-adj-matrs (or (polygons-right-matrices silhouette)
                                   (list (identity-tr-matrix)))
             ))
      (make-instance 'game-state
                     :field (list start)
                     :adjustment-matrix bb-matrix
                     :target-field silhouette
                     :field-score 0
                     :possible-adjustment-matrices possible-adj-matrs)))
  
  (defun solve (problem-file solution-file
  