(defun format-situation-data-vector (sit &key elts dims code round)
  (when (not elts) (setf elts (eccarlate-elements)))
  (when (not dims) (setf dims (eccarlate-dimensions)))
  (let ((sit-data (loldescribe sit :scale nil :round round))
        main-data
        body-data
        (d (mapcar #'class-name (find-subclasses 'laban-dimension))))
    (setf main-data (remove 'nil
                            (mapcar #'(lambda (x)
                                        (assoc x sit-data))
                                    (eccarlate-dimensions)))
          body-data
          (loop for e in elts
                collect
                (let ((data (assoc e sit-data)))
                  (if data data
                      (append (list e)
                              (mapcar #'(lambda (x)
                                          (list x (vectorize-lol-dim (make-instance x))))
                                      d)))
                      )))
    (if code
      (list
       (apply #'concatenate 'vector (mapcar #'cadr main-data))
       (loop for data in body-data
             collect
             (apply #'concatenate 'vector (mapcar #'cadr (cdr data)))))
      (append main-data body-data))))