add list function

1 files changed, 24 insertions, 24 deletions

diff --git a/tests/eq.lisp b/tests/eq.lisp
index 4db31ce..a7758bb 100644
--- a/tests/eq.lisp
+++ b/tests/eq.lisp
@@ -1,27 +1,27 @@
-(assert-error (eq 1 2 3))
-(assert-error (equal 1 2 3))
+(assert-error (eq?1 2 3))
+(assert-error (equal?1 2 3))
 
-(assert (eq 1 1))
-(assert (eq 'a 'a))
-(assert (eq 1.0 1.0))
-(assert (eq #\a #\a))
-(assert (eq #f #f))
-(assert (eq nil nil))
-(assert (eq #t #t))
-(assert (not (eq 1 2)))
-(assert (not (eq "a" "a")))
-(assert (not (eq 'a 'b)))
-(assert (not (eq '(1 2) '(1 2))))
+(assert (eq? 1 1))
+(assert (eq? 'a 'a))
+(assert (eq? 1.0 1.0))
+(assert (eq? #\a #\a))
+(assert (eq? #f #f))
+(assert (eq? nil nil))
+(assert (eq? #t #t))
+(assert (not (eq? 1 2)))
+(assert (not (eq? "a" "a")))
+(assert (not (eq? 'a 'b)))
+(assert (not (eq? '(1 2) '(1 2))))
 
-(assert (equal 1 1))
-(assert (equal 'a 'a))
-(assert (equal "a" "a"))
-(assert (equal 1.0 1.0))
-(assert (equal #\a #\a))
-(assert (equal #f #f))
-(assert (equal '(1 2) '(1 2)))
+(assert (equal? 1 1))
+(assert (equal? 'a 'a))
+(assert (equal? "a" "a"))
+(assert (equal? 1.0 1.0))
+(assert (equal? #\a #\a))
+(assert (equal? #f #f))
+(assert (equal? '(1 2) '(1 2)))
 
-(assert (not (equal 1 2)))
-(assert (not (equal 'a 'b)))
-(assert (not (equal "a" "b")))
-(assert (not (equal '(1 2 3) '(1 2))))
+(assert (not (equal? 1 2)))
+(assert (not (equal? 'a 'b)))
+(assert (not (equal? "a" "b")))
+(assert (not (equal? '(1 2 3) '(1 2))))