anchor.diff:      ?INFO_MSG("is it erts, binary, generic, unbuilt, or edoc ~p~n", [PackageDir]),
       val_edoc(PackageDir).
   
  -val_edoc(PackageDir) ->
  -    case is_package_edoc(PackageDir) of
  -	true ->
  -	    {ok, edoc};
  -	false ->
  -	    val_erts(PackageDir)
  -    end.
  -
  -val_erts(PackageDir) ->
  -    case is_package_erts(PackageDir) of
  -	true ->
  -	    {ok, erts};
  -	false -> 
  -	    val_app(PackageDir)
  -    end.
  -
  -val_app(PackageDir) ->
  -    case is_package_an_app(PackageDir) of
  -	true ->
  -	    case is_package_an_unbuilt_app(PackageDir) of
  -		true ->
  -		    {ok, unbuilt};
  -		false ->
  -		    case is_package_a_binary_app(PackageDir) of
  -			true  -> {ok, binary};
  -			false -> {ok, generic}
  -		    end
  -	    end;
  -	false ->
  -	    val_release(PackageDir)
  -    end.
  -
  -val_release(PackageDir) ->
  -    case is_package_a_release(PackageDir) of
  -	true  -> {ok, release};
  -	false -> {error, badly_formatted_or_missing_package}
  -    end.
  -
  +%%--------------------------------------------------------------------
  +%% @doc boolean function to indicate if the package is of the type 
  +%%      in question.
  +%% @spec (PackageDir) -> {ok, Type} | {error, Reason}
  +%% where
  +%%  Type = binary | generic | unbuilt | release | erts | docs
  +%% @end
  +%%--------------------------------------------------------------------
   is_package_edoc(PackageDir) ->
       lists:all(fun(F) -> F(PackageDir) end,
   	      [
  
positive.code: 	       end 
  	      ]).
  
  is_package_erts(PackageDir) ->
      lists:all(fun(F) -> F(PackageDir) end, [
  	
  
negative.code: -export([
  	 validate_type/1,
  	 verify_presence_of_erl_files/1,
  	 analyze_app/1,
  	 verify_app_erts_vsn/1,
  	 is_package_erts/1,
  	 is_package_an_app/1,
  