anchor.diff:  				  (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)
  
positive.code:                                                                 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))))
  
negative.code:                                            :right right-val)))
  	result)))
  
  (defun expand-jewel-candidates (prelim env)
    #f3
    (let* (result
  