tests/utils.lisp

@@ -26,5 +26,5 @@
                      (gethash keyword *fruit*)))))
     (ok (hash-table-p *fruit*))
     (ok (fboundp 'fruit-p))
-    (ok (fruit-p :appl))
+    (ok (fruit-p :apple))
     (ng (fruit-p :tomato))))