(in-package :om)(load-lib-for (quote ("OM-SoX")))(setf *om-current-persistent* (om-load-patch1 "slicer" (quote ((om-load-boxwithed1 (quote box-with-win) "sox-trim-inside" (quote omloop) (quote ((om-load-inputfun (quote input-funbox) "" "input0" nil))) (om-make-point 101 136) nil nil nil (list (om-load-boxcall (quote genfun) "collect" (quote listing) (quote ((om-load-inputfun (quote input-funbox) "anything" "DATA" nil))) (om-make-point 168 426) nil nil nil nil 3) (om-load-boxcall (quote lispfun) "LIST" (quote list) (quote ((om-load-inputfun (quote input-funbox) "add-input" "add-input" nil) (om-load-inputfun (quote input-funbox) "add-input" "add-input" nil))) (om-make-point 126 284) nil nil nil nil 1) (om-load-boxcall (quote genfun) "SOX-TRIM" (quote sox-trim) (quote ((om-load-inputfun (quote input-funbox) "start (in secs)" "START" nil))) (om-make-point 130 342) nil nil nil nil 1) (om-load-boxcall (quote genfun) "inlist 2" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 205 215) nil nil nil nil 1) (om-load-boxcall (quote genfun) "inlist" (quote listloop) (quote ((om-load-inputfun (quote input-funbox) "list to iterate" "LIST" nil))) (om-make-point 70 198) nil nil nil nil 1) (om-load-boxcall (quote lispfun) "CDR" (quote cdr) (quote ((om-load-inputfun (quote input-funbox) "X" "X" nil))) (om-make-point 240 166) nil nil nil nil 1) (om-load-boxin "input0" 0 (om-make-point 74 90) "" nil nil nil) (om-load-seqbox "finally" (quote finaldo) (quote ((om-load-inputfun (quote input-funbox) "value to return" "VAL" nil))) (om-make-point 195 531) nil nil nil 0) (om-load-seqbox "eachTime" (quote loopdo) (quote ((om-load-inputfun (quote input-funbox) "operations to do" "OP" nil))) (om-make-point 111 530) nil nil nil 0)) (quote ((2 0 0 0 nil 0) (4 0 1 0 nil 0) (3 0 1 1 nil 0) (1 0 2 0 nil 0) (5 0 3 0 nil 0) (6 0 4 0 nil 0) (6 0 5 0 nil 0) (0 1 7 0 nil 0) (0 0 8 0 nil 0))) 1 "sox-trim-inside" nil) (om-load-boxin "markers" 0 (om-make-point 122 38) "" "markers" nil nil) (om-load-boxout "output" 0 (om-make-point 124 228) (quote ((om-load-inputfun (quote input-funbox) "" "out" nil))) nil nil))) (quote ((1 0 0 0 nil 0) (0 0 2 0 nil 0))) nil 6.070004))
| 
