anchor.diff:                (format t "No more actions found")
                 (return))
               (setf state (next-state game state action))
  +            (when (> (field-score state)
  +                     (field-score best-state))
  +              (setf best-state state))
               (format t "Iteration ~A score ~,3F~%"
                       iteration (field-score state))
               (when log-dir
  
positive.code:                            :type "svg"
                             :defaults log-dir)))
                  (draw-polygons-to-svg (field state) :filename file)))))
      (with-open-file
       (*standard-output* solution-file
                          :direction :output
                          :if-exists :supersede
                          :if-does-not-exist :create)
       (print-solution (field state) :matrix (adjustment-matrix state)))))
  
  (defmethod clone-state (_ (st game-state))
    st)
  
negative.code:                            log-dir)
    (let* ((root-state (read-task-state problem-file))
           (state root-state)
           (best-state state)
           (game :origami-solver)
           (iteration 0))
      (loop while (and (< (field-score state) 1)
  