anchor.diff:         (apply #'string-concat (filter #'lml2xml ,(list 'backquote (dot-expand (read-file-all path))))))))
   
   (defun template-list (template records)
  -  (let index 0
  -    (apply #'string-concat (filter [with-temporary *template-parameters* (cons (cons 'index (1+! index)) *template-parameters*)
  -                                     (funcall template _)]
  -                                   records))))
  +  (when records
  +    (let index 0
  +      (apply #'string-concat (filter [with-temporary *template-parameters* (cons (cons 'index (1+! index)) *template-parameters*)
  +                                       (funcall template _)]
  +                                     records)))))
  
positive.code:         (print *template-parameters*)
          (princ "<br>")
          (error "template parameter ~A not found" (symbol-name name)))))
  
  (defun template-param (name &key (if-exists? nil))
    (force-list (template-param-value name :if-exists? if-exists?)))
  
  (defmacro define-template (name &key path)
    (print-definition `(define-template ,name :path ,path))
  
negative.code: (defvar *template-parameters* nil)
  (defvar *currently-processed-templates* nil)
  
  (defun param (name &key (if-exists? nil))
    (!? (assoc name *template-parameters* :test #'eq)
        .!
        (unless if-exists?
  