[Git][cmucl/cmucl][issue-157-directory-returns-all-files] Fix typo in version-components-match

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-157-directory-returns-all-files at cmucl / cmucl


Commits:
5969e65a by Raymond Toy at 2023-03-04T11:54:32-08:00
Fix typo in version-components-match

Too much cut'n'paste so we got the wrong variable names.

- - - - -


1 changed file:

- src/code/pathname.lisp


Changes:

=====================================
src/code/pathname.lisp
=====================================
@@ -1234,10 +1234,10 @@ a host-structure or string."
 		 (eq wild :wild)
 		 ;; A version component of :newest or :unspecific
 		 ;; is equivalent to nil.
-		 (and (null this) (or (eq that :newest)
-				      (eq that :unspecific)))
-		 (and (null that) (or (eq this :newest)
-				      (eq this :unspecific))))))
+		 (and (null thing) (or (eq wild :newest)
+				       (eq wild :unspecific)))
+		 (and (null wild) (or (eq thing :newest)
+				      (eq thing :unspecific))))))
     (and (or (null (%pathname-host wildname))
 	     (eq (%pathname-host wildname) (%pathname-host pathname)))
 	 (frob %pathname-device device-components-match)



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5969e65a5bba43a0a37161c9504c73ef847e7dbe

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/5969e65a5bba43a0a37161c9504c73ef847e7dbe
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230304/4c7edf20/attachment.html>