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