anchor.diff:      (emit-rel-fun relative-function frames :stream f)
       (emit-parents-array parents-array frames :stream f)
       (emit-names-array names-array frames :stream f)
  +    (emit-axes-array axes-array frames :stream f)
       (emit-abs-fun absolute-function frames :stream f :normalize normalize)
       )
     ;; dot
  
positive.code: ;;;;   POSSIBILITY OF SUCH DAMAGE.
  
  (in-package :reflex)
  
  (defmacro def-frame-var (var doc)
    (let ((frame (gensym "FRAME")))
  
negative.code:          (:fixed (emit-fixed-frame frame stream "e"))
           (otherwise (error "Unknown type of frame ~A" (frame-name frame)))))
    (format stream "~&}"))
  
  ;; (defun emit-jacobian-fun (name frames &key (stream t))
  ;;   (format stream "~&void ~A~&(~{~A~^, ~}) ~&{~&"
  ;;           name
  ;;           '("const double *restrict tf_abs"
  ;;             "size_t n" "const size_t *restrict indices" "const double *restrict pe"
  ;;             "double *restrict J" "size_t ldJ"))
  
  
  (defun emit-abs-fun (name frames &key normalize (stream t))
  