diff --git a/lib/Minilisp.pm b/lib/Minilisp.pm
index 463daa3..a83d491 100644
--- a/lib/Minilisp.pm
+++ b/lib/Minilisp.pm
@@ -852,6 +852,8 @@ sub macro_and {
   return sub {
     my $ctx = shift;
 
+    return LISP_FALSE unless @operands_parsed;
+
     my $v = LISP_TRUE;
     my @operands = @operands_parsed;
     while (from_lisp_bool($v) && (my $op = shift @operands))