From 3035b05d33f60fc8d77f01cd460094ea509d064c Mon Sep 17 00:00:00 2001
From: Karsten Poeck <karsten.poeck@gmail.com>
Date: Fri, 13 May 2022 08:13:54 +0200
Subject: [PATCH] Correct test

---
 pathnames/parse-namestring.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pathnames/parse-namestring.lsp b/pathnames/parse-namestring.lsp
index 3c1993d0..03bd5ca4 100644
--- a/pathnames/parse-namestring.lsp
+++ b/pathnames/parse-namestring.lsp
@@ -76,8 +76,8 @@
   (let* ((pathname (parse-namestring "cltest:temp.dat.newest"))
          (namestring (namestring pathname)))
     (and (typep pathname 'logical-pathname)
-         (or (equal namestring "CLSTEST:TEMP.DAT.NEWEST")
-             (equal namestring "CLSTEST:TEMP.DAT.newest"))))
+         (or (equal namestring "CLTEST:TEMP.DAT.NEWEST")
+             (equal namestring "CLTEST:TEMP.DAT.newest"))))
   t)
 
 ;;; Error tests
-- 
GitLab