anchor.diff:            ((:twoline :two-line :2line) (setq oneline nil twoline t))
             ((:oneline :one-line :1line) (setq oneline t twoline nil))
             (:console (setq console t global-console t))
  -          (:thread (setq thread t))
  -          (:ndc (setq ndc t))
  +          (:thread
  +           (setq thread 
  +                 (let* ((min (when (integerp (car args)) (pop args)))
  +                        (max (when (integerp (car args)) (pop args))))
  +                   (declare (type (or null integer) min) 
  +                            (type (or null (integer 1)) max))
  +                   (if (or min max) (list min max) t))))
  +          (:ndc
  +           (setq ndc 
  +                 (let* ((min (when (integerp (car args)) (pop args)))
  +                        (max (when (integerp (car args)) (pop args))))
  +                   (declare (type (or null integer) min) 
  +                            (type (or null (integer 1)) max))
  +                   (if (or min max) (list min max) t))))
             (:pretty (setq pretty t nopretty nil))
             (:nopretty (setq nopretty t pretty nil))
             (:package (setq package t nopackage nil))
  
positive.code:               ((getf args :nopackage) 
                 (s/ "%<" "%<{nopackage}")))
          (cond
            ((and (getf args :thread)
                  (getf args :ndc))
             (s/ "%t" " [%t%:;-;x]"))
            ((getf args :thread)
             (s/ "%t" " [%t]"))
            ((getf args :ndc)
             (s/ "%t" "%:; [;;];x"))
            (t (s/ "%t" "")))
          pat))))
  
  
negative.code:  :NOFILE       | :NOFILE does not show the file
  ---------------|---------------------------------------------------------------
   :THREAD       | Include thread name into default pattern, it will be after the
    [<n>[<n2>]]  | time, in [%t] format. If :THERAD argument is followed by one
                 | or two numbers, they will be used as min/max field width.
  ---------------|---------------------------------------------------------------
   :NDC          | Include NDC context into default pattern, with optional min/max
    [<n>[<n2>]]  | field width flags. When used together with :THREAD NDC will be
                 | printed after the thread name, separated by dash, like this
                 | example: \"[threadname-ndc]\"; it will not be shown if unbound
                 |
                 | Without :THREAD, its shown in its own square brackets, with
                 | entire construct not shown if unbound.
  ---------------|---------------------------------------------------------------
   :NOPACKAGE    | Add {nopackage} option to the pattern (binds orig package at
   :PACKAGE      | the site of the log statement. PACKAGE binds keyword package,
  