From 9bdd2cc75280f13ca69c36b4497fd21ef2293378 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 11 May 2009 00:17:57 +0200 Subject: [PATCH] Fix STRING-ROD tests. --- tests/rods.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tests/rods.lisp b/tests/rods.lisp index 2244c05..94c3d01 100644 --- a/tests/rods.lisp +++ b/tests/rods.lisp @@ -38,13 +38,13 @@ (is-true (typep (string-rod "a") '(rod 1)))) (test string-rod.2 - (is (equal (string-rod "a") - #(97)))) + (is (equalp (string-rod "a") + #(97)))) (test string-rod.3 - (is (equal (string-rod #\a) - #(97)))) + (is (equalp (string-rod #\a) + #(97)))) (test string-rod.4 - (is (equal (string-rod 'a) - #(97)))) + (is (equalp (string-rod 'a) + #(65)))) -- 2.11.4.GIT