Esempio n. 1
0
globle int FactExistpFunction(
  void *theEnv)
  {
   struct fact *theFact;

   if (EnvArgCountCheck(theEnv,"fact-existp",EXACTLY,1) == -1) return(-1L);

   theFact = GetFactAddressOrIndexArgument(theEnv,"fact-existp",1,FALSE);

   return(EnvFactExistp(theEnv,theFact));
  }
Esempio n. 2
0
globle int FactExistp(
  void *vTheFact)
  {
   return EnvFactExistp(GetCurrentEnvironment(),vTheFact);
  }
Esempio n. 3
0
 bool Fact::exists() const {
   if ( m_cobj )
     return EnvFactExistp( m_environment.cobj(), m_cobj );
   return false;
 }