rv32: simple initial file in build-order

to help discover what doesn't work
csrhodes · Aug 1, 2018 · f681d671dd963cce9e8c5c9ceba8f704ab39ad62 · f681d67
1 parent d253603
commit f681d671dd963cce9e8c5c9ceba8f704ab39ad62
Unified Split

Showing with 4 additions and 0 deletions.

+1 −0 build-order.lisp-expr

+3 −0 src/code/scratch.lisp
diff --git a/build-order.lisp-expr b/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

diff --git a/src/code/scratch.lisp b/src/code/scratch.lisp
@@ -0,0 +1,3 @@
+  
+(defun foo (x)
+  
+  (declare (type (simple-array fixnum (*)) x))
+  
+  (aref x 1))