(mod ()
  (include *standard-cl-21*)
  (include print.clinc)
  (include prepend.clinc)
  (include sort.clinc)
  (include assert.clinc)
  (include map.clinc)
  (include deep_compare.clinc)

   (map
     (lambda ((want_cmp_val cmp_a cmp_b))
       (= (deep_compare cmp_a cmp_b) want_cmp_val)
       )
     (q
      (0 0 0)
      (-1 () (1 14 5 4 3 2))
      (1 (1 14 5 4 3 2) ())
      (-1 "X" (1 2))
      (1 (1 2) "X")
      (0 (3 2) (3 2))
      (-1 (3 1) (3 3))
      (1 (3 3) (3 1))
      (-1 (1 1) (2 1))
      (1 (3 1) (2 2))
      (-1 (2 2) (3 1))
      )
     )
   )