(load (string-append laml-dir "laml.scm"))
(laml-tool-load "xml-in-laml/xml-in-laml.scm")


(define mirror-name "bike-management")

(define parsed-dtd-path
(string-append laml-dir
"examples/tutorial/xml-in-laml/dtds/bikes/bikes.lsp"))

(define mirror-target-dir
(string-append (startup-directory) "../../mirrors/bikes/"))
(define action-elements '(bikes))

(let ((mirror-destination-file
(string-append
mirror-target-dir mirror-name
"-mirror" ".scm")))
(generate-mirror
parsed-dtd-path
mirror-destination-file
mirror-name))