:- multifile portray_message/2.

portray_message( informational, Mess ) :-
        ( (Mess=loading(_A,_B);Mess=loaded(_V,_W,_X,_Y,_Z);Mess=imported(_C,_D)) ->
                true
                ;
                fail
        ).
portray_message( A, B ) :-
	% write( a(A) ), write(b(B)), nl, fail.
	( ( A == warning, B = declaration((multifile user:pfd_rule/2),ignored)) 
		-> true
		;  fail
	).