CL-USER> (5am:run! 'kql::kql-compiling)
..f.
 Did 4 checks.
    Pass: 3 (75%)
    Skip: 0 ( 0%)
    Fail: 1 (25%)

 Failure Details:
 --------------------------------
 ELIMINATES-A-REDUNDANT-NESTING []: 
      (ELIMINATE-NESTING
 (PARSE "(NOT (apple AND orange)) OR (foo AND baz) AND NOT (quux AND bar)")) evaluated to (:OR
                                                                                           (:NOT
                                                                                            (:AND
                                                                                             (:KEYWORD
                                                                                              "apple")
                                                                                             (:KEYWORD
                                                                                              "orange")))
                                                                                           (:AND
                                                                                            (:AND
                                                                                             (:KEYWORD
                                                                                              "foo")
                                                                                             (:KEYWORD
                                                                                              "baz"))
                                                                                            (:NOT
                                                                                             (:AND
                                                                                              (:KEYWORD
                                                                                               "quux")
                                                                                              (:KEYWORD
                                                                                               "bar"))))), which is not EQUALP to (:OR
                                                                                                                                   (:NOT
                                                                                                                                    (:AND
                                                                                                                                     (:KEYWORD
                                                                                                                                      "apple")
                                                                                                                                     (:KEYWORD
                                                                                                                                      "orange")))
                                                                                                                                   (:AND
                                                                                                                                    (:KEYWORD
                                                                                                                                     "foo")
                                                                                                                                    (:KEYWORD
                                                                                                                                     "baz")
                                                                                                                                    (:NOT
                                                                                                                                     (:AND
                                                                                                                                      (:KEYWORD
                                                                                                                                       "quux")
                                                                                                                                      (:KEYWORD
                                                                                                                                       "bar")))))..
 --------------------------------