From 1058c959d80b7103514cd7e959dbd67b38f4400b Mon Sep 17 00:00:00 2001
From: Scott Wolchok <scott@wolchok.org>
Date: Sat, 27 Feb 2021 12:57:37 -0800
Subject: [PATCH] remove extra trailing NUL on kSymbols

It wastes a byte this way -- see https://godbolt.org/z/nEj9hc
See diff of hexdump of sectorlisp.bin before/after:

```
*** before.txt  2021-02-27 13:17:47.842081600 -0800
--- after.txt   2021-02-27 13:16:40.789140700 -0800
***************
*** 31,33 ****
  000001e0: 4551 0043 4f4e 4400 4341 5200 4344 5200  EQ.COND.CAR.CDR.
! 000001f0: 434f 4e53 004c 414d 4244 4100 0090 55aa  CONS.LAMBDA...U.
  00000200: f7c7 0100 7509 d1ef 8db5 8641 e9a3 ff53  ....u......A...S
--- 31,33 ----
  000001e0: 4551 0043 4f4e 4400 4341 5200 4344 5200  EQ.COND.CAR.CDR.
! 000001f0: 434f 4e53 004c 414d 4244 4100 6690 55aa  CONS.LAMBDA.f.U.
  00000200: f7c7 0100 7509 d1ef 8db5 8641 e9a3 ff53  ....u......A...S
```

Second zero byte after LAMBDA is now uninitialized.
---
 lisp.c       | 2 +-
 sectorlisp.S | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp.c b/lisp.c
index 1c3e698..8d999fe 100644
--- a/lisp.c
+++ b/lisp.c
@@ -72,7 +72,7 @@ _Alignas(char) const char kSymbols[] = "NIL\0"
                                        "CAR\0"
                                        "CDR\0"
                                        "CONS\0"
-                                       "LAMBDA\0";
+                                       "LAMBDA";
 
 #ifdef __REAL_MODE__
 static struct Lisp *const q;
diff --git a/sectorlisp.S b/sectorlisp.S
index 2bbcdff..6c1f86b 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -441,4 +441,3 @@ kSymbols:
 	.string	"CDR"
 	.string	"CONS"
 	.string	"LAMBDA"
-	.string	""