From 55f4af3aba7c388c23527441e58adce24760e0cc Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Wed, 29 Sep 2004 02:46:50 +0000 Subject: [PATCH] Don't assume that host-namestring can be applied to a host name --- ansi-tests/host-namestring.lsp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/ansi-tests/host-namestring.lsp b/ansi-tests/host-namestring.lsp index 7dd8e6e7..274b1f5a 100644 --- a/ansi-tests/host-namestring.lsp +++ b/ansi-tests/host-namestring.lsp @@ -11,7 +11,9 @@ (s (first vals))) (if (and (null (cdr vals)) (or (null s) - (equal (host-namestring s) s))) + (stringp s) + ;; (equal (host-namestring s) s) + )) :good vals)) :good) @@ -22,7 +24,8 @@ (let ((ns (host-namestring s))) (when ns (assert (stringp ns)) - (assert (string= (host-namestring ns) ns))))) + ;; (assert (string= (host-namestring ns) ns)) + ))) nil) (deftest host-namestring.3 -- GitLab