a debug for Beq (which was quite helpful despite the error in Lisp)

Builtin.pm

@@ -410,12 +410,17 @@ sub Beq {
         my $type1 = ref($arg1);
         my $type2 = ref($arg2);
 
-        return $Nil unless $type1 eq $type2;
-        if ($type1 eq "") {
-                return tornil($arg1 eq $arg2);
+        my $result;
+        if ($type1 ne $type2) {
+                $result = $Nil;
+        } elsif ($type1 eq "") {
+                $result = tornil($arg1 eq $arg2);
         } else {
-                return tornil($arg1 == $arg2);
+                $result = tornil($arg1 == $arg2);
         }
+        # debug("eq %s %s / %s %s -> %s",
+        #       $arg1, $arg2, "$arg1", "$arg2", $result);
+        return $result;
 }
 
 sub Bif {