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

Show source file in large font In mirroring-script: Link from tool-parameters to it's cross reference table entry 3.1. Making the mirror
; tool-parameters ;; The name of the language for which we create a mirror Show source file in large font In mirroring-script: Link from mirror-name to it's cross reference table entry 3.1. Making the mirror
(define mirror-name "bike-management") ;; The full path to the parsed DTD Show source file in large font In mirroring-script: Link from parsed-dtd-path to it's cross reference table entry 3.1. Making the mirror
(define parsed-dtd-path (string-append laml-dir "examples/tutorial/xml-in-laml/dtds/bikes/bikes.lsp")) ;; The full path to the explicitly programmed validation predidates Show source file in large font In mirroring-script: Link from manually-programmed-validation-predicates to it's cross reference table entry 3.1. Making the mirror
(define manually-programmed-validation-predicates (string-append (startup-directory) "bikes-content-validation-predicates.scm")) ;; The full path of the mirror target directory Show source file in large font In mirroring-script: Link from mirror-target-dir to it's cross reference table entry 3.1. Making the mirror
(define mirror-target-dir (string-append (startup-directory) "../../mirrors/bikes/")) Show source file in large font In mirroring-script: Link from use-manually-programmed-validation-predicates to it's cross reference table entry 
(define use-manually-programmed-validation-predicates #t) Show source file in large font In mirroring-script: Link from action-elements to it's cross reference table entry 3.1. Making the mirror
(define action-elements '(bikes)) Show source file in large font In mirroring-script: Link from tool-activation to it's cross reference table entry 3.1. Making the mirror
; tool-activation (let ((mirror-destination-file (string-append mirror-target-dir mirror-name "-mirror" ".scm"))) (generate-mirror parsed-dtd-path mirror-destination-file manually-programmed-validation-predicates mirror-name))