anchor.diff:                         collect `((equal ,kf-sym ,cases) ,@then))))))
   
   (defun parse-range-modifiers (power)
  +  "Read the z, q, g and p modifiers – modifiers that alter the shape of a multi-step process."
     (when (riderp power)
       (list :rider
             (list :limit (riderp power)
  
positive.code:             (list sig  sig sig  sig  sig  sig  sig  sig))))
  
  (defun force-exist-symbol (name package)
    (or (find-symbol (string-upcase name)
                     (string-upcase package))
        (intern (string-upcase name)
  
negative.code:                                        (t :line))))))
  
  (defun parse-movement-modifiers (power)
    "Read the c and m modifiers – modifiers that control how other pieces block or allow capture at the destination square."
    (list :move (movingp (modifiers power))
          :capture (capturingp (modifiers power))))
  
  (defun parse-jumping-modifiers (power)
    "Read the j and n modifiers – modifiers that control how otehr pieces block or allow capture on the way to the destination."
    (when (or (riderp power)
              (not (or (equal (landmark power) "W")
                       (equal (landmark power) "F"))))
  