rv32: simple initial file in build-order

to help discover what doesn't work

build-order.lisp-expr

@@ -35,6 +35,7 @@
 
 #-warm-build-phase
 (
+ ("src/code/scratch" :not-host :trace-file)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; miscellaneous
  ;; This comes as early as possible, so that we catch the source locations

src/code/scratch.lisp

@@ -0,0 +1,3 @@
+(defun foo (x)
+  (declare (type (simple-array fixnum (*)) x))
+  (aref x 1))