anchor.diff:                                              `(:title ,(escape-string !)))
                                         ,@(!? copyright-href
                                               `(:href  ,(escape-string !))))))
  +                         ,@(!? external-stylesheet
  +                               (mapcan [`(link :rel "stylesheet" :type "text/css" :href ,_)]
  +                                       (ensure-list !)))
  +                         ,@(!? internal-stylesheet
  +                               `((style ,!)))
                            (script :type "text/javascript"
                              "<!--"
                              ,@(& strict?
  
positive.code: ;;;;; tré – Copyright (c) 2008–2013 Sven Michael Klose <pixel@copei.de>
  
  (defun print-html-script (out script
                            &key (title nil)
                                 (no-cache? nil)
                                 (strict? t)
                                 (copyright-title nil) (copyright-href nil))
    (with-default-stream o out
      (format o (+ (doctype-html-5) "~%"))
      (princ (lml2xml `(html
  
negative.code:                          &key (title nil)
                                (no-cache? nil)
                                (strict? t)
                                (copyright-title nil) (copyright-href nil)
                                (external-stylesheet nil)
                                (internal-stylesheet nil))
    (with-output-file o pathname
      (print-html-script o script ,@(keyword-copiers 'title 'no-cache? 'strict?
                                                     'copyright-title 'copyright-href
                                                     'external-stylesheet 'internal-stylesheet))))
  