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