tests/equal.lisp

   1 (test (equal '(1 2) '(1 2)))
   2 (test (equal 1 1))
   3 (test (equal "abc" "abc"))
   4 (test (not (equal "abc" "def")))
   5 (test (not (equal "Abc" "abc")))
   6 (test (equal #(1 2 3) #(1 2 3)))
   7 (test (equal '(1 2 #(3 4 ("a b c" T)))
   8              '(1 2 #(3 4 ("a b c" T)))))
   9 (test (not (equal '(1 2 #(3 4 ("a b c" T)))
  10                   '(1 2 #(3 4 ("a b x" T))))))