@ -115,3 +115,9 @@
(is (= (compatibles? 'char \a) true))
)
(deftest compatibles-test10
(testing "Test 10 compatibles?"
(is (= (compatibles? 'char 'a) false))