9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
;;======================================================================
;; dumbobj helpers
;;======================================================================
(declare (unit misc-stml))
(use regex)
;; given a list of symbols give the count of the matching symbol
;; l => '(a b c) (dumobj:indx a 'b) => 1
(define (s:get-fieldnum lst field-name)
(let loop ((head (car lst))
(tail (cdr lst))
(fnum 0))
|
>
>
|
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;;======================================================================
;; dumbobj helpers
;;======================================================================
(declare (unit misc-stml))
(use regex)
(use dbi)
(import (prefix dbi dbi:))
;; given a list of symbols give the count of the matching symbol
;; l => '(a b c) (dumobj:indx a 'b) => 1
(define (s:get-fieldnum lst field-name)
(let loop ((head (car lst))
(tail (cdr lst))
(fnum 0))
|