Skip to content

Commit a19fc42

Browse files
authored
Merge pull request #307 from Affonso-Gui/fix-and-noargs
[cl-compatible] Return T when AND has no arguments
2 parents 90a4d6f + da6904e commit a19fc42

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

lisp/c/specials.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -840,7 +840,7 @@ pointer arg;
840840
pointer AND(ctx,arg) /*special form (should be macro)*/
841841
register context *ctx;
842842
register pointer arg;
843-
{ register pointer r;
843+
{ register pointer r = T;
844844
#ifdef SPEC_DEBUG
845845
printf( "AND:" ); hoge_print( arg );
846846
#endif

0 commit comments

Comments
 (0)