anchor.diff:                                         (strict? t)
                                          (copyright-title nil) (copyright-href nil)
                                          (external-script nil)
  -                                       (external-stylesheet nil)
  +                                       (external-stylesheets nil)
                                          (internal-stylesheet nil)
                                          (body nil))
     (with-default-stream o out
  
positive.code:                                      `(:title ,(escape-string !)))
                                 ,@(!? copyright-href
                                       `(:href  ,(escape-string !))))))
                    ,@(!? external-stylesheet
                          (mapcan [`(link :rel "stylesheet" :type "text/css" :href ,_)]
                                  (ensure-list !)))
                    ,@(!? internal-stylesheet
  
negative.code:                                            (strict? t)
                                             (copyright-title nil) (copyright-href nil)
                                             (external-script nil)
                                             (external-stylesheets 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-script
                                                     :external-stylesheets
                                                     :internal-stylesheet
                                                     :body))))
  