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/5969e65a5bba43a0a37161c9...