anchor.diff:        (apply calc (decode-hole-sig hole-key)))))
   
   (defun dfs-jewel-query (required-skill-ids hole-alignment)
  +  "This is a naive alternative to the previous algorithm. It was
  +  orignally implemented for checking the correctness of the previous
  +  algorithm, but can be used in practice as well."
     (let (result)
       (labels ((align-+ (alignment-a alignment-b)
   	       (loop 
  
positive.code: 			       ,@body)))))
  	 #'self)))))
    
  			
  (defun jewel-query-client (required-effects)
    (let* ((required-skill-ids (mapcar #`,(car x1) required-effects))
  	 (calc-fixed (mnemonic-alambda ((holes 4) (num 50))
  		       (if (= num 1)
  
negative.code:     (compact-super-jewel-set result)))
  
  (defmacro exec-super-jewel-set-expr (expr)
    "EXPR is an expression with compound + or * (both operator are
    described in /doc/jewel-query/jewel-query.pdf"
    (labels ((expand (expr)
  	     (aif (cond ((not (consp expr)) nil)
  			 ((eq (car expr) '+) `(append ,(expand (cadr expr))
  