コード例 #1
0
ファイル: llh.c プロジェクト: urthbound/lispinc
bool hasForm(Obj expr, char* form) {
	return cmpForm(specialForm(expr), form);
}
コード例 #2
0
ファイル: llh.c プロジェクト: urthbound/lispinc
bool isQuit(Obj expr) {
	return GETTAG(expr) == NAME &&
		cmpForm(GETNAME(expr), QUIT_COMMAND);
}
コード例 #3
0
ファイル: llh.c プロジェクト: nickdrozd/lispinc
bool hasForm(Obj expr, char* form) {
    form_check_count++;
    return cmpForm(specialForm(expr), form);
}