anchor.diff:                                (no-cache? nil)
                                 (strict? t)
                                 (copyright-title nil) (copyright-href nil)
  +                              (external-script nil)
                                 (external-stylesheet nil)
  -                              (internal-stylesheet nil))
  +                              (internal-stylesheet nil)
  +                              (body 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))))
  +    (print-html-script o script ,@(keyword-copiers :title :no-cache? :strict?
  +                                                   :copyright-title :copyright-href
  +                                                   :external-script
  +                                                   :external-stylesheet :internal-stylesheet
  +                                                   :body))))
  
positive.code:                                   (ensure-list !)))
                      ,@(!? internal-stylesheet
                            `((style ,!)))
                      (script :type "text/javascript"
                          "<!--"
                          ,@(& strict?
  
negative.code: ; tré – Copyright (c) 2008–2015 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)
                                 (external-script nil)
                                 (external-stylesheet nil)
                                 (internal-stylesheet nil)
                                 (body nil))
    (with-default-stream o out
      (format o (+ (doctype-html-5) "~%"))
      (lml2xml `(html
  