(load (string-append laml-dir "laml.scm")) (laml-tool-load "xml-in-laml/xml-in-laml.scm") ;; The name of the language for which we create a mirror (define mirror-name "music-album") ;; The full path to the parsed DTD: (define parsed-dtd-path (in-startup-directory "album.lsp")) ;; The full path of the mirror target directory (define mirror-target-dir (startup-directory)) (define action-elements '(album)) (set! default-xml-represent-white-space "#t") (let ((mirror-destination-file (string-append mirror-target-dir mirror-name "-mirror" ".scm"))) (generate-mirror parsed-dtd-path mirror-destination-file mirror-name))