anchor.diff:      (t (call-next-method))))
   
   (def-special-counter 1208920 ()
  -  (args 'counter-hifumi "株" "かぶ" :digitset '(1 2)))
  +  (args 'counter-hifumi "株" "かぶ" :digit-set '(1 2)))
  +
  +(def-special-counter 1214060 ()
  +  (args 'counter-hifumi "竿" "さお" :digit-set '(1 2 3 4 5))
  +  (args 'counter-hifumi "棹" "さお" :digit-set '(1 2 3 4 5)))
  +
  
positive.code: 
  (defmethod counter-join ((obj counter-text) n number-kana counter-kana
                           &aux (digit (mod n 10))
                             (head (gethash (char counter-kana 0) *char-class-hash*)))                   
    (case digit
      (1 (case head
           ((:ka :ki :ku :ke :ko
  
negative.code:                              ,keys-var)))
                 (list ,@body))))))
  
  (def-special-counter 1203020 ()
    (args 'counter-text "階" "かい" :digit-opts '((3 :r))))
  
  (defclass counter-tsu (counter-text) ())
  
  