anchor.diff:                     (group 'pascal-case :name <param-list>)
                      (? <const>)
                      (? <volatile>))
  +        (? <abstract>)
           <class-member-fn-body>)
   
     (rule <method> ::=
  
positive.code:                               (:true "true")
                                (:false "false")
                                (:null "NULL")
                                (:string "string")
                                (:wstring "wstring")
                                (:scoped-ptr "scoped_ptr"))))
  
negative.code: 	'begin-block
  	(* <stmt>)
  	'end-block)
  
    (rule <class> <public.protected.private> <method> <abstract> ::= "= 0")
  
    (rule <class-member-fn-body> (naked) ::= (one-of <null-body>
                                                     (group 'begin-block <stmt> (* <stmt>) 'end-block)
  