Woohoo!! Only got APPLY and EVAL yet to test!

src/beowulf/eval.clj

@@ -198,7 +198,7 @@
   See page 12 of the Lisp 1.5 Programmers Manual."
   [a y]
   (cond
-    (primitive-atom? y) (sub2 a y)
+    (= (primitive-atom? y) 'T) (sub2 a y)
     :else
     (make-cons-cell (sublis a (car y)) (sublis a (cdr y)))))
 

test/beowulf/bootstrap_test.clj

@@ -218,3 +218,12 @@
                      'D
                      (gsp "((A . (M N)) (B . (CAR X)) (C . (QUOTE M)) (C . (CDR X)))")))]
       (is (= actual expected)))))
+
+(deftest sublis-tests
+  (testing "sublis"
+    (let [expected "(SHAKESPEARE WROTE (THE TEMPEST))"
+          actual (print-str
+                   (sublis
+                     (gsp "((X . SHAKESPEARE) (Y . (THE TEMPEST)))")
+                     (gsp "(X WROTE Y)")))]
+      (is (= actual expected)))))