anchor.diff:  
   (defun container-link-fk (container link q-link &optional tf)
     (let ((tf (if tf tf (amino:quaternion-translation nil))))
  -    (let ((result (amino::with-dynamic-vector-foreign (q-link n-link) q-link
  +    (let ((result (amino-ffi:with-foreign-simple-vector (q-link n-link) q-link :input
                       (tms-container-link-fk container link n-link q-link
                                               (amino::quaternion-translation-quaternion tf)
                                               (amino::quaternion-translation-translation tf)))))
  
positive.code: 
  (defun container-group-fk (container group q-group &optional tf)
    (let ((tf (if tf tf (amino:quaternion-translation nil))))
      (let ((result (amino::with-dynamic-vector-foreign (q-group n-group) q-group
                      (tms-container-group-fk container group n-group q-group
                                              (amino::quaternion-translation-quaternion tf)
                                              (amino::quaternion-translation-translation tf)))))
  
negative.code:   (q-all :pointer))
  
  (defun container-set-start (container q-all)
    (let ((result (amino-ffi:with-foreign-simple-vector (q-all n-all) q-all :input
                    (tms-container-set-start container n-all q-all))))
      (check-tms-result result "set-start")))
  
  