anchor.diff: -;;;;; tré – Copyright (c) 2008–2013 Sven Michael Klose <pixel@copei.de>
  +;;;;; tré – Copyright (c) 2008–2014 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))
  +                               (copyright-title nil) (copyright-href nil)
  +                               (external-stylesheet nil)
  +                               (internal-stylesheet nil))
     (with-default-stream o out
       (format o (+ (doctype-html-5) "~%"))
       (princ (lml2xml `(html
  
positive.code:                                             `(:title ,(escape-string !)))
                                        ,@(!? copyright-href
                                              `(:href  ,(escape-string !))))))
                           (script :type "text/javascript"
                             "<!--"
                             ,@(& strict?
  
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))))
  