anchor.diff:  		   (destructuring-bind (yi . xi)
   		       yx
   		     (if (= (funcall h xi) yi)
  -			 (* wi (/ err (- 1 err)))
  +			 (* wi (/ err 
  +				  (max (- 1 err) EPSILON)))
   			 wi)))
   	       cases weights)))
       (values (normalize edited-weights)
  
positive.code: ;;;; phenex.lisp
  
  (in-package #:phenex)
  
  (defmacro bind (&body body)
    `(multiple-value-bind ,@body))
  
negative.code: 		    (setf w w+
  			  (svref h k) h-fn
  			  (svref z k) (log (/ (- 1 h-err)
  					      (max h-err EPSILON))
  					   2))
  		    (incf k)))))
      (cons h z)))
  