From e5677a830017ba7c967c079820aa1cd5919ad3e8 Mon Sep 17 00:00:00 2001
From: Simon Brooke <simon@journeyman.cc>
Date: Sun, 9 Apr 2023 20:59:02 +0100
Subject: [PATCH] Two very quick fixes for failing tests

---
 resources/lisp1.5.lsp           | 2 +-
 src/beowulf/reader/generate.clj | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/resources/lisp1.5.lsp b/resources/lisp1.5.lsp
index bf8cfce..6f7bc9f 100644
--- a/resources/lisp1.5.lsp
+++ b/resources/lisp1.5.lsp
@@ -114,7 +114,7 @@
     EXPR
     (LAMBDA
       (L)
-      (COND ((EQ NIL L) 0) ((CONSP (CDR L)) (ADD1 (LENGTH (CDR L)))) (T 0))))
+      (COND ((EQ NIL L) 0) ((CONSP (CDR L)) (ADD1 (LENGTH (CDR L)))) (T 1))))
   (LESSP 32767 SUBR (BEOWULF HOST LESSP))
   (MAPLIST
     32767
diff --git a/src/beowulf/reader/generate.clj b/src/beowulf/reader/generate.clj
index c9ad0f7..029bf0f 100644
--- a/src/beowulf/reader/generate.clj
+++ b/src/beowulf/reader/generate.clj
@@ -94,7 +94,7 @@
      (list (if (= (nth p 1) [:quoted-expr [:atom "T"]])
              'T
              (generate (nth p 1) context))
-           (generate (nth p 2)) context))))
+           (generate (nth p 2) context)))))
 
 (defn gen-cond
   "Generate a cond statement from this simplified parse tree fragment `p`;