anchor.diff:        (apply #'add-global-car-reference-point *global-car-reference-point*)
         (set-global-reference-frame)
         (calculate)
  -      (values (get-m) (get-n)))
  +      (multiple-value-prog1
  +          (values (get-m) (get-n))
  +        (del-all)))
     400.96040801712263d0 370.25506200401304d0)
   
   (rt:deftest mono/1
  
positive.code:        0d0 0d0 0d0 0d0 0d0 0d0 0d0 0d0 0d0 0d0 0d0 0d0)
        (add-bpoint 223d0 300d0)
        (calculate)
        (values
         (get-m) (get-n)
         (get-x-local) (get-y-local) (get-z-local)
         (get-stdx-local) (get-stdy-local) (get-stdz-local)
         (get-x-global) (get-y-global) (get-z-global)
         (get-stdx-global) (get-stdy-global) (get-stdz-global)))
    223.0d0 300.0d0
    -1062.3945612937443d0 1587.5888858836176d0 -7728.733215755937d0
    5.473015866381161d0 12.58146038763985d0 57.68237735678784d0
  
negative.code:       (apply #'add-global-car-reference-point *global-car-reference-point*)
        (set-global-reference-frame)
        (calculate)
        (multiple-value-prog1
            (values
             (get-m) (get-n)
             (get-x-local) (get-y-local) (get-z-local)
             (get-stdx-local) (get-stdy-local) (get-stdz-local)
             (get-x-global) (get-y-global) (get-z-global)
             (get-stdx-global) (get-stdy-global) (get-stdz-global))
          (del-all)))
    401.0d0 370.0d0
    0.4065545831586287d0 0.5052388614207152d0 -3.7809044494132813d0
    0.0030916030241650407d0 0.004254531230252718d0 0.019928437349091173d0
  