Artifact e1374dd7ef60af4870a9132b8b28d77d1497dd02:
- File db_records.scm — part of check-in [b2b8a3f26c] at 2011-11-05 18:11:11 on branch trunk — Got cells.scm and matrix.scm example files working. More steps stuff working Added tests for ezsteps and logpro l (user: matt size: 6931)
0000: 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 64 62 (define (make-db 0010: 3a 74 65 73 74 29 28 6d 61 6b 65 2d 76 65 63 74 :test)(make-vect 0020: 6f 72 20 36 29 29 0a 28 64 65 66 69 6e 65 2d 69 or 6)).(define-i 0030: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 nline (db:test-g 0040: 65 74 2d 69 64 20 20 20 20 20 20 20 20 20 20 20 et-id 0050: 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 65 66 vec) (vector-ref 0060: 20 76 65 63 20 30 29 29 0a 28 64 65 66 69 6e 65 vec 0)).(define 0070: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test 0080: 2d 67 65 74 2d 72 75 6e 5f 69 64 20 20 20 20 20 -get-run_id 0090: 20 20 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 vec) (vector-r 00a0: 65 66 20 76 65 63 20 31 29 29 0a 28 64 65 66 69 ef vec 1)).(defi 00b0: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 ne-inline (db:te 00c0: 73 74 2d 67 65 74 2d 74 65 73 74 6e 61 6d 65 20 st-get-testname 00d0: 20 20 20 20 76 65 63 29 20 28 76 65 63 74 6f 72 vec) (vector 00e0: 2d 72 65 66 20 76 65 63 20 32 29 29 0a 28 64 65 -ref vec 2)).(de 00f0: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db: 0100: 74 65 73 74 2d 67 65 74 2d 73 74 61 74 65 20 20 test-get-state 0110: 20 20 20 20 20 20 76 65 63 29 20 28 76 65 63 74 vec) (vect 0120: 6f 72 2d 72 65 66 20 76 65 63 20 33 29 29 0a 28 or-ref vec 3)).( 0130: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d 0140: 62 3a 74 65 73 74 2d 67 65 74 2d 73 74 61 74 75 b:test-get-statu 0150: 73 20 20 20 20 20 20 20 76 65 63 29 20 28 76 65 s vec) (ve 0160: 63 74 6f 72 2d 72 65 66 20 76 65 63 20 34 29 29 ctor-ref vec 4)) 0170: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 0180: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 65 76 65 (db:test-get-eve 0190: 6e 74 5f 74 69 6d 65 20 20 20 76 65 63 29 20 28 nt_time vec) ( 01a0: 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 35 vector-ref vec 5 01b0: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin 01c0: 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 68 e (db:test-get-h 01d0: 6f 73 74 20 20 20 20 20 20 20 20 20 76 65 63 29 ost vec) 01e0: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 (vector-ref vec 01f0: 20 36 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 6)).(define-inl 0200: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 ine (db:test-get 0210: 2d 63 70 75 6c 6f 61 64 20 20 20 20 20 20 76 65 -cpuload ve 0220: 63 29 20 28 76 65 63 74 6f 72 2d 72 65 66 20 76 c) (vector-ref v 0230: 65 63 20 37 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 7)).(define-i 0240: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 nline (db:test-g 0250: 65 74 2d 64 69 73 6b 66 72 65 65 20 20 20 20 20 et-diskfree 0260: 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 65 66 vec) (vector-ref 0270: 20 76 65 63 20 38 29 29 0a 28 64 65 66 69 6e 65 vec 8)).(define 0280: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test 0290: 2d 67 65 74 2d 75 6e 61 6d 65 20 20 20 20 20 20 -get-uname 02a0: 20 20 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 vec) (vector-r 02b0: 65 66 20 76 65 63 20 39 29 29 0a 28 64 65 66 69 ef vec 9)).(defi 02c0: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 ne-inline (db:te 02d0: 73 74 2d 67 65 74 2d 72 75 6e 64 69 72 20 20 20 st-get-rundir 02e0: 20 20 20 20 76 65 63 29 20 28 76 65 63 74 6f 72 vec) (vector 02f0: 2d 72 65 66 20 76 65 63 20 31 30 29 29 0a 28 64 -ref vec 10)).(d 0300: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db 0310: 3a 74 65 73 74 2d 67 65 74 2d 69 74 65 6d 2d 70 :test-get-item-p 0320: 61 74 68 20 20 20 20 76 65 63 29 20 28 76 65 63 ath vec) (vec 0330: 74 6f 72 2d 72 65 66 20 76 65 63 20 31 31 29 29 tor-ref vec 11)) 0340: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 0350: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 72 75 6e (db:test-get-run 0360: 5f 64 75 72 61 74 69 6f 6e 20 76 65 63 29 20 28 _duration vec) ( 0370: 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 31 vector-ref vec 1 0380: 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 2)).(define-inli 0390: 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d ne (db:test-get- 03a0: 66 69 6e 61 6c 5f 6c 6f 67 66 20 20 20 76 65 63 final_logf vec 03b0: 29 20 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 ) (vector-ref ve 03c0: 63 20 31 33 29 29 0a 28 64 65 66 69 6e 65 2d 69 c 13)).(define-i 03d0: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 nline (db:test-g 03e0: 65 74 2d 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 et-comment 03f0: 76 65 63 29 20 28 76 65 63 74 6f 72 2d 72 65 66 vec) (vector-ref 0400: 20 76 65 63 20 31 34 29 29 0a 28 64 65 66 69 6e vec 14)).(defin 0410: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes 0420: 74 2d 67 65 74 2d 66 75 6c 6c 6e 61 6d 65 20 20 t-get-fullname 0430: 20 20 20 76 65 63 29 0a 20 20 28 63 6f 6e 63 20 vec). (conc 0440: 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 74 65 73 (db:test-get-tes 0450: 74 6e 61 6d 65 20 76 65 63 29 20 22 2f 22 20 28 tname vec) "/" ( 0460: 64 62 3a 74 65 73 74 2d 67 65 74 2d 69 74 65 6d db:test-get-item 0470: 2d 70 61 74 68 20 76 65 63 29 29 29 0a 3b 3b 20 -path vec))).;; 0480: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 0490: 64 62 3a 74 65 73 74 2d 67 65 74 2d 76 61 6c 75 db:test-get-valu 04a0: 65 20 20 20 20 20 20 20 20 76 65 63 29 20 28 70 e vec) (p 04b0: 72 69 6e 74 61 62 6c 65 20 28 76 65 63 74 6f 72 rintable (vector 04c0: 2d 72 65 66 20 76 65 63 20 31 35 29 29 29 0a 3b -ref vec 15))).; 04d0: 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ; (define-inline 04e0: 20 28 64 62 3a 74 65 73 74 2d 67 65 74 2d 65 78 (db:test-get-ex 04f0: 70 65 63 74 65 64 5f 76 61 6c 75 65 20 76 65 63 pected_value vec 0500: 29 28 70 72 69 6e 74 61 62 6c 65 20 28 76 65 63 )(printable (vec 0510: 74 6f 72 2d 72 65 66 20 76 65 63 20 31 36 29 29 tor-ref vec 16)) 0520: 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 6e 6c ).;; (define-inl 0530: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 65 74 ine (db:test-get 0540: 2d 74 6f 6c 20 20 20 20 20 20 20 20 20 20 76 65 -tol ve 0550: 63 29 20 28 70 72 69 6e 74 61 62 6c 65 20 28 76 c) (printable (v 0560: 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 31 37 ector-ref vec 17 0570: 29 29 29 0a 3b 3b 20 28 64 65 66 69 6e 65 2d 69 ))).;; (define-i 0580: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 nline (db:test-g 0590: 65 74 2d 75 6e 69 74 73 20 20 20 20 20 20 20 20 et-units 05a0: 76 65 63 29 20 28 70 72 69 6e 74 61 62 6c 65 20 vec) (printable 05b0: 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 (vector-ref vec 05c0: 31 35 29 29 29 20 3b 3b 20 31 38 29 29 29 0a 28 15))) ;; 18))).( 05d0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d 05e0: 62 3a 74 65 73 74 2d 67 65 74 2d 66 69 72 73 74 b:test-get-first 05f0: 5f 65 72 72 20 20 20 20 76 65 63 29 20 28 70 72 _err vec) (pr 0600: 69 6e 74 61 62 6c 65 20 28 76 65 63 74 6f 72 2d intable (vector- 0610: 72 65 66 20 76 65 63 20 31 35 29 29 29 20 3b 3b ref vec 15))) ;; 0620: 20 31 39 29 29 29 0a 28 64 65 66 69 6e 65 2d 69 19))).(define-i 0630: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 67 nline (db:test-g 0640: 65 74 2d 66 69 72 73 74 5f 77 61 72 6e 20 20 20 et-first_warn 0650: 76 65 63 29 20 28 70 72 69 6e 74 61 62 6c 65 20 vec) (printable 0660: 28 76 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 (vector-ref vec 0670: 31 36 29 29 29 20 3b 3b 20 32 30 29 29 29 0a 0a 16))) ;; 20))).. 0680: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 0690: 64 62 3a 74 65 73 74 2d 73 65 74 2d 74 65 73 74 db:test-set-test 06a0: 6e 61 6d 65 21 20 76 65 63 20 76 61 6c 29 28 76 name! vec val)(v 06b0: 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 32 ector-set! vec 2 06c0: 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 val)).(define-i 06d0: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 73 nline (db:test-s 06e0: 65 74 2d 73 74 61 74 65 21 20 20 20 20 76 65 63 et-state! vec 06f0: 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 val)(vector-set 0700: 21 20 76 65 63 20 33 20 76 61 6c 29 29 0a 28 64 ! vec 3 val)).(d 0710: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db 0720: 3a 74 65 73 74 2d 73 65 74 2d 73 74 61 74 75 73 :test-set-status 0730: 21 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 ! vec val)(vec 0740: 74 6f 72 2d 73 65 74 21 20 76 65 63 20 34 20 76 tor-set! vec 4 v 0750: 61 6c 29 29 0a 0a 3b 3b 20 67 65 74 20 72 6f 77 al))..;; get row 0760: 73 20 61 6e 64 20 68 65 61 64 65 72 20 66 72 6f s and header fro 0770: 6d 20 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e m .(define-inlin 0780: 65 20 28 64 62 3a 67 65 74 2d 68 65 61 64 65 72 e (db:get-header 0790: 20 76 65 63 29 28 76 65 63 74 6f 72 2d 72 65 66 vec)(vector-ref 07a0: 20 76 65 63 20 30 29 29 0a 28 64 65 66 69 6e 65 vec 0)).(define 07b0: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 67 65 74 2d -inline (db:get- 07c0: 72 6f 77 73 20 20 20 76 65 63 29 28 76 65 63 74 rows vec)(vect 07d0: 6f 72 2d 72 65 66 20 76 65 63 20 31 29 29 0a 0a or-ref vec 1)).. 07e0: 3b 3b 20 6d 61 6b 65 2d 76 65 63 74 6f 72 2d 72 ;; make-vector-r 07f0: 65 63 6f 72 64 20 64 62 20 74 65 73 74 6d 65 74 ecord db testmet 0800: 61 20 69 64 20 74 65 73 74 6e 61 6d 65 20 61 75 a id testname au 0810: 74 68 6f 72 20 6f 77 6e 65 72 20 64 65 73 63 72 thor owner descr 0820: 69 70 74 69 6f 6e 20 72 65 76 69 65 77 65 64 20 iption reviewed 0830: 69 74 65 72 61 74 65 64 20 61 76 67 5f 72 75 6e iterated avg_run 0840: 74 69 6d 65 20 61 76 67 5f 64 69 73 6b 0a 28 64 time avg_disk.(d 0850: 65 66 69 6e 65 20 28 6d 61 6b 65 2d 64 62 3a 74 efine (make-db:t 0860: 65 73 74 6d 65 74 61 29 28 6d 61 6b 65 2d 76 65 estmeta)(make-ve 0870: 63 74 6f 72 20 31 30 20 22 22 29 29 0a 28 64 65 ctor 10 "")).(de 0880: 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a fine-inline (db: 0890: 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 69 64 20 testmeta-get-id 08a0: 20 20 20 20 20 20 20 20 20 20 20 76 65 63 29 20 vec) 08b0: 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 (vector-ref 08c0: 76 65 63 20 30 29 29 0a 28 64 65 66 69 6e 65 2d vec 0)).(define- 08d0: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d inline (db:testm 08e0: 65 74 61 2d 67 65 74 2d 74 65 73 74 6e 61 6d 65 eta-get-testname 08f0: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v 0900: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 31 ector-ref vec 1 0910: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin 0920: 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 67 e (db:testmeta-g 0930: 65 74 2d 61 75 74 68 6f 72 20 20 20 20 20 20 20 et-author 0940: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector 0950: 2d 72 65 66 20 20 76 65 63 20 32 29 29 0a 28 64 -ref vec 2)).(d 0960: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db 0970: 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 6f 77 :testmeta-get-ow 0980: 6e 65 72 20 20 20 20 20 20 20 20 20 76 65 63 29 ner vec) 0990: 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 (vector-ref 09a0: 20 76 65 63 20 33 29 29 0a 28 64 65 66 69 6e 65 vec 3)).(define 09b0: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test 09c0: 6d 65 74 61 2d 67 65 74 2d 64 65 73 63 72 69 70 meta-get-descrip 09d0: 74 69 6f 6e 20 20 20 76 65 63 29 20 20 20 20 28 tion vec) ( 09e0: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec 09f0: 34 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 4)).(define-inli 0a00: 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d ne (db:testmeta- 0a10: 67 65 74 2d 72 65 76 69 65 77 65 64 20 20 20 20 get-reviewed 0a20: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto 0a30: 72 2d 72 65 66 20 20 76 65 63 20 35 29 29 0a 28 r-ref vec 5)).( 0a40: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d 0a50: 62 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d 69 b:testmeta-get-i 0a60: 74 65 72 61 74 65 64 20 20 20 20 20 20 76 65 63 terated vec 0a70: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref 0a80: 20 20 76 65 63 20 36 29 29 0a 28 64 65 66 69 6e vec 6)).(defin 0a90: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes 0aa0: 74 6d 65 74 61 2d 67 65 74 2d 61 76 67 5f 72 75 tmeta-get-avg_ru 0ab0: 6e 74 69 6d 65 20 20 20 76 65 63 29 20 20 20 20 ntime vec) 0ac0: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec 0ad0: 20 37 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 7)).(define-inl 0ae0: 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 ine (db:testmeta 0af0: 2d 67 65 74 2d 61 76 67 5f 64 69 73 6b 20 20 20 -get-avg_disk 0b00: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect 0b10: 6f 72 2d 72 65 66 20 20 76 65 63 20 38 29 29 0a or-ref vec 8)). 0b20: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 0b30: 64 62 3a 74 65 73 74 6d 65 74 61 2d 67 65 74 2d db:testmeta-get- 0b40: 74 61 67 73 20 20 20 20 20 20 20 20 20 20 76 65 tags ve 0b50: 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 c) (vector-re 0b60: 66 20 20 76 65 63 20 39 29 29 0a 28 64 65 66 69 f vec 9)).(defi 0b70: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 ne-inline (db:te 0b80: 73 74 6d 65 74 61 2d 73 65 74 2d 69 64 21 20 20 stmeta-set-id! 0b90: 20 20 20 20 20 20 20 20 20 76 65 63 20 76 61 6c vec val 0ba0: 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 )(vector-set! ve 0bb0: 63 20 30 20 76 61 6c 29 29 0a 28 64 65 66 69 6e c 0 val)).(defin 0bc0: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 e-inline (db:tes 0bd0: 74 6d 65 74 61 2d 73 65 74 2d 74 65 73 74 6e 61 tmeta-set-testna 0be0: 6d 65 21 20 20 20 20 20 76 65 63 20 76 61 6c 29 me! vec val) 0bf0: 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 (vector-set! vec 0c00: 20 31 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 1 val)).(define 0c10: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 -inline (db:test 0c20: 6d 65 74 61 2d 73 65 74 2d 61 75 74 68 6f 72 21 meta-set-author! 0c30: 20 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 vec val)( 0c40: 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 vector-set! vec 0c50: 32 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 2 val)).(define- 0c60: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d inline (db:testm 0c70: 65 74 61 2d 73 65 74 2d 6f 77 6e 65 72 21 20 20 eta-set-owner! 0c80: 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 vec val)(v 0c90: 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 33 ector-set! vec 3 0ca0: 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 val)).(define-i 0cb0: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 nline (db:testme 0cc0: 74 61 2d 73 65 74 2d 64 65 73 63 72 69 70 74 69 ta-set-descripti 0cd0: 6f 6e 21 20 20 76 65 63 20 76 61 6c 29 28 76 65 on! vec val)(ve 0ce0: 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 34 20 ctor-set! vec 4 0cf0: 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e val)).(define-in 0d00: 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 line (db:testmet 0d10: 61 2d 73 65 74 2d 72 65 76 69 65 77 65 64 21 20 a-set-reviewed! 0d20: 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 vec val)(vec 0d30: 74 6f 72 2d 73 65 74 21 20 76 65 63 20 35 20 76 tor-set! vec 5 v 0d40: 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c al)).(define-inl 0d50: 69 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 ine (db:testmeta 0d60: 2d 73 65 74 2d 69 74 65 72 61 74 65 64 21 20 20 -set-iterated! 0d70: 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 vec val)(vect 0d80: 6f 72 2d 73 65 74 21 20 76 65 63 20 36 20 76 61 or-set! vec 6 va 0d90: 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 l)).(define-inli 0da0: 6e 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d ne (db:testmeta- 0db0: 73 65 74 2d 61 76 67 5f 72 75 6e 74 69 6d 65 21 set-avg_runtime! 0dc0: 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f vec val)(vecto 0dd0: 72 2d 73 65 74 21 20 76 65 63 20 37 20 76 61 6c r-set! vec 7 val 0de0: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin 0df0: 65 20 28 64 62 3a 74 65 73 74 6d 65 74 61 2d 73 e (db:testmeta-s 0e00: 65 74 2d 61 76 67 5f 64 69 73 6b 21 20 20 20 20 et-avg_disk! 0e10: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector 0e20: 2d 73 65 74 21 20 76 65 63 20 38 20 76 61 6c 29 -set! vec 8 val) 0e30: 29 0a 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d )..;;=========== 0e40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0e50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0e60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0e70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 54 ===========.;; T 0e80: 20 45 20 53 20 54 20 20 20 44 20 41 20 54 20 41 E S T D A T A 0e90: 20 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .;;============ 0ea0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0eb0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0ec0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 0ed0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 28 64 65 66 69 ==========.(defi 0ee0: 6e 65 20 28 6d 61 6b 65 2d 64 62 3a 74 65 73 74 ne (make-db:test 0ef0: 2d 64 61 74 61 29 28 6d 61 6b 65 2d 76 65 63 74 -data)(make-vect 0f00: 6f 72 20 31 30 29 29 0a 28 64 65 66 69 6e 65 2d or 10)).(define- 0f10: 69 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d inline (db:test- 0f20: 64 61 74 61 2d 67 65 74 2d 69 64 20 20 20 20 20 data-get-id 0f30: 20 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 vec) 0f40: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v 0f50: 65 63 20 30 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 0)).(define-i 0f60: 6e 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 nline (db:test-d 0f70: 61 74 61 2d 67 65 74 2d 74 65 73 74 5f 69 64 20 ata-get-test_id 0f80: 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 vec) 0f90: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve 0fa0: 63 20 31 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 1)).(define-in 0fb0: 6c 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 line (db:test-da 0fc0: 74 61 2d 67 65 74 2d 63 61 74 65 67 6f 72 79 20 ta-get-category 0fd0: 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 vec) 0fe0: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec 0ff0: 20 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 2)).(define-inl 1000: 69 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 ine (db:test-dat 1010: 61 2d 67 65 74 2d 76 61 72 69 61 62 6c 65 20 20 a-get-variable 1020: 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 vec) ( 1030: 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 vector-ref vec 1040: 33 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 3)).(define-inli 1050: 6e 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 ne (db:test-data 1060: 2d 67 65 74 2d 76 61 6c 75 65 20 20 20 20 20 20 -get-value 1070: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v 1080: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 34 ector-ref vec 4 1090: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin 10a0: 65 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 2d e (db:test-data- 10b0: 67 65 74 2d 65 78 70 65 63 74 65 64 20 20 20 20 get-expected 10c0: 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 vec) (ve 10d0: 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 35 29 ctor-ref vec 5) 10e0: 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 ).(define-inline 10f0: 20 28 64 62 3a 74 65 73 74 2d 64 61 74 61 2d 67 (db:test-data-g 1100: 65 74 2d 74 6f 6c 20 20 20 20 20 20 20 20 20 20 et-tol 1110: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec 1120: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 36 29 29 tor-ref vec 6)) 1130: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 1140: 28 64 62 3a 74 65 73 74 2d 64 61 74 61 2d 67 65 (db:test-data-ge 1150: 74 2d 75 6e 69 74 73 20 20 20 20 20 20 20 20 20 t-units 1160: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect 1170: 6f 72 2d 72 65 66 20 20 76 65 63 20 37 29 29 0a or-ref vec 7)). 1180: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 1190: 64 62 3a 74 65 73 74 2d 64 61 74 61 2d 67 65 74 db:test-data-get 11a0: 2d 63 6f 6d 6d 65 6e 74 20 20 20 20 20 20 20 20 -comment 11b0: 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f vec) (vecto 11c0: 72 2d 72 65 66 20 20 76 65 63 20 38 29 29 0a 28 r-ref vec 8)).( 11d0: 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 define-inline (d 11e0: 62 3a 74 65 73 74 2d 64 61 74 61 2d 67 65 74 2d b:test-data-get- 11f0: 73 74 61 74 75 73 20 20 20 20 20 20 20 20 20 20 status 1200: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector 1210: 2d 72 65 66 20 20 76 65 63 20 39 29 29 0a 0a 3b -ref vec 9))..; 1220: 3b 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ;=============== 1230: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 1240: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 1250: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 1260: 3d 3d 3d 3d 3d 3d 3d 0a 3b 3b 20 53 20 54 20 45 =======.;; S T E 1270: 20 50 20 53 20 0a 3b 3b 3d 3d 3d 3d 3d 3d 3d 3d P S .;;======== 1280: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 1290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 12a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================ 12b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 3b ==============.; 12c0: 3b 20 52 75 6e 20 73 74 65 70 73 0a 3b 3b 20 6d ; Run steps.;; m 12d0: 61 6b 65 2d 76 65 63 74 6f 72 2d 72 65 63 6f 72 ake-vector-recor 12e0: 64 20 22 52 75 6e 20 73 74 65 70 73 22 20 64 62 d "Run steps" db 12f0: 20 73 74 65 70 20 69 64 20 74 65 73 74 5f 69 64 step id test_id 1300: 20 73 74 65 70 6e 61 6d 65 20 73 74 65 70 5f 63 stepname step_c 1310: 6f 6d 70 6c 65 74 65 20 73 74 65 70 5f 70 61 73 omplete step_pas 1320: 73 20 65 76 65 6e 74 5f 74 69 6d 65 20 20 20 20 s event_time 1330: 0a 28 64 65 66 69 6e 65 20 28 6d 61 6b 65 2d 64 .(define (make-d 1340: 62 3a 73 74 65 70 29 28 6d 61 6b 65 2d 76 65 63 b:step)(make-vec 1350: 74 6f 72 20 37 29 29 0a 28 64 65 66 69 6e 65 2d tor 7)).(define- 1360: 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 2d inline (db:step- 1370: 67 65 74 2d 69 64 20 20 20 20 20 20 20 20 20 20 get-id 1380: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec 1390: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 tor-ref vec 0)) 13a0: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 13b0: 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 74 65 73 (db:step-get-tes 13c0: 74 5f 69 64 20 20 20 20 20 20 20 20 20 76 65 63 t_id vec 13d0: 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 66 ) (vector-ref 13e0: 20 20 76 65 63 20 31 29 29 0a 28 64 65 66 69 6e vec 1)).(defin 13f0: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 e-inline (db:ste 1400: 70 2d 67 65 74 2d 73 74 65 70 6e 61 6d 65 20 20 p-get-stepname 1410: 20 20 20 20 20 20 76 65 63 29 20 20 20 20 28 76 vec) (v 1420: 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 20 32 ector-ref vec 2 1430: 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e )).(define-inlin 1440: 65 20 28 64 62 3a 73 74 65 70 2d 67 65 74 2d 73 e (db:step-get-s 1450: 74 61 74 65 20 20 20 20 20 20 20 20 20 20 20 76 tate v 1460: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r 1470: 65 66 20 20 76 65 63 20 33 29 29 0a 28 64 65 66 ef vec 3)).(def 1480: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 ine-inline (db:s 1490: 74 65 70 2d 67 65 74 2d 73 74 61 74 75 73 20 20 tep-get-status 14a0: 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 20 vec) 14b0: 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 63 (vector-ref vec 14c0: 20 34 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 4)).(define-inl 14d0: 69 6e 65 20 28 64 62 3a 73 74 65 70 2d 67 65 74 ine (db:step-get 14e0: 2d 65 76 65 6e 74 5f 74 69 6d 65 20 20 20 20 20 -event_time 14f0: 20 76 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 vec) (vector 1500: 2d 72 65 66 20 20 76 65 63 20 35 29 29 0a 28 64 -ref vec 5)).(d 1510: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db 1520: 3a 73 74 65 70 2d 67 65 74 2d 6c 6f 67 66 69 6c :step-get-logfil 1530: 65 20 20 20 20 20 20 20 20 20 76 65 63 29 20 20 e vec) 1540: 20 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 (vector-ref v 1550: 65 63 20 36 29 29 0a 28 64 65 66 69 6e 65 2d 69 ec 6)).(define-i 1560: 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 2d 73 nline (db:step-s 1570: 65 74 2d 69 64 21 20 20 20 20 20 20 20 20 20 20 et-id! 1580: 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 vec val)(vect 1590: 6f 72 2d 73 65 74 21 20 76 65 63 20 30 20 76 61 or-set! vec 0 va 15a0: 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 l)).(define-inli 15b0: 6e 65 20 28 64 62 3a 73 74 65 70 2d 73 65 74 2d ne (db:step-set- 15c0: 74 65 73 74 5f 69 64 21 20 20 20 20 20 20 20 20 test_id! 15d0: 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 2d vec val)(vector- 15e0: 73 65 74 21 20 76 65 63 20 31 20 76 61 6c 29 29 set! vec 1 val)) 15f0: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 1600: 28 64 62 3a 73 74 65 70 2d 73 65 74 2d 73 74 65 (db:step-set-ste 1610: 70 6e 61 6d 65 21 20 20 20 20 20 20 20 76 65 63 pname! vec 1620: 20 76 61 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 val)(vector-set 1630: 21 20 76 65 63 20 32 20 76 61 6c 29 29 0a 28 64 ! vec 2 val)).(d 1640: 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 efine-inline (db 1650: 3a 73 74 65 70 2d 73 65 74 2d 73 74 61 74 65 21 :step-set-state! 1660: 20 20 20 20 20 20 20 20 20 20 76 65 63 20 76 61 vec va 1670: 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 l)(vector-set! v 1680: 65 63 20 33 20 76 61 6c 29 29 0a 28 64 65 66 69 ec 3 val)).(defi 1690: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 ne-inline (db:st 16a0: 65 70 2d 73 65 74 2d 73 74 61 74 75 73 21 20 20 ep-set-status! 16b0: 20 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 28 vec val)( 16c0: 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 vector-set! vec 16d0: 34 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 4 val)).(define- 16e0: 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 2d inline (db:step- 16f0: 73 65 74 2d 65 76 65 6e 74 5f 74 69 6d 65 21 20 set-event_time! 1700: 20 20 20 20 76 65 63 20 76 61 6c 29 28 76 65 63 vec val)(vec 1710: 74 6f 72 2d 73 65 74 21 20 76 65 63 20 35 20 76 tor-set! vec 5 v 1720: 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c al)).(define-inl 1730: 69 6e 65 20 28 64 62 3a 73 74 65 70 2d 73 65 74 ine (db:step-set 1740: 2d 6c 6f 67 66 69 6c 65 21 20 20 20 20 20 20 20 -logfile! 1750: 20 76 65 63 20 76 61 6c 29 28 76 65 63 74 6f 72 vec val)(vector 1760: 2d 73 65 74 21 20 76 65 63 20 36 20 76 61 6c 29 -set! vec 6 val) 1770: 29 0a 0a 0a 3b 3b 20 54 68 65 20 73 74 65 70 73 )...;; The steps 1780: 20 74 61 62 6c 65 0a 28 64 65 66 69 6e 65 20 28 table.(define ( 1790: 6d 61 6b 65 2d 64 62 3a 73 74 65 70 73 2d 74 61 make-db:steps-ta 17a0: 62 6c 65 29 28 6d 61 6b 65 2d 76 65 63 74 6f 72 ble)(make-vector 17b0: 20 35 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 5)).(define-inl 17c0: 69 6e 65 20 28 64 62 3a 73 74 65 70 73 2d 74 61 ine (db:steps-ta 17d0: 62 6c 65 2d 67 65 74 2d 73 74 65 70 6e 61 6d 65 ble-get-stepname 17e0: 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 74 vec) (vect 17f0: 6f 72 2d 72 65 66 20 20 76 65 63 20 30 29 29 0a or-ref vec 0)). 1800: 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 (define-inline ( 1810: 64 62 3a 73 74 65 70 73 2d 74 61 62 6c 65 2d 67 db:steps-table-g 1820: 65 74 2d 73 74 61 72 74 20 20 20 20 20 20 76 65 et-start ve 1830: 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 65 c) (vector-re 1840: 66 20 20 76 65 63 20 31 29 29 0a 28 64 65 66 69 f vec 1)).(defi 1850: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 ne-inline (db:st 1860: 65 70 73 2d 74 61 62 6c 65 2d 67 65 74 2d 65 6e eps-table-get-en 1870: 64 20 20 20 20 20 20 20 20 76 65 63 29 20 20 20 d vec) 1880: 20 28 76 65 63 74 6f 72 2d 72 65 66 20 20 76 65 (vector-ref ve 1890: 63 20 32 29 29 0a 28 64 65 66 69 6e 65 2d 69 6e c 2)).(define-in 18a0: 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 73 2d 74 line (db:steps-t 18b0: 61 62 6c 65 2d 67 65 74 2d 73 74 61 74 75 73 20 able-get-status 18c0: 20 20 20 20 76 65 63 29 20 20 20 20 28 76 65 63 vec) (vec 18d0: 74 6f 72 2d 72 65 66 20 20 76 65 63 20 33 29 29 tor-ref vec 3)) 18e0: 0a 28 64 65 66 69 6e 65 2d 69 6e 6c 69 6e 65 20 .(define-inline 18f0: 28 64 62 3a 73 74 65 70 73 2d 74 61 62 6c 65 2d (db:steps-table- 1900: 67 65 74 2d 72 75 6e 74 69 6d 65 20 20 20 20 76 get-runtime v 1910: 65 63 29 20 20 20 20 28 76 65 63 74 6f 72 2d 72 ec) (vector-r 1920: 65 66 20 20 76 65 63 20 34 29 29 0a 28 64 65 66 ef vec 4)).(def 1930: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 ine-inline (db:s 1940: 74 65 70 2d 73 74 61 62 6c 65 2d 73 65 74 2d 73 tep-stable-set-s 1950: 74 65 70 6e 61 6d 65 21 20 20 76 65 63 20 76 61 tepname! vec va 1960: 6c 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 l)(vector-set! v 1970: 65 63 20 30 20 76 61 6c 29 29 0a 28 64 65 66 69 ec 0 val)).(defi 1980: 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 ne-inline (db:st 1990: 65 70 2d 73 74 61 62 6c 65 2d 73 65 74 2d 73 74 ep-stable-set-st 19a0: 61 72 74 21 20 20 20 20 20 76 65 63 20 76 61 6c art! vec val 19b0: 29 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 )(vector-set! ve 19c0: 63 20 31 20 76 61 6c 29 29 0a 28 64 65 66 69 6e c 1 val)).(defin 19d0: 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 e-inline (db:ste 19e0: 70 2d 73 74 61 62 6c 65 2d 73 65 74 2d 65 6e 64 p-stable-set-end 19f0: 21 20 20 20 20 20 20 20 76 65 63 20 76 61 6c 29 ! vec val) 1a00: 28 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 (vector-set! vec 1a10: 20 32 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2 val)).(define 1a20: 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 -inline (db:step 1a30: 2d 73 74 61 62 6c 65 2d 73 65 74 2d 73 74 61 74 -stable-set-stat 1a40: 75 73 21 20 20 20 20 76 65 63 20 76 61 6c 29 28 us! vec val)( 1a50: 76 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 vector-set! vec 1a60: 33 20 76 61 6c 29 29 0a 28 64 65 66 69 6e 65 2d 3 val)).(define- 1a70: 69 6e 6c 69 6e 65 20 28 64 62 3a 73 74 65 70 2d inline (db:step- 1a80: 73 74 61 62 6c 65 2d 73 65 74 2d 72 75 6e 74 69 stable-set-runti 1a90: 6d 65 21 20 20 20 76 65 63 20 76 61 6c 29 28 76 me! vec val)(v 1aa0: 65 63 74 6f 72 2d 73 65 74 21 20 76 65 63 20 34 ector-set! vec 4 1ab0: 20 76 61 6c 29 29 0a 0a 3b 3b 20 75 73 65 20 74 val))..;; use t 1ac0: 68 69 73 20 6f 6e 65 20 66 6f 72 20 64 62 2d 67 his one for db-g 1ad0: 65 74 2d 72 75 6e 2d 69 6e 66 6f 0a 28 64 65 66 et-run-info.(def 1ae0: 69 6e 65 2d 69 6e 6c 69 6e 65 20 28 64 62 3a 67 ine-inline (db:g 1af0: 65 74 2d 72 6f 77 20 20 20 20 76 65 63 29 28 76 et-row vec)(v 1b00: 65 63 74 6f 72 2d 72 65 66 20 76 65 63 20 31 29 ector-ref vec 1) 1b10: 29 0a 0a )..