1 ;; Utility function to process the main arguments into options and other
2 ;; using a given template
4 ; The input arguments (less options
5 (constant 'ARGS (1 (main-args)))
7 ; The command line options replaced with actuals, in order.
12 (if (match (flat (list '* O '*)) ARGS)
13 (let ((A ($it 0)) (B ($it -1))
14 (C (slice $it 1 (- (length $it) 2))))
15 (constant 'ARGS (append A B)) C)))