More alisp extensions (card related functions, ctl_card_info).

This commit is contained in:
Jaroslav Kysela 2003-07-29 13:19:19 +00:00
parent c55d2495d7
commit adbc93f1a4
6 changed files with 198 additions and 35 deletions

View file

@ -1350,7 +1350,7 @@ static inline int eq(struct alisp_object * p1, struct alisp_object * p2)
static int equal(struct alisp_object * p1, struct alisp_object * p2)
{
if (eq(p1, p1))
if (eq(p1, p2))
return 1;
if (p1->type == ALISP_OBJ_CONS || p2->type == ALISP_OBJ_CONS)