anchor.diff:                                                                  points)
                                        :forest forest
                                        :jewel-sets valid-sets))))))
  -
   
   (defun make-extra-skill-emitter (input required-effects n)
     (let* ((required-ids (mapcar #`,(first x1) (first-n required-effects (1+ n))))
  
positive.code: 				  (keyed-jewel-set-key cand)
  				  n)))))
      (when jewel-cands
  	       ;; (<= minimum (max-at-skill (preliminary-forest prelim)
  	       ;; 				 (split-env-target-id env))))
        (let ((armor-cands (split-forest-at-skill
                            (preliminary-forest prelim)
                            (split-env-target-id env)
  
negative.code:                                            :right right-val)))
  	result)))
  
  (defun expand-jewel-candidates (prelim env)
    #f3
    (let* (result
  