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