# Pastebin z2rDcRhS
(progn
  (defmacro +6q (cpindex)     `,cpindex)
  (defmacro +6theta (cpindex) `(+ 1 ,cpindex))
  (defmacro +6phi (cpindex)   `(+ 2 ,cpindex))
  (defmacro +5q (cpindex)     `,cpindex)
  (defmacro +5phi (cpindex)   `(+ 1 ,cpindex))

  (defmacro @6q (cpinternals cpindex)     `(aref ,cpinternals ,(+6q cpindex)))
  (defmacro @6theta (cpinternals cpindex) `(aref ,cpinternals ,(+6theta cpindex)))
  (defmacro @6phi (cpinternals cpindex)   `(aref ,cpinternals ,(+6phi cpindex)))
  (defmacro @5q (cpinternals cpindex)     `(aref ,cpinternals ,(+5q cpindex)))
  (defmacro @5phi (cpinternals cpindex)   `(aref ,cpinternals ,(+5phi cpindex)))
  )

;;; The old way of extracting the parameters
(defun extract-ring6-cps-old (cpinternals cpindex)
  (values (aref cpinternals cpindex)         ; q
          (aref cpinternals (+ 1 cpindex))   ; theta
          (qref cpinternals (+ 2 cpindex)))) ; phi

;;; The more readable and more future proof
(defun extract-ring6-cps (cpinternals cpindex)
  (values (@6q cpinternals cpindex)
          (@6theta cpinternals cpindex)
          (@6phi cpinternals cpindex)))

;;; The old way of extracting the parameters
(defun extract-ring5-cps-old (cpinternals cpindex)
  (values (aref cpinternals cpindex)         ; q
          (aref cpinternals (+ 1 cpindex)))) ; phi

;;; The more readable and more future proof
(defun extract-ring5-cps (cpinternals cpindex)
  (values (@5q cpinternals cpindex)
          (@5phi cpinternals cpindex)))