anchor.diff:  %%     lfe_io:format1("error expanding ~P", [Call,10]).
   
   -spec module(#module{code::Defs}) -> #module{docs::Docs} when
  -      Defs :: list(Form),
  -      Form :: list(),
  -      Docs :: list(doc()).
  +      Defs :: [[_]],
  +      Docs :: [doc()].
   module(#module{code=[]}=Mod)   -> Mod#module{docs=[]};
   module(#module{code=Defs}=Mod) -> Mod#module{docs=do_module([], Defs)}.
   
  -do_module(Docs, []) -> Docs;
  +-spec do_module(Docs, Defs) -> Docs when
  +      Docs :: [doc()],
  +      Defs :: [[_]].
   do_module(Docs, [{['define-function',Name,Body,DocStr],_Line}|Defs]) ->
       {yes,Arity,Patterns} = patterns(Body),
       Doc = make_doc(function, Name, Arity, Patterns, DocStr),
  
positive.code:     {yes,Arity,Patterns} = patterns(Body),
      Doc = make_doc(macro, Name, Arity, Patterns, DocStr),
      do_module([Doc|Docs], Defs);
  do_module(Docs, [_|Defs]) -> do_module(Docs, Defs).
  
  -spec patterns(LambdaForm) -> 'no' | {'yes',Arity,Patterns} when
        LambdaForm :: nonempty_list(),
  
negative.code: 
  %% File    : lfe_doc.erl
  %% Author  : Eric Bailey
  %% Purpose : Lisp Flavoured Erlang documentation parser.
  
  %% The functions herein are used internally by the compiler.
  %% There is no guarantee the API will not change dramatically in future.
  
  -module(lfe_doc).
  
  -export([module/1,patterns/1]).
  
  -import(lfe_lib, [is_symb_list/1,is_proper_list/1]).
  -import(lists, [reverse/1]).
  
  -include("lfe_comp.hrl").
  