New Pretty Printer (#994)

* begin work on improved pretty printer

* update ref

* finish pretty printer

* force line break for defstate

test/decompiler/reference/engine/data/art-h_REF.gc

@@ -99,20 +99,13 @@
 
 ;; definition for method 0 of type joint-anim-frame
 ;; INFO: Return type mismatch structure vs joint-anim-frame.
-(defmethod
-  new
-  joint-anim-frame
-  ((allocation symbol) (type-to-make type) (arg0 int))
+(defmethod new joint-anim-frame ((allocation symbol) (type-to-make type) (arg0 int))
   (let ((v1-1 (max 0 (+ arg0 -2))))
-   (the-as
-    joint-anim-frame
-    (new-dynamic-structure
-     allocation
-     type-to-make
-     (the-as int (+ (-> type-to-make size) (* 48 v1-1)))
-     )
+    (the-as
+      joint-anim-frame
+      (new-dynamic-structure allocation type-to-make (the-as int (+ (-> type-to-make size) (* 48 v1-1))))
+      )
     )
-   )
   )
 
 ;; definition of type joint-anim-compressed-hdr
@@ -151,10 +144,7 @@
   )
 
 ;; definition for method 3 of type joint-anim-compressed-fixed
-(defmethod
-  inspect
-  joint-anim-compressed-fixed
-  ((obj joint-anim-compressed-fixed))
+(defmethod inspect joint-anim-compressed-fixed ((obj joint-anim-compressed-fixed))
   (format #t "[~8x] ~A~%" obj 'joint-anim-compressed-fixed)
   (format #t "~Thdr: #<joint-anim-compressed-hdr @ #x~X>~%" (-> obj hdr))
   (format #t "~Toffset-64: ~D~%" (-> obj offset-64))
@@ -179,10 +169,7 @@
   )
 
 ;; definition for method 3 of type joint-anim-compressed-frame
-(defmethod
-  inspect
-  joint-anim-compressed-frame
-  ((obj joint-anim-compressed-frame))
+(defmethod inspect joint-anim-compressed-frame ((obj joint-anim-compressed-frame))
   (format #t "[~8x] ~A~%" obj 'joint-anim-compressed-frame)
   (format #t "~Toffset-64: ~D~%" (-> obj offset-64))
   (format #t "~Toffset-32: ~D~%" (-> obj offset-32))
@@ -206,10 +193,7 @@
   )
 
 ;; definition for method 3 of type joint-anim-compressed-control
-(defmethod
-  inspect
-  joint-anim-compressed-control
-  ((obj joint-anim-compressed-control))
+(defmethod inspect joint-anim-compressed-control ((obj joint-anim-compressed-control))
   (format #t "[~8x] ~A~%" obj 'joint-anim-compressed-control)
   (format #t "~Tnum-frames: ~D~%" (-> obj num-frames))
   (format #t "~Tfixed-qwc: ~D~%" (-> obj fixed-qwc))
@@ -496,11 +480,7 @@
   (format #t "~Tcolor-mult: #<rgbaf @ #x~X>~%" (-> obj color-mult))
   (format #t "~Tcolor-emissive: #<rgbaf @ #x~X>~%" (-> obj color-emissive))
   (format #t "~Tsecondary-interp: ~f~%" (-> obj secondary-interp))
-  (format
-   #t
-   "~Tcurrent-secondary-interp: ~f~%"
-   (-> obj current-secondary-interp)
-   )
+  (format #t "~Tcurrent-secondary-interp: ~f~%" (-> obj current-secondary-interp))
   (format #t "~Tshadow-mask: ~D~%" (-> obj shadow-mask))
   (format #t "~Tlevel-index: ~D~%" (-> obj level-index))
   (format #t "~Torigin-joint-index: ~D~%" (-> obj origin-joint-index))