Change syntax for boxed array to support different length and allocated-length (#568)

* change syntax for boxed array

* fix test and make the flava thing kind of work

test/decompiler/reference/engine/dma/dma-disasm_REF.gc

@@ -36,8 +36,7 @@
    (new
     'static
     'boxed-array
-    vif-disasm-element
-    34
+    :type vif-disasm-element :length 34 :allocated-length 34
     (new 'static 'vif-disasm-element :mask #x7f :string1 "nop")
     (new 'static 'vif-disasm-element
      :mask #x7f

test/decompiler/reference/engine/gfx/wind-h_REF.gc

@@ -26,8 +26,7 @@
    (new
     'static
     'boxed-array
-    uint8
-    32
+    :type uint8 :length 32 :allocated-length 32
     #x2
     #x5
     #x2
@@ -98,7 +97,3 @@
    63
    )
   )
-
-
-
-

test/decompiler/reference/engine/math/euler-h_REF.gc

@@ -4,13 +4,17 @@
 ;; definition for symbol EulSafe, type (array int32)
 (define
   EulSafe
-  (the-as (array int32) (new 'static 'boxed-array int32 4 0 1 2 0))
+  (the-as (array int32)
+   (new 'static 'boxed-array :type int32 :length 4 :allocated-length 4 0 1 2 0)
+   )
   )
 
 ;; definition for symbol EulNext, type (array int32)
 (define
   EulNext
-  (the-as (array int32) (new 'static 'boxed-array int32 4 1 2 0 1))
+  (the-as (array int32)
+   (new 'static 'boxed-array :type int32 :length 4 :allocated-length 4 1 2 0 1)
+   )
   )
 
 ;; definition of type euler-angles
@@ -37,7 +41,3 @@
 ;; failed to figure out what this is:
 (let ((v0-1 0))
   )
-
-
-
-

test/decompiler/reference/engine/math/trigonometry_REF.gc

@@ -92,8 +92,7 @@
    (new
     'static
     'boxed-array
-    float
-    32
+    :type float :length 32 :allocated-length 32
     1.0
     0.5
     0.25
@@ -137,8 +136,7 @@
    (new
     'static
     'boxed-array
-    float
-    32
+    :type float :length 32 :allocated-length 32
     0.7853982
     0.4636476
     0.24497867

test/decompiler/reference/engine/ui/credits_REF.gc

@@ -35,7 +35,19 @@
 (define
   *title-credits-scale*
   (the-as (array float)
-   (new 'static 'boxed-array float 8 0.9 0.9 0.6 0.6 1.0 0.9 1.1 0.9)
+   (new
+    'static
+    'boxed-array
+    :type float :length 8 :allocated-length 8
+    0.9
+    0.9
+    0.6
+    0.6
+    1.0
+    0.9
+    1.1
+    0.9
+    )
    )
   )
 
@@ -43,7 +55,19 @@
 (define
   *title-credits-spacing*
   (the-as (array int32)
-   (new 'static 'boxed-array int32 8 15 20 15 15 20 15 20 15)
+   (new
+    'static
+    'boxed-array
+    :type int32 :length 8 :allocated-length 8
+    15
+    20
+    15
+    15
+    20
+    15
+    20
+    15
+    )
    )
   )
 
@@ -196,7 +220,3 @@
     )
    )
   )
-
-
-
-

test/decompiler/reference/engine/ui/text-h_REF.gc

@@ -48,7 +48,14 @@
 ;; definition for symbol *text-group-names*, type (array string)
 (define
   *text-group-names*
-  (the-as (array string) (new 'static 'boxed-array string 1 "common"))
+  (the-as (array string)
+   (new
+    'static
+    'boxed-array
+    :type string :length 1 :allocated-length 1
+    "common"
+    )
+   )
   )
 
 ;; definition for symbol *common-text-heap*, type kheap