(use args)(define OPTS '(((h help) (#:none "Help") "Print option information." (option-info))               ((f foo) (#:none "Foo.") "Foo.")               ))(define (option-records #!optional (opts OPTS))  (map (lambda (opt)         (eval `(args:make-option ,@opt)))       opts))