diff --git a/extra/lisp/lisp-tests.factor b/extra/lisp/lisp-tests.factor
index 98e1c9e943..fd6e2d93ae 100644
--- a/extra/lisp/lisp-tests.factor
+++ b/extra/lisp/lisp-tests.factor
@@ -6,22 +6,32 @@ IN: lisp.test
 
 init-env
 
+"#f" [ f ] lisp-define 
+"#t" [ t ] lisp-define
+
 "+" "math" "+" define-primitve
+"-" "math" "-" define-primitve
 
 { 5 } [
   [ 2 3 ] "+" <lisp-symbol> funcall
 ] unit-test
 
+{ 8.3 } [
+ [ 10.4 2.1 ] "-" <lisp-symbol> funcall
+] unit-test
+
 { 3 } [
   "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
 ] unit-test
 
-"-" "math" "-" define-primitve
-
-{ 8.3 } [
- [ 10.4 2.1 ] "-" <lisp-symbol> funcall
-] unit-test
-
 { 42 } [
   "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-string>factor call
+] unit-test
+
+{ 1 } [
+  "(if #t 1 2)" lisp-string>factor call
+] unit-test
+
+{ "b" } [
+  "(cond (#f \"a\") (#t \"b\"))" lisp-string>factor call
 ] unit-test
\ No newline at end of file