Lines Matching +refs:compare +refs:test
51 static int compare(const void*, const void*);
192 /* The code to execute if the test is true */
463 if test then &optional else
467 LispObj *test, *then, *oelse;
471 test = ARGUMENT(0);
473 /* Build code to execute test */
474 ComEval(com, test);
476 /* Add jump node to use if test is NIL */
899 unless test &rest body
903 LispObj *test, *body;
906 test = ARGUMENT(0);
908 /* Generate code to evaluate test */
909 ComEval(com, test);
910 /* Add node after test */
915 /* Insert node to know where to jump if test is T */
924 until test &rest body
928 LispObj *test, *body;
931 test = ARGUMENT(0);
937 /* Build code for test */
938 ComEval(com, test);
945 /* Insert node to jump to test again */
950 /* Insert node to know where to jump if test is T */
959 when test &rest body
963 LispObj *test, *body;
966 test = ARGUMENT(0);
968 /* Generate code to evaluate test */
969 ComEval(com, test);
970 /* Add node after test */
975 /* Insert node to know where to jump if test is NIL */
984 while test &rest body
988 LispObj *test, *body;
991 test = ARGUMENT(0);
997 /* Build code for test */
998 ComEval(com, test);
1005 /* Insert node to jump to test again */
1010 /* Insert node to know where to jump if test is NIL */
1149 compare(const void *left, const void *right)
1166 qsort(*pointers, *num_pointers, sizeof(void*), compare);
1538 /* Just make the error test true */
1563 /* Special keyword specification, need to compare ATOMID
1577 /* Normal keyword specification, can compare object pointers,