Two very quick fixes for failing tests

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

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`;