anchor.diff:   "COM.INFORMATIMAGO.COMMON-LISP.HTML-GENERATOR.HTML" "<")
   
   
  -
   (defun unwrap (output class id title description author keywords language document)
  -  (unparse-html `(:div (:class ,class
  -                        :id ,id
  -                        :title ,(or title "")
  +  (unparse-html `(:div (:class       ,class
  +                        :id          ,id
  +                        :title       ,(or title "")
  +                        :author      ,(or author "")
                           :description ,(or description "")
  -                        :author ,(or author "")
  -                        :language ,(or language "en"))
  +                        :keywords    ,(or keywords "")
  +                        :language    ,(or language "en"))
                      ,@(element-children document))
                   output)
     (values))
  
positive.code:          (princ ,verror *error-output*)
           (terpri *error-output*)
           (terpri *error-output*)
           #-testing-script (ext:exit 1)))))
  
  (redirecting-stdout-to-stderr
    (load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
  
negative.code:     (unwrap *standard-output* class id title description author keywords language document)))
  
  
  #+(and clisp (not testing-script))
  (progn
    (main ext:*args*)
    (ext:exit 0))
  
  (pushnew :testing-script *features*)
  ;;;; THE END ;;;;
  